missing link

Return to index

Author

Message

Jeff

Posted: 08/20/2002 7:11:51

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();

}