Получить все ссылки со страницы сайта

#include "mshtml.h"
TStringList *mass_link = new TStringList();  // массив ссылок, из html
 
void getLinksFromDoc(IHTMLDocument2 *pDoc)
{
    TComInterface<IHTMLElementCollection> pCollection;
    if(SUCCEEDED(pDoc->get_links(&pCollection)))
    {
        TComInterface<IDispatch> pDisp;
        long len;
        pCollection->get_length(&len); // всего ссылок
        for(long i = 0; i < len; i++)
        {
            TComInterface<IDispatch> pDisp;
            if(SUCCEEDED(pCollection->item(TVariant(i), TVariant(0), &pDisp)))
            {
                TComInterface<IHTMLElement> pElement;
                if(SUCCEEDED(pDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement)))
                {
                    WideString link;
                    pElement->toString(&link);
                    //pElement->click();
                    mass_link->Add(link);
                }
            }
        }
    }
}
 
 
void get_link(int brauser_num)
{ // получить все ссылки находящиеся на странице
 
    mass_link->Clear();      //очищаем массив
    TCppWebBrowser *CppWB = Form1->CppWebBrowser1; // Здесь выбирай, с чем работать
 
 
    IHTMLDocument2 *pHTMLDocument = NULL ;
    try
    {
        if( SUCCEEDED(CppWB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pHTMLDocument)) )
        {
            IDispatch* iDisp;
            IHTMLDocument2* iDoc;
            IHTMLFramesCollection2 *pFrames = NULL;
            long frameCount = 0;
 
            if(SUCCEEDED(pHTMLDocument->get_frames(&pFrames)))
            {
                pFrames->get_length(&frameCount);
                VARIANT vFrame;
                VARIANT ret;
                vFrame.vt = VT_UINT;
 
                for(long frameIx = 0; frameIx < frameCount; frameIx++)
                {
                    vFrame.lVal = frameIx;
                    if(SUCCEEDED(pFrames->item(&vFrame, &ret)))
                    {
                        IHTMLWindow2 *pWindow = NULL;
                        if(SUCCEEDED(ret.pdispVal->QueryInterface(IID_IHTMLWindow2, (LPVOID*)&pWindow)))
                        {
                            IHTMLDocument2 *pDoc = NULL;
                            if(SUCCEEDED(pWindow->get_document(&pDoc)))
                            {
                                getLinksFromDoc(pDoc);
                            }
                        }
                    }
                }
            }
 
            getLinksFromDoc(pHTMLDocument);
        }
    }
    catch (Exception &exception)
    {
        // ...
    }
}