如何提取HTML代码里的Src连接..比如Img和BgSound的SRC...

[GuoJunWei]

如何提取HTML代码里的Src连接..比如Img和BgSound的SRC...希望各位高手指点一下.小弟先谢谢了.
另外谁有邮件那方面的代码..给一份....

[ccrun.com]

//---------------------------------------------------------------------------
#include <mshtml.h>
#include <comobj.hpp>

//---------------------------------------------------------------------------
// 获取指定页面的所有图片链接，保存到pList中
int CrnGetHtmlImageList(IHTMLDocument2 *spDoc, TStrings *pList)
{
pList->Clear();

IHTMLElementCollection *pEleColl;
IHTMLAnchorElement *pAnchorElement;
IHTMLImgElement *pImgElement;
IHTMLEmbedElement *pEmbedElement;
IHTMLScriptElement *pScriptElement;
IHTMLFormElement *pFormElement;

IDispatch *pDisp = NULL;
long lItemLen;
int nLen(0);
LPWSTR lpwAnchorHref, lpwSrc, lpwText, lpwFormAction;
spDoc->get_images(&pEleColl);
VARIANT vTemp, vIndex;
// 63 63 72 75 6E 2E 63 6F 6D
pEleColl->get_length(&lItemLen);
for(long i=0; i<lItemLen; i++)
{
vIndex.vt = VT_I2;
vIndex.lVal = i;
pEleColl->item(vIndex, vTemp, &pDisp);
if(pDisp == NULL)
continue;
if(SUCCEEDED(pDisp->QueryInterface(
IID_IHTMLImgElement, (void **)&pImgElement)))
{
pImgElement->get_src(&lpwSrc);
pList->Add(lpwSrc);
nLen++;
pImgElement->Release();
}
}
return nLen;
}
//---------------------------------------------------------------------------
// 从CppWebBrowser窗口获取 IHTMLDocument2接口
IHTMLDocument2 *__fastcall CrnGetDocInterfaceFromCwb(TCppWebBrowser *cwb)
{
IHTMLDocument2 *spDoc = NULL;
if(!cwb->Busy && cwb->Document != NULL)
cwb->Document->QueryInterface(
::IID_IHTMLDocument2, reinterpret_cast<void**>(&spDoc));
return spDoc;
}
//---------------------------------------------------------------------------
// 测试代码
void __fastcall TForm1::Button1Click(TObject *Sender)
{
CppWebBrowser1->Navigate(WideString("www.ccrun.com"));
while(CppWebBrowser1->Busy)
Application->ProcessMessages();
CrnGetHtmlImageList(CrnGetDocInterfaceFromCwb(CppWebBrowser1), Memo1->Lines);
}
//---------------------------------------------------------------------------
结果类似于：
http://www.ccrun.com/!image/logo.gif
http://www.ccrun.com/!image/banner.gif
http://www.ccrun.com/!image/014.gif
http://www.ccrun.com/!image/bg1.gif
http://www.ccrun.com/!image/user.gif
http://www.ccrun.com/forum/forum_images/log_off_icon.gif
http://www.ccrun.com/!image/forumnewtopic.gif
...