Jpeg aus Blobfield

[Günter Forster]

Hallo,

für ein Überwachungsprojekt muss ich Jpeg - Dateien erfassen. Mit TFilestream bekomme ich die Datei ohne Fehlermeldung in die Datenbank,

with ibEditBilder do<br>
begin<br>
params[0].asinteger := Bildnr;<br>
params[1].asinteger := Auftrag;<br>
params[2].asstring := edit2.text;<br>
params[3].loadfromstream(infile,ftblob);<br>
execproc;<br>
end;<br>
<br>
Beim Auslesen über eine Stored-Proc oder über TDataset bekomme ich die Meldung falsches Bitmap-Format.<br>

Wie bekomme ich die DAten jetzt wieder raus ?<br>

Gruß Günter

[Andreas Kosch]

Hallo,

hier im Forum ist im Ordner <i>Delphi | IBX | RedSys</i> ein Delphi-Beispielprojekt zu finden, das u.a. das Speicher, Auslesen und Anzeigen von JPEG-Abbildungen im eigenen Programm demonstriert. Alle Programmdateien können über einen eingebetteten Link heruntergeladen werden

[Günter Forster]

Hallo,

Ich habe doch noch eine frage dazu : liegt es an dem Streamformat, das ich das Bild mit assign und nicht mit IMage.picture.graphic := ajpeg zuweise ? Das hat bei mir den Bitmapfehler angezeigt.

Gruß Günte