Hi, ich möchte ein bild in einer tabelle speichern und dann in ein TImage laden.
Delphi-Quellcode:
// Speichern
jpg:=TJPEGImage.Create;
m:=TMemoryStream.Create;
try
jpg.Assign(img_main_logo.Picture.Graphic);
jpg.SaveToStream(m);
m.Position := 0;
TBlobField(aqTmp.FieldByName('pfad')).LoadFromStream(m);
finally
FreeAndNil(m);
FreeAndNil(jpg);
end;
// Laden
jpg:=TJPEGImage.Create;
m:=TMemoryStream.Create;
try
TBlobField(aqTmp.FieldByName('pfad')).SaveToStream(m);
m.Position:=0;
jpg.LoadFromStream(m);
img_main_logo.Picture.Assign(jpg);
finally
FreeAndNil(m);
FreeAndNil(jpg);
end;
Diesen Code fand ich in einem
Älteren Thread, wurde aber nicht wirklich schlau daraus...
Das Speichern klappt, Problem ist halt, nachdem die Zeile:
img_main_logo.Picture.Assign(jpg);
ausgeführt wird, erhalte ich eine Fehlermeldung: Premature end of JPEG File
Hab mir schon nen wolf gesucht, leider nix dergleichen gefunden...muss doch irgendwie möglich sein
Bin für jede Hilfe Dankbar
Achso, in der Tabelle hab ich natürlich?! ein Blob-Feld genommen
Es gibt kein Problem, aber ich arbeite dran.