Aus TurboDB Blob in Stream schreiben

[machstuhl]

Zitat von Klaus01:

Wird es so besser?

Delphi-Quellcode:

J := TJPEGImage.Create;
ms.seek(0,soFromBeginning); // oder ms.position :=0
J.LoadFromStream(MS);
Form3.Image1.Picture.Assign(J);

Grüße
Klaus

Nein.

Ein

Code:

(FindField('BLOB1') As TBlobField).SaveToStream(MS);
ms.Position := 0;  // <<<<
J := TJPEGImage.Create;
J.LoadFromStream(MS);
Form3.Image1.Picture.Assign(J); // Hier tritt der Zugriffsfehler auf

bringt auch keine Besserung.

Thx für die Mühen =)