Jpeg Bilder aus Access Datenbank auslesen

**Neomatic**

Hallo,

ich versuche in eine Access Datenbank Bilder zu speichern und zu laden.

Speichern funktioniert. Nur bekomme ich jedes mal bei dem Versuch das Jpeg Bild zu laden den Jpeg Fehler #53.

Hier der Code, vieleicht seht ihr ja den Fehler und könnt mir einen Wink mit dem Zaunpfahl geben:

markieren

Code:

			procedure TfrmBackgroundImage.ImageDBSaveClick(Sender: TObject);

var

  DBImageSave : TStream;

  DBImageLoad : TStream;

  JpegSave : TJPEGImage;

  JpegLoad : TJPEGImage;

begin

  try

    JpegSave := TJPEGImage.Create;

    JpegSave.LoadFromFile(ImagePath.Text);

    DB_ConfigTabelle.Edit;

    DBImageSave :=  DB_ConfigTabelle.CreateBlobStream

      (DB_ConfigTabelle.FieldByName('RoomBackground'), bmWrite);

    JpegSave.SaveToStream(DBImageSave);

    DBImageLoad := DB_ConfigTabelle.CreateBlobStream

      (DB_ConfigTabelle.FieldByName('RoomBackground'), bmRead);

    DBImageLoad.Position := 0;

    JpegLoad := TJPEGImage.Create;

    JpegLoad.LoadFromStream(DBImageLoad);  <-- Hier kommt laut Debugger der Fehler !

    DBImageView.Picture.Assign(JpegLoad);

  finally

    DBImageSave.Free;

    DBImageLoad.Free;

    JpegSave.Free;

    JpegLoad.Free;

  end;

end;

Wäre nett wenn mir hier jemand helfen könnte.

Gruß
Neomatic

Jpeg Bilder aus Access Datenbank auslesen

Jpeg Bilder aus Access Datenbank auslesen

Forumregeln