JPg aus DB laden und in TImage anzeigen

[Lemmi]

Re,

Leider nicht, erhalte wieder die gleiche fehlermeldung. Wenn du sagst, dass der Code auf jedenfall funktioniert, kann es ja nur an dem Code liegen, mitdem ich es inne Db reinpacke?! Dafür verwende ich folgenden Code :

Delphi-Quellcode:

Procedure Bild2DB(id:integer);
var blob : TMemoryStream;
    jpeg : TJPEGImage;
Begin
  blob :=  TMemoryStream.Create();
  jpeg := TJPEGImage.Create(form1);
  TRY
    if Form1.OPD.Execute then
    begin
      jpeg.LoadFromFile(Form1.OPD.FileName);
      blob.Clear;
      jpeg.SaveToStream(blob);
    end;
    Form1.Query.SQL.Text := 'Update filme Set bild = :bild  where ID = :id';
    Form1.Query.ParamByName('bild').LoadFromStream(blob,ftgraphic);
    Form1.Query.ParamByName('id').AsInteger := id;
    Form1.Query.ExecSQL;
  Finally
    jpeg.LoadFromStream(blob);
  END;
  blob.Free;
  jpeg.Free;
end;

Muss man da irgendwie prüfen obs komplett übertragen wurde oderso? Noch dazu gesagt, ich benutze Delphi7, vielleicht liegts ja auch an meiner JPeg-Unit??