Как сохранить 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