Blobfeld beim Kopieren immer leer

[franktron]

Ich nutz zwar nicht die Ado Komponeten aber
muss da nich so aussehen

Code:

try 
  zd.edit;
  quelle:=QD.CreateBlobStream(QD.FieldByName('blob'),bmRead);  
  ziel:=zD.CreateBlobStream(zD.FieldByName('blob'),bmWrite); 
  quelle.Positon:=0;//Geht auch mit seek
  ziel.CopyFrom(quelle,quelle.Size);
  zd.post;
finally
  quelle.Free;
  ziel.Free;
End;