JPegImage aus einem BlobFeld auslesen

[gutro]

Ich habe Thumbnails in ein Blobfeld einer Interbase-Datenbank entsprechend des Programmiertips gespeichert

Code:

ms:=TMemoryStream.Create;
JPegImage.SaveToStream(ms);
with Quer1 do
Params[7].SetBlobData(ms.Memory, ms.Size);
Quer1.ExecSQL;

Es scheint geklappt zu haben, denn die Datenbank wächst.
Nun will ich das Jpegimage wieder auslesen. Das gelingt mir aber nicht. Folgende Versuche habe ich gestartet:

Aus der Delphi-Online-Hilfe:

Code:

Ms5 : TmemoryStream;
 Bl5 : TBlobstream;
Bl5 := TBlobStream.Create(DaMod.BilderTable.FieldByName('Bild') as TBlobField, bmRead);

Beim Compilieren läuft alles glatt. Wenn ich dann aber starte kommt Fehlermeldung: Ungültige TypUmwandlung

Ein weiterer Versuch:

Code:

DaMod.BilderTable.Fields[7] as TBlobField.SaveToStream(ms5)

Fehlermeldung: Diese Form des Methodenaufrufs ist nur für Klassenmethoden erlaubt

Code:

TBlobField(DaMod.BilderTable.Fields[7]).SaveToStream (ms5);

Keine Fehlermeldung. Aber Stream ist Leer

Wer kann mir einen Tipp geben, wie ich es doch noch hinkriege?

[Loïs Bégué]

Erste Idee:
es gibt bei Interbase/Firebird verschiedene Blob-Typen.
Hast Du bei der Tabellen Definition den richtigen benutzt ?

Wichtiger:
Bl5 := TBlobStream.Create(DaMod.BilderTable.FieldByName('Bild'), bmRead);
dürfte besser (also ohne "as TBlobField") funktionnieren.

Zudem solltest Du u.U. die Felder der Tabelle "persistent" anlegen. So weiss ObjectPascal automatisch über das BlobFeld bescheid.

Mehr dazu hier:

"...eine Datei in einen TBlobStream speichern, daraus lesen?"
http://www.swissdelphicenter.ch/de/showcode.php?id=1271

[gutro]

Danke Lois!

Als erstes: Ich verwende den BlobTyp 0, der für binäre Daten vorgesehen ist.

Beim Compilieren kommtr nach wie vor an der Stelle:

Code:

Bl5 := TBlobStream.Create(DaMod.BilderTable.FieldByName('Bild'), bmRead);

die Compilerfehlermeldung:
 Inkompatible Typen: 'TBlobField' und 'TField'.
Nehme ich den Code aus dem Programmiertyp

Code:

bl5 := DaMod.BilderTable.CreateBlobStream(DaMod.BilderTable.FieldByName('Bild') as TBlobField, bmRead);

Dann lautet die Fehlermeldung:
Inkompatible Typen: 'TBlobStream' und 'TStream'.

Irgendwie wird nicht erkannt, das es ein Blobfeld ist.

Zudem solltest Du u.U. die Felder der Tabelle "persistent" anlegen. So weiss ObjectPascal automatisch über das BlobFeld bescheid.

Wie mache ich das?

[Loïs Bégué]

TDataset doppelklicken.
Dann erscheint ein Dialog für persistente Felder... zunächst leer. Dann rechte Maustaste...