Auch wenn es schon klappt - beim nächstenmal würde es auch so funktionieren:
Delphi-Quellcode:
with Query do
begin
SQL.Text := '
insert into tbl(brand, model, image_show) values(:brand, :model, :blob)';
Parameters.ParamByName('
brand').AsString := txtMarke.Text;
Parameters.ParamByName('
model').AsString := txtModell.Text;
Parameters.ParamByName('
blob').LoadFromFile(showImage);
ExecSQL;
end;
Grüße vom marabu