BLOB поле

[artemavd]

Возникла необходимость загружать очень большой объем текста в БД. Использую БД Paradox, BDE. Слышал, что для этого нужно использовать 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;

Мне не понятны в этих кодах некоторые слова. Что значат вот эти названия?
tblobfield, ptkwrd. Поясните пожалуйста? Может есть еще какие-нибудь способы хранения большого текстс в БД?

[artemavd]

Я разобрался с предыдущим вопросом. Помогите пожалуйста переделать код чтения из BLOB поля, чтобы текст выводился из поля например в Memo. Код:

//запись
procedure TForm1.BitBtn6Click(Sender: TObject);
var
 Blob: TBlobStream;
begin
 if OpenDialog1.Execute then
 begin
  Query1.Insert;
  TBlobField(Query1.FieldByName('TEKST')).LoadFromFile(OpenDialog1.FileName);
  Query1.Post;
 end;
end;

//чтение
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;

Как переделать код?)

[Stilet]

Дык это... Просто кинь на форму DBMemo и настрой его на базу и поле...

[artemavd]

Эээ...ну да, точно. Ну вот добавил я его щас и настроил на пооле, но вместо текста отображаются какая-то строчка с иероглифами, а сам текст не показывается. У меня правильно процедуры записаны-то?

[Stilet]

artemavd

Стоп! А что в Мемо поле хранится? В какой кодировке? Какая информация?

[artemavd]

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

А что в Мемо поле хранится?

Не понял. В смысле в таблице у которого типа поля Memo?

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

В какой кодировке? Какая информация?

Информация обычная. Обычный вордовский документ с расширением .doc. Нужно его содержимое загрузить в BLOB-поле, чтобы в дальнейшем путем запроса его отображать.

[Stilet]

вордовский документ

А-а-а вот де собака прирыла...
простой МЕМО его не отобразит.

Самое простое выгрузить из БЛОБ во временный DOC файл, и тупо его запустить (через ShelLExecute).

[artemavd]

Самое простое выгрузить из БЛОБ во временный DOC файл, и тупо его запустить (через ShelLExecute

Но у меня же будет много документов загружаться. Все же их во временный файл не выгрузишь. может все таки можно с вордовскими доками сделать?

[Stilet]

Все же их во временный файл не выгрузишь

Ну... Думаю что так всетки будет проще... Я не знаю лично компонентов, которые могут отображать DOC файлы...

[artemavd]

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

Я не знаю лично компонентов, которые могут отображать DOC файлы...

...из BLOB-полей?