Сохранение и чтение файлов в BLOB-полях

[spotip]

Здравствуйте уважаемые помогите вот в каком вопросе: нужно загружать в бд и из бд (Microsoft sql server 208r2) файлы разных форматов объёмом не больше 10 МБ, в бд создал таблицу, в ней:
1_id (int)
pole (image)
в Delphi 7 пишу:

var
pole:string;
begin
pole:=quotedstr(unit1.Form1.sFilenameEdit1.FileName);
with Query1 do
begin
close;
SQL.Clear;
sql.Add('exec new_cxema '+pole);
Execsql;
Form1.ADOQuery1.Active:=false;
Form1.ADOQuery1.Active:=true;
end;
end;

в бд появляется надпись двоичные данные
теперь хочу этот же файл сохранить из бд, делаю так:

var
ptkwrd:Tmemorystream;
begin
ptkwrd:= Tmemorystream.Create;
tblobfield(form1.ADOQuery1.FieldByName('pole')).SaveToStream(ptkwrd);
ptkwrd.Position:=0;
ptkwrd.SaveToFile('temp.doc');
ShellExecute(Handle, 'open','temp.dwg',nil,nil,SW_SHOWNORMAL);
ptkwrd.Free;
end;

открываю файл temp.doc там путь к файлу...F:\ Руководство (рус. яз.).pdf
подскажите где ошибаюсь.

[Dozent]

ShellExecute(Handle, 'open','temp.dwg',nil,nil,SW_SHOWNO RMAL);

эм, мб ошибка в расширении файла?

[min@y™]

Чикатило.
Есть жэж TBlobStream!

[spotip]

Спасибо за ответы, сделал так:

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

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

Подскажите кто знает как сделать чтобы при чтении из бд файл сохранился не в файле temp.txt а выдал SaveDialog1 ?

[Toxa]

кидаешь на форму TSaveDialog вызываешь его и забираешь из него путь, и подставляешь его в

ptkwrd.SaveToFile('temp.txt');

как работать с TSaveDialog легко гуглится, а лучше почитать книгу по программированию на выбор

[spotip]

Сообщение от Toxa

кидаешь на форму TSaveDialog вызываешь его и забираешь из него путь, и подставляешь его в

ptkwrd.SaveToFile('temp.txt');

как работать с TSaveDialog легко гуглится, а лучше почитать книгу по программированию на выбор

Спасибо за ответ, всё получилось, сделал так:

var
ptkwrd:Tmemorystream;
begin
ptkwrd:= Tmemorystream.Create;
tblobfield(form1.ADOQuery1.FieldByName('pole')).SaveToStream(ptkwrd);
ptkwrd.Position:=0;
 if SaveDialog1.Execute then
ptkwrd.SaveToFile(SaveDialog1.FileName);
ptkwrd.Free;
end;