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:

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