Frage zu Firebird Blob und Image

[Grolle]

Binary bzw. 0

Viele Grüße ....

[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 ...

[mikhal]

Hast du mal versucht, einen Breakpoint zu setzen und getestet, ob deine if-Bedingung überhaupt greift?

Grüße
Mikhal

PS: Hat TJpegImage überhaupt eine Bitmap?

[Grolle]

Hallo,

es klappt jetzt. Eine kurze Frage noch:

Delphi-Quellcode:

    img := TJPEGImage.Create;
img.Assign(main.Image3.Picture.Graphic);

Kann ich mit img.Assign jedes Bild bzw. jeden Bildtyp aus einem TImage laden?