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

Материал из DRKB

Как сохранить RTF в TBlobfield?[править | править код]

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



Source: Взято из http://forum.sources.ru
ID: 02464