Delphi webbrowser 的一些方法

因为一个任务，最近几天一直在研究Webbrowser的相关功能，下面是收集到的一些方法

//根据URL获取请求Header
function GetAllHeaders(URL: string): string;
var
  hSession: HInternet;
  hURL: HInternet;
  hReq: HInternet;
  bRet: Boolean;
  sBuff: String;
  lBuffLen:DWord;
  dwParam: DWord;
  aResult: String;
  aServer: string;
  aFilePath: string;
  I: Integer;
begin
  Result := 'Unknown error';
  aFilePath := URL;
  if pos('http://', aFilePath) = 1 then
    Delete(aFilePath, 1, 7); 
  aServer := SplitAtToken(aFilePath, '/');
  dwParam := 0;
  hSession := InternetOpen(
              'http generic',
              INTERNET_OPEN_TYPE_PRECONFIG, {use IE's setup to conect to the web}
              nil, nil, 0);
  try
    if hSession = nil then
      Exit;
   
     hURL := InternetConnect(hSession,
                            PChar(aServer), {the server we wants to conect to}
                            INTERNET_DEFAULT_HTTP_PORT, nil, nil,
                            INTERNET_SERVICE_HTTP, 0, 1);
    try
      if hURL = nil then
        Exit;
      

      hReq := HttpOpenRequest(hURL,
                              nil, {nil defaults to the 'GET' verb}
                              PChar(aFilePath), {actual file on the server}
                              HTTP_VERSION, nil, nil,
                              INTERNET_FLAG_RELOAD, 0);
      try
        if hReq = nil then
          Exit;
        if not HttpSendRequest(hReq, nil, 0, 0, 0) then
          Exit;
        SetLength(sBuff, 1024); //set plenty of room in buffer
        lBuffLen := Length(sBuff);

        bRet := HttpQueryInfo(hReq,
                HTTP_QUERY_RAW_HEADERS_CRLF, {get all headers in one move}
                @sBuff[1], lBuffLen, dwParam);
        if bRet then
          Result := sBuff
        else
          Result := 'QueryInfo error = '+IntToStr(GetLastError);
      finally
        InternetCloseHandle(hReq);
      end;
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

　　

//获取 WebBrowser 控件当前显示页面的Html
function GetCompleteHTMLSource(wb: TWebBrowser) : string;
var
  iDoc: IHTMLDocument2;
  iall : IHTMLElement;
begin
  Result := '';
  if Assigned(wb.Document) then begin

    iDoc := wb.Document as IHTMLDocument2;
    iall := iDoc.body;

    while iall.parentElement <> nil do begin
      iall := iall.parentElement;
    end;

    Result := iall.outerHTML;
  end;
end;