Re: missing link

Author

Message

Jeff

Posted: 08/21/2002 7:58:14

Hi,

It fixed now after i turn on the rvoTagsArePChars.

Thanks

"Jeff" <[email protected]> wrote:

>Hi,

>I try to make the text and image as hyperlink. They are fine when i create

>the rvf file and export to html. No matter how many times i reopen the rvf

>and export to html again. But if i quit the applicaiton and reopen the rvf

>file it seems ok from the rvf view, if i export to html most of the hyperlink

>will missed.

>Any ideas?

>here my code.

>rveURLNeeded(...){

> int itemNo;

> int tNo;

> AnsiString mURL;

> TCustomRVFormattedData *RVData;

> rve->GetJumpPointLocation(id, RVData, itemNo);

> tNo = RVData->GetItemTag(itemNo);

> mURL = AnsiString ((char*) tNo);

> if(IsHTTP(mURL))

> url = mURL;

> else

> url = "http://" + mURL;

>// create the hyper link //

>winMakeLinkExecute(...)

> int itemNo;

> int tag;

> int style;

> AnsiString url;

> style = rve->CurItemStyle;

> if(style == -3){

> url = InputBox("Image Link", "URL", "URL");

> if(url.AnsiCompareIC("url") == 0)

> return;

> if(!IsAddress(url)){

> ShowMessage("Invalid URL address.");

> }

> // save to memory stream

> // delete current img

> // insert hotpicture

> TGraphic *gr2 = new TJPEGImage;

> saveToMemStream();

> if(exPms->Size > 0){

> rve->Selecting();

> rve->DeleteSelection();

> exPms->Position = 0;

> gr2->LoadFromStream(exPms);

> rve->InsertHotPicture("", gr2,rvvaBaseline);

> itemNo = rve->CurItemNo;

> tag = (int) StrNew(url.c_str());

> rve->SetCurrentTag(tag);

> }

> } else {

> url = InputBox("Text Link", "URL", "URL");

> rve->ApplyTextStyle(4);

> itemNo = rve->CurItemNo;

> tag = (int) StrNew(url.c_str());

> rve->SetCurrentTag(tag);

> }

> rve->Format();