JPEG in TImage laden

**ilse2005**

Hallo habe schon viel rumgesucht aber leider keine Lösung gefunden. Ich habe in meiner Datenbank JPEG Bilder als Blob gespeichert. Das schreiben über Delphi funktioniert auch schon. Nun will ich aber die Bilder auch anzeigen lassen und habe folgendes versucht:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

var

   blob : TMemoryStream;

   BlobField: TBlobField;

   jpeg : TJPEGImage;

   bmp : TBitmap;

begin

    blob :=  TMemoryStream.Create();

    jpeg := TJPEGImage.Create;

//    bmp := TBitmap.Create;

   with ADOTable1 do

   begin

     blob.Clear;

     try

     begin

       BlobField := FieldByName('Bild') as TBlobField   ;

       blobfield.SaveToStream(blob);

       jpeg.LoadFromStream(blob);

//     bmp.Assign(jpeg);

       Image1.Picture.Assign(jpeg);

     end;

     finally 

       blob.free;

       jpeg.free

   end;

end;

Das Programm kompillert auch aber wenn ich den Button klicke kommt immer folgende Fehlermeldung: 'JPEG-Fehler#42'

EDIT: Besser so? Hab das Problem leider immer noch...

JPEG in TImage laden

JPEG in TImage laden

Forumregeln