Blobfeld beim Kopieren immer leer

[lkz633]

Hallo,

ich habe folgenden Code zum Kopieren eines BlobFelds in ein anderes. Jedoch ist das Zielfeld immer leer, Code läuft ohne Fehlermeldung durch:

Code:

 
    dm_data.aq_target.Open; 
    if not dm_data.aq_source.FieldByName(xyz).IsNull then begin 
      try 
        dm_data.aq_target.edit; 
        blob_source := TAdoBlobStream.Create(dm_data.aq_source.FieldByName(xyz) as db.TBlobField, bmRead); 
        blob_target := tadoblobstream.Create(dm_data.aq_target.FieldByName(zyx) as db.TBlobField,bmReadWrite); 
        blob_target.Seek(0,soFromBeginning); 
        blob_target.CopyFrom(blob_source,blob_source.size); 
        dm_data.aq_target.Post; 
        dm_data.aq_target.Edit; 
        blob_target.Free; 
    end; 
    dm_data.aq_target.close;

Bin ich mal wieder blind?

Danke und Gruss
lkz633