есть код который получает сылки из фреймов , но в этом месте не получает код документа фрейма
| Код |
IHTMLDocument2* pDoc = NULL;
if (SUCCEEDED(pWindow->get_document(&pDoc))) //
{
//pWindow->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc);
getLinksFromDoc(pDoc);
Form1->Memo3->Lines->Add("GOO EST");
// pHTMLDocument->Release();//ìîæåò áûòü
} //end if
|
сам код :
| Код |
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;
Form1->Label5->Caption=frameCount;
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))) //
{
//pWindow->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc);
getLinksFromDoc(pDoc);
Form1->Memo3->Lines->Add("GOO EST");
// pHTMLDocument->Release();//ìîæåò áûòü
} //end if
pWindow->Release();
}//end if
}//end if
pFrames->Release();
pHTMLDocument->Release();
}//end for
}
getLinksFromDoc(pHTMLDocument);
}
}
catch (Exception &exception)
{
// ...
}
|
|