Чтение и запись BLOB-файла в БД

Чтение и запись BLOB-файла в БД

//вставка файла в поле базы данных
if OpenDialog1.Execute then
begin
ADOQuery1.Insert;
tblobfield(form1.ADOQuery1.FieldByName('MyBlob')).LoadFromFile(OpenDialog1.FileName);
ADOQuery1.Post;
end;

//чтение файла из Базы Данных
var
ptkwrd:Tmemorystream;
begin
ptkwrd:= Tmemorystream.Create;
tblobfield(form1.ADOQuery1.FieldByName('MyBlob')).SaveToStream(ptkwrd);
ptkwrd.Position:=0;
ptkwrd.SaveToFile('temp.doc');
shellexecute(Handle, 'open','temp.dwg',nil,nil,SW_SHOWNORMAL);
ptkwrd.Free;

//Вариант записи файла в БД используя SQL запрос

form1.ADOQuery1.SQL.Text:='insert into AutoCad_Baza (datenow,street,house,part,fio,description,zip_file) values ('''+formatDateTime('yyyy/mm/dd',Now)+''','''+st+''','''+trim(edit3.Text)+''','''+trim(edit4.Text)+''','''+fio+''','''+trim(memo1.Text)+''', :zip_file)';
form1.ADOQuery1.Parameters.ParseSQL(form1.ADOQuery1.sql.text, true);
form1.ADOQuery1.Parameters.ParamByName('zip_file').LoadFromFile(edit1.Text, ftGraphic);
form1.ADOQuery1.ExecSQL;

Эта запись была добавлена в Понедельник, 5 мая, 2008 - 21:03 В разделы BLOB поля, Базы данных. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.