🚀 go-pugleaf

Adam wrote:
> I mean how to get all links within the web pages. Thanks.

To get and show the links from the page displayed by TCppWebBrowser:

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
   AnsiString AllLinks = "";

   IHTMLDocument2 *HTMLDoc = NULL;

   if(SUCCEEDED(CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&HTMLDoc)))
      {
      IHTMLElementCollection *pAll = NULL;

      if(SUCCEEDED(HTMLDoc->get_links(&pAll)))
         {
         long collSize;
         pAll->get_length(&collSize);
         IDispatch* id;
         VARIANT one;
         for( int idx = 0; idx < collSize; idx++)
            {
            one.vt = VT_UINT;
            one.lVal = idx;
            VARIANT two = {0};
            pAll->item(one,two,&id);
            IHTMLElement* pElem = NULL;
            id->QueryInterface( IID_IHTMLElement, (LPVOID*)&pElem );
            BSTR bstr = NULL;
            pElem->toString(&bstr);

            AllLinks += bstr;
            AllLinks += "\n";
            }
	
	pAll->Release();
         }

      HTMLDoc->Release();
      }

   ShowMessage ( AllLinks );
}

Hans.