Delphi - [решено] Вставить и достать файл ворда в БД Access

game_Racer · Отправлено: **13:54, 31-03-2012** | #2

Нашел решение. Оказывается я правильно записываю, а читать нужно так:

Код:

procedure TForm1.BitBtn7Click(Sender: TObject);
var
 Ptkwrd: TMemoryStream;
 Blob: TBlobStream;
begin
 Ptkwrd:=TMemoryStream.Create;
 TBlobField(Query1.FieldByName('TEKST')).SaveToStream(Ptkwrd);
 Ptkwrd.Position:=0;
 Ptkwrd.SaveToFile('temp.doc');
 ShellExecute(0,'open','temp.doc',nil,nil,SW_SHOWNORMAL);
 Ptkwrd.Free;
end;

Iska · Отправлено: **14:47, 31-03-2012** | #3

game_Racer, всё правильно. Только это никак не сделает содержимое указанного поля «OLE'мным».

game_Racer · Отправлено: **14:54, 31-03-2012** | #4

Iska, Так мне по сути это и не нужно. К бд кроме как из моей проги доступа не будет.

Iska · Отправлено: **16:41, 31-03-2012** | #5

game_Racer, ясно. Смутило именно упоминание в контексте OLE вместо BLOB.