var m_qrySQL : TQuery; begin m_qrySQL := TQuery.Create(nil); with m_qrtSQL do begin DatabaseName := 'yourdatabasename'; SQL.Text := 'insert into TableXXX(ImgField,...) values (:vImageField,...)'; ParamByName(':vImageField').loadfromfile('yourfilename'); Prepare; ExecSQL; Free; end; end;
m_qrySQL : TQuery;
begin
m_qrySQL := TQuery.Create(nil);
with m_qrtSQL do
begin
DatabaseName := 'yourdatabasename';
SQL.Text := 'insert into TableXXX(ImgField,...) values (:vImageField,...)';
ParamByName(':vImageField').loadfromfile('yourfilename');
Prepare;
ExecSQL;
Free;
end;
end;