Из Blob в RichEdit

[pr0user]

Здравствуйте!
Задача следующая:
Имеется БД (PostgreSQL) требуется в одной из таблиц хранить doc файлы и уметь их просматривать в RichEdit (мне известно, что doc файлы хранить в БД не стоит, но все же мне нужно сделать именно это).
Так как с подобным я никогда не сталкивался, начал пробовать разбираться и по примерам смог добиться следующего:
по нажатию на кнопку данные из одного doc файла сохраняются в БД, а по нажатию на другую кнопку выгружаются из БД в другой doc. (если требуется я могу привести код)
Но как я указал выше мне нужно просматривать содержимое doc файла, хранящегося в БД в RichEdit. А как это сделать никак не могу разобраться.
Последнее до чего я дошел это:

procedure TForm1.BitBtn6Click(Sender: TObject);
var
blob: TStream;
MS: TStream;
begin
MS:= TMemoryStream.Create;
  try
    blob := Form1.ZQuery1.CreateBlobStream(Form1.ZQuery1.FieldByName('docblob'), bmRead);
    blob.Seek(0, soFromBeginning);
      try
        MS.CopyFrom(blob, blob.Size);
        Form1.RichEdit1.Lines.LoadFromStream(MS);
      finally
      MS.Free;
      end;
    finally
      blob.Free;
    end;
end;

Но при нажатии на кнопку RichEdit пустой.
Прошу натолкнуть меня на нужные рельсы и по возможности привести пример кода. Спасибо.

Узнал, что RichEdit может только *.rtf отображать, тогда хотя бы как *.rtf отобразить?

[mihali4]

Попробуйте вот так:

procedure TForm1.BtnGetClick(Sender: TObject);
var
  bs: TBlobStream;
begin
  bs := nil;
  with ZQuery1 do
    try
      open;
      first;
      bs := TBlobStream.Create('docblob', bmread);
      Richedit1.plaintext := false;
      Richedit1.Lines.Loadfromstream(bs);
    finally
      bs.free;
      close;
    end;
end;

[pr0user]

mihali4, большое спасибо, что ответили!
Можете подсказать, почему он ругаеться у меня на строку:

var
  bs: TBlobStream;

Вообще если я пишу TBlobStream или к примеру TMemoryStream он пишет:

Undeclared identifier: 'TBlobStream'

хотя я по идее его объявляю.

А если я пишу:
TStream;
то все нормально.

А если я в вами приведенном коде пишу:

var
  bs: TStream;

То ему не нравится строка:
bs:= TBlobStream.Create('docblob', bmRead);
и он снова пишет:

Undeclared identifier: 'TBlobStream'

и вот и еще на типы тоже пишет в этой же строке:

Incompatible types: 'TComponent' and 'String'

Я пишу в Delphi 7

Спасибо.

[mihali4]

А у вас в uses есть DBTables ?
TBlobStream объявлен там...

[pr0user]

Спасибо, этого не было.
Но он теперь мне пишет:

Incompatible types: 'TBlobField' and 'String'

в строке:

bs:= TBlobStream.Create('docblob', bmRead);

[mihali4]

А... это я напутал...

bs := TBlobStream.Create(docblob, bmread);

Так должно быть.
Кавычки лишние...

[pr0user]

И на этот уговор он не хочет соглашаться:

Undeclared identifier: 'docblob'

если без кавычек

[mihali4]

Елки-палки, ну поэспериментируйте...
Попробуйте ZQuery1docblob...

[pr0user]

Пробую вот так писать:

bs := TBlobStream.Create(Form1.ZTable1docblob, bmread);

Программа компилируется, но выскакивает исключение при нажатии на кнопку:

каких либо других вариантов не могу даже придумать

[mihali4]

Да уберите вы Form1.ZTable1docblob...
Зачем это лишнее указание ?
Вот вам рабочий пример, разбирайтесь:

В этом примере поле 'Table1Memo' это paradox 'formatted memo'. Оно так же может быть полем blob. 

Через TBlobStream содержимое контрола RichEdit можно загружать или сохранять в базу 
данных: 

procedure TForm1.BtnGetClick(Sender: TObject);
var
  bs: TBlobStream;
begin
  bs := nil;
  with Table1 do
    try
      open;
      first;
      bs := TBlobStream.Create(table1memo, bmread);
      Richedit1.plaintext := false;
      Richedit1.Lines.Loadfromstream(bs);
    finally
      bs.free;
      close;
    end;
end;

procedure TForm1.BtnPutClick(Sender: TObject);
var
  bs: TBlobStream;
begin
  bs := nil;
  with Table1 do
    try
      open;
      first;
      edit;
      bs := TBlobStream.Create(table1memo, bmwrite);
      Richedit1.plaintext := false;
      Richedit1.Lines.Savetostream(bs);
      post;
    finally
      bs.free;
      close;
    end;
end;