Re: How to recognize e-maillinks

Return to index

Author

Message

Yernar Shambayev

Posted: 10/25/2004 17:20:25

See the demo:

\Assorted\Hypertext\URLs

"Pieter E." <[email protected]> wrote:

>

>How to recognize e-maillinks?  (mailto:)

>

>I've got the following code:

>

>void __fastcall TTekstFrame1::rveWriteHyperlink(TCustomRichView *Sender,

>int id, TCustomRVData *RVData, int ItemNo, TRVSaveFormat SaveFormat, AnsiString

>&Target, AnsiString &Extras)

>{

>  AnsiString aHyperlink = (char *)RVData->GetItemTag(ItemNo);

>  if(aHyperlink.Pos("www.") == 1) aHyperlink = "http://" + aHyperlink;

>  if(aHyperlink.Pos("@") >= 1)

>        {

>          aHyperlink = "mailto:" + aHyperlink;

>        }

>

>  Target = aHyperlink;

>}

>//---------------------------------------------------------------

>

>The 'mailto:' link doesn't work...

>(The hyperlink method works great!!)

>

>Any ideas?

>

>Thanks.

>

>Pieter E.