网站源代码获得方法

AnsiString  TForm1::WEB2HTMLCode()
{
    extern AnsiString str_CurrPath;
    AnsiString strCode;
   IHTMLDocument2 *HTMLDocument = NULL;
   if(SUCCEEDED(CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2,
      (LPVOID*)&HTMLDocument)))
   {
     IHTMLElement *pElement = NULL;
     HTMLDocument->get_body(&pElement);
     if (pElement)
     {
        WideString str;
        pElement->get_innerHTML(&str);

        strCode=AnsiString(str);
        strCode=replaceElement(strCode,"amp;","");
        strCode=replaceElement(strCode," "," ");
        pElement->Release();
     }
     HTMLDocument->Release();
   }
   return strCode;
}