Hola tarco35.
Código Delphi
[-]
procedure CopyBlobFields(SourceDataSet, TargetDataSet: TDataSet;
const SourceFieldName, TargetFieldName: string);
var
Stream: TStream;
begin
Stream := TMemoryStream.Create;
try
TBlobField(SourceDataSet.FieldByName(SourceFieldName)).SaveToStream(Stream);
Stream.Seek(0, soFromBeginning);
TargetDataSet.Edit;
TBlobField(TargetDataSet.FieldByName(TargetFieldName)).LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
Ejemplo de uso:
Código Delphi
[-]
begin
CopyBlobFields(DataSet1, DataSet2, 'BLOB_FIELD', 'BLOB_FIELD');
...
Saludos