Delphi Blobfeld beim Kopieren immer leer

Thema durchsuchen

Ansicht

Themen-Optionen

Blobfeld beim Kopieren immer leer

Ein Thema von lkz633 · begonnen am 6. Jun 2004 · letzter Beitrag vom 7. Jun 2004

Vorheriger Beitrag

Nächster Beitrag

franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge

Delphi 10.2 Tokyo Enterprise

Re: Blobfeld beim Kopieren immer leer

7. Jun 2004, 08:11

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

markieren

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;