Bilder in die Paradoxtabelle speichern ?

[marabu]

Hier ein wenig Code:

Delphi-Quellcode:

procedure TDemoForm.SaveButtonClick(Sender: TObject);
var
  s: TStream;
begin
  s := TMemoryStream.Create;
  Image.Picture.Bitmap.SaveToStream(s);
  with Query do
  begin
    SQL.Text := 'update biotest set graphic = :graphic where speciesno = :speciesno';
    ParamByName('speciesno').Value := Table.FieldByName('SpeciesNo').Value;
    ParamByName('graphic').LoadFromStream(s, ftGraphic);
    ExecSQL;
    Table.Refresh;
  end;
  s.Free;
end;

marabu