Loading from Blobs

Return to index

Author

Message

Douglas Keene, M.D.

Posted: 11/28/2004 2:27:53

Howdy

I'm having trouble loading from streams where I can load the stream into a

Delphi RichEdit control:

      BlobField := Datamodule2.IBQuery1.FieldByName('ENCBTEXT');

      try

         BIS:=TStream.Create;

         BIS := Datamodule2.IBQuery1.CreateBlobStream(BlobField,

bmReadWrite);

         //This does not work

         FormEdit1.RichViewEdit1.LoadRTFFromStream(BIS);

         Bis.Position:=0;

         //This does work.

         FormEdit1.RichEdit1.Lines.LoadFromStream(BIS);

      finally

         BIS.Free;

      end;