Frage zu Firebird Blob und Image

[Grolle]

Hi,

also mit dem folgenden Source bekomme ich jetzt keine Fehlermeldung mehr,
aber das Bild ist auch nicht in der Datenbank vorhanden?:

Delphi-Quellcode:

  ContactsQuery.ParamByName('P31').AsInteger := 3;
  ContactsQuery.ParamByName('P32').AsBlob := main.Memo1.Text;
  if main.Image3 <> nil then
  begin
    img := TJPEGImage.Create;
    img.Assign(main.Image3.Picture.Bitmap);
    s := TMemoryStream.Create;
    img.SaveToStream(s);
    s.Position := 0;
    ContactsQuery.ParamByName('P33').LoadFromStream(s, ftBlob);
    FreeAndNil(img);
    FreeAndNil(s);
  end;
  ContactsQuery.ExecSQL;

Fragende Grüße ...