вставить
Код:
IBQ.sql.text:='update Table_name set Field_name = :b'; // или insert вместо update
IBQ.params.parseSQL(IBQ.sql.text, true);
IBQ.params.parambyname('b').LoadFromFile('Path to filw',ftBlob);
IBQ.execsql;
IBT.Commit;
выгрузить (выдрал из своего кода- разберешься):
Код:
var s:Tstream;
FileS:TFileStream;
begin
try
IBQ_Blob.Open;
s:=IBQ_Blob.CreateBlobStream(IBQ_Blob.FieldByName(Field_name), bmRead);
if FileExists('Docs\'+File_name) then
FileS:=TFileStream.Create('Docs\'+File_name,fmOpenWrite)
else
FileS:=TFileStream.Create('Docs\'+File_name,fmCreate);
FileS.CopyFrom(s,s.Size);
s.Free;
FileS.Free;
IBQ_Blob.Close;
IBT_Blob.Commit;
except
ShowMessage('Ошибка при открытии шаблона '+File_name);
end;
а, забыл при выгрузке в query sql будет: