Corrijo el código, el que he asignado a un Thread, para evitar confusiones.
Código Delphi
[-]procedure TVisor.BMDThread2Execute(Sender: TObject; Thread: TBMDExecuteThread; var Data: Pointer);
var
I: Integer;
Bitmap1: TBitmap;
dd1: TDicomDataset;
AStream : TStream;
begin
for I := 0 to ListBox2.Items.Count - 1 do
begin
try
dd1:= TDicomDataset.Create;
dd1.LoadFromFile(ListBox2.Items.Strings[i]);
Bitmap1 := TBitmap.Create;
dd1.Attributes.ImageData.AssignToBitmap(Bitmap1,False);
Redimensionar(Bitmap1,80,80);
Data1.TablaSeries.Edit;
AStream:= Data1.TablaSeries.CreateBlobStream(Data1.TablaSeries.FieldByName('SERIES_ICON'), bmWrite);
Bitmap1.SaveToStream(AStream);
finally
Bitmap1.Free;
AStream.Free;
Data1.TablaSeries.Post;
end;
end;
end;
Espero que alguien pueda descubrir el problema.
Salu2