Me respondo yo mismo.
Encontré la solución, insertando las imágenes mediante un Update con ADOQuery y utilizando parámetros, con el siguiente código, el que adjunto por si alguien más pudiera servirle:
Código Delphi
[-]
var
I: Integer;
Bitmap1: TBitmap;
dd1: TDicomDataset;
AStream : TStream;
begin
for I := 0 to ListBox2.Items.Count - 1 do
begin
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;
try
AStream:= TMemoryStream.Create;
Bitmap1.SaveToStream(AStream);
ADOQuery9.Close;
ADOQuery9.SQL.clear;
ADOQuery9.SQL.add('update SERIES set SERIES_NUMBER =:SERIESN, SERIES_IMAGE_COUNT =:IMAGEN, SERIES_ICON =:ICON');
ADOQuery9.SQL.Add ('where SERIESUID like'+ QuotedStr(ListBox3.Items.Strings[i]+'%'));
ADOQuery9.Parameters.Parambyname('SERIESN').Value:= dd1.Attributes.getInteger($0020, $0011);
ADOQuery9.Parameters.Parambyname('IMAGEN').Value:= ListBox4.Items.Strings[i];
ADOQuery9.Parameters.ParamByName('ICON').LoadFromStream(AStream, ftBlob);
ADOQuery9.ExecSQL;
Data1.TablaSeries.Post;
finally
Bitmap1.Free;
AStream.Free;
end;
end;
end;
Saludos