Re: Export to HTML: Relative paths for images?

Return to index

Author

Message

Sergey Tkachenko

Posted: 10/22/2002 14:47:23

Paths for images should be always relative.

There is a bug in the demo using this event (Demos\Delphi\Assorted\Save HTML

and Table Hypertext\)

This demo stores absolute path to images.

Fixed code fragment of this demo:

rvsPicture, rvsHotPicture:

      begin

        // Assigning image to GIF and saving

        // (metafiles and icons will be saved with transparency)

        gif := TGifImage.Create;

        try

          RVData.GetPictureInfo(ItemNo, s, gr, AVAlign, ATag);

          gif.Assign(gr);

          Location := RVData.GetNextFileName(Edit2.Text, Path, '.gif',

RichView1.imgSaveNo, Checkbox1.Checked);

          gif.SaveToFile(Location);

          Location := ExtractFileName(Location); // <-- THIS MUST BE ADDED

          DoDefault := False;

        finally

          gif.Free;

        end;

      end;

> Hi Sergey,

>

> Do I need to use the OnHTMLSaveImage event?

> Thanks,

>

> Frank de Groot

>

>

>