Aus TurboDB Blob in Stream schreiben

[Klaus01]

Zitat von machstuhl:

done, bringt leider nicht viel, da er bei

Code:

Form3.Image1.Picture.Assign(J);

direkt rausspringt.

Wie kann ich dem TImage verklickern, dass da ein JPEG ankommt, oder liegt da nicht der Hase im Pfeffer?

Das die Fehlerbenhandlung den Fehler nicht behebt war mit klar - nur dachte ich, dass eventuell
ein verwertbare Fehlermeldung dabei herauskommen würde.

Das TImage weiß das ein jpg hereinkommt, Du übergibst ja die jpg Instanz.

Grüße
Klaus

[machstuhl]

Habs, danke an alle.

Der Code in der Klasse.

Code:

FBLOB1 := TMemoryStream.Create;
(FindField('BLOB1') As TBlobField).SaveToStream(FBLOB1);
FBLOB1.Position := 0;

Der Code vom Formular

Code:

T := TTEST1_tdb.create;
T.ID := 8;
T.Load;
J := TJpegImage.Create;
J.LoadFromStream(T.BLOB1);
Image1.Picture.Assign(J);
FreeAndNil(J);
FreeAndNil(T);

Im Endeffekt lag es dadran, dass ich aus der Klasseunit heraus irgendwie nicht Image1 befüllen konnte. kA warum.

[Sir Rufo]

Weil du nicht wahr haben willst, was andere dir hier schreiben.

Stichwort Casten: "Nö, ich muss nicht casten" - Lösung: Casten

Stichwort Direkter Zugriff auf eine Komponente: "Nö, da ist alles da" - Lösung: Ohne direkten Zugriff