Re: Gif

Return to index

Author

Message

Marc

Posted: 01/22/2003 4:22:51

I have RegisterClass(tgifimage). And have read the section in the helpfile

extensively. I am using Delphi 5 and have used a similar coding to what is

included in one of the demos, here is part:

else if (ext='.GIF') then

  gr := TGifImage.Create

if gr<>nil then begin

      gr.LoadFromFile(OpenDialog1.FileName);

      rve.InsertPicture('',gr,rvvaBaseLine);

    end;

The GIF file inserts into the rve perfectly. The problem is with the save

routine. Further to my previous comments I can confirm that the part of the

SaveRecord routine that causes the application to crash completely with no

error message is:

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

Any ideas?

Thanks

"Sergey Tkachenko" <[email protected]> wrote:

>Also, do not forget to register TGifImage:

>

>RegisterClass(TGifImage) in the initialization of the main form unit.

>

>Besides, if you use Delphi version  prior to 6, you need to write some

>additional code.

>See "How to use third-party graphic classes in RichView" topic in the help

>file.

>

>