{
***函数名  : GetPageHtml
***函数说明: 获取当前页面的Html源代码
***参数    :
             sPageURL: 页面URL地址
             bState     : 成功状态
***返回值  : 返回成功状态(True表示成功,False表示失败)
}
function GetPageHtml(sPageURL: string; var bState: Boolean): string; stdcall;
var
    IdHttp: TIdHTTP;
    sHTMLCode: string;
begin
    try
        try      
            //创建IdHttp对象
            IdHttp := TIdHTTP.Create(nil);
            IdHttp.HandleRedirects := True;
            IdHttp.Request.UserAgent := 'Mozilla/5.0+(Windows+NT+6.1)+AppleWebKit/535.7+(KHTML,+like+Gecko)+Chrome/16.0.912.75+Safari/535.7+360EE';

            //获取页面Html源代码
            sHTMLCode := IdHttp.Get(sPageURL);
            if IdHttp.IOHandler <> nil then IdHttp.IOHandler.Close;
            IdHttp.Disconnect;

            Result := sHTMLCode;
            bState := True;   //成功
        finally
            FreeAndNil(IdHttp);
        end;
    except
        on e:Exception do
        begin
            Result := e.Message;
            bState := False;   //失败
        end;
    end;
end;