[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

From: Mike Bardill <rrmike@minster.york.ac.uk>


Saving a TRichEdit to a file and storing the file is a perfectly good way
of saving the data to the table, but the same can be achieved without an
intermediate file by using a TBlobStream. The example below is for reading
a TRichEdit from a table, but a similar approach 'in reverse' with a
bmWrite will save into the table.


--------------------------------------------------------------------------------


procedure ReadRichEditFromTable(Table : TTable; var RichEdit : TRichEdit);
var
  BlobStream : TBlobStream;
begin
  try
    BlobStream := TBlobStream.Create(Table.FieldByName('BODY') as TBlobField, bmRead);
    if (not Table.FieldByName('BLOBFieldName').IsNull) then
    begin
      RichEdit.Lines.LoadFromStream (BlobStream);
    end;
  finally
    BlobStream.Free;
  end;
end;

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]