Hi,
habe den Code jetzt wie folgt geändert:
Delphi-Quellcode:
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, TBlobType(0));
FreeAndNil(img);
end;
ContactsQuery.ExecSQL;
Bekomme jetzt die
Exception 'Data type is not supported'? Das Feld in
der Tabelle ist ein Binary-Blob, was doch richtig sein müsste, oder?
Viele Grüße ...