Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

Как сохранить RTF в TBlobField

Delphi , Базы данных , BLOB поля

Как сохранить RTF в TBlobField

Иисyс изменил твою жизнь. Сохранить? (Да/Нет)

В этом примере поле '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;

В статье описано как сохранять содержимоеRichEdit-компонента в TBlobField и обратно, используя классы TBlobStream и Richedit.


Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.


:: Главная :: BLOB поля ::


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-08-19 13:29:56
2024-11-13 07:32:01/0.0027451515197754/0