Gif

Return to index

Author

Message

Marc

Posted: 01/21/2003 3:00:49

I'm using Anders TGifImage component. And have successfully inserted into

a RichViewEdit using InsertControl - and it appears fine. As soon as I try

to save it to a DB field my application just crashes out - no errors or exceptions,

just crashes.

Here is the routine I am using to save the rve to a DB field. Everything

else works (including saving a Tbutton I tried for testing). Any ideas? I've

tied RegisterClasses TGifImage and Timage.

function TfmMyApp.SaveRecord: boolean;

var Stream: TStream;

begin

  Stream := TMemoryStream.Create;

  try

    Stream.Position := 0;

    result:=rve.SaveRVFToStream(Stream,False);

    tblDBFile1.Edit;

    TBlobField(tblDBFile1.FieldByName('TEXT')).LoadFromStream(Stream);

    tblDBFile1.Post;

    Modified:=false;

  finally

    Stream.Free;

  end;

end;