Re: SaveHTMLToStream

Return to index

Author

Message

Imagelib

Posted: 01/14/2004 0:01:12

Hi

I did find the answer here. Thanks anyway

procedure TEmailSendManagerForm.RichViewEdit1HTMLSaveImage(Sender:

TCustomRichView;

                                                           RVData:

TCustomRVData;

                                                           ItemNo: Integer;

                                                      const Path: String;

                                                            BackgroundColor:

TColor;

                                                        var Location:

String;

                                                        var DoDefault:

Boolean);

var

   s: String;

begin

  if (ItemNo >= 0) and((RVData.GetItemStyle(ItemNo)=rvsPicture)

or(RVData.GetItemStyle(ItemNo)=rvsHotPicture)) then begin

    s := RVData.GetItemText(ItemNo);

    if s <>'' then begin

      Location := s; //ExtractRelativePath(Path, s);

      DoDefault := False;

    end;

  end;

end;

Jan Dekkers

http://ImageLib.com  SkyLineTools

"Imagelib" <[email protected]> wrote in message

news:[email protected]...

> Hi

>

> I am a registered user. Using TRvHtmlImporter I do import an HTML into

> TRichView, Now I want to save it out to an HTML using SaveHTMLToStream but

I

> am losing my image tags "links"

>

> How to I prevent TRichView to rename my image links I just want to keep

them

> pointed to http: //blab/blab/blab.com/a.gif

>

> Jan Dekkers

>

> http://ImageLib.com  SkyLineTools

>

>