Einzelnen Beitrag anzeigen

Neomatic

Registriert seit: 29. Jan 2012
4 Beiträge
 
#4

AW: Jpeg Bilder aus Access Datenbank auslesen

  Alt 30. Mai 2012, 21:33
Hallo,

erstmal danke für eure Antworten. Ich habe versucht die ersten 78 byte des Streams abzuschneiden. Jedoch bleibt das Ergebnis das selbe: Jpeg-Fehler #53

Hier einmal der aktuelle Code:

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.Seek(78, soFromBeginning);
    JpegLoad := TJPEGImage.Create;
    JpegLoad.LoadFromStream(DBImageLoad);
    DBImageView.Picture.Assign(JpegLoad);
  finally
    DBImageSave.Free;
    DBImageLoad.Free;
    JpegSave.Free;
    JpegLoad.Free;
  end;
end;
Oder gibt es eine bessere Methode die ersten 78 bytes abzuschneiden?

Gruß
Neomatic
  Mit Zitat antworten Zitat