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