delphi 获取webbrowser的cookies给Idhttp用

网上方法一：(可获取，但不完全)

引用mshtml;

IHTMLDocument(wb1.Document).cooke;

网上方法二：（获取不到！）

引用winnet,使用InternetGetCookieEx

function GetCookie(url: string): string;

const

  INTERNET_COOKIE_HTTPONLY     = $00002000;

  INTERNET_COOKIE_THIRD_PARTY  = $00000010;

  INTERNET_FLAG_RESTRICTED_ZONE= $00020000;

var

  hModule:THandle;

  InternetGetCookieEx:function(lpszUrl, lpszCookieName,lpszCookieData: PChar; var lpdwSize: DWORD;dwFlags:DWORD;lpReserved: Pointer): BOOL;StdCall;

  CookieSize:DWORD;

  cookiedata:PWideChar;

  thebool:bool;

begin

  result := '';

  hModule:=GetModuleHandle('wininet.dll');

  if hModule<>0 then

  begin

    @InternetGetCookieEx:=GetProcAddress(hModule,'InternetGetCookieExW');

    if @InternetGetCookieEx<>nil then

    begin

      CookieSize:=10240;

      Cookiedata := AllocMem(CookieSize);

      thebool:=InternetGetCookieEx(PWideChar(url),nil,CookieData,CookieSize,INTERNET_COOKIE_HTTPONLY,nil);

      if thebool then result := CookieData;

      FreeMem(Cookiedata);

    end;

    FreeLibrary(hModule);

  end;

end;

方法三：

引用winnet,直接调用InternetGetCookie

function GetWBCookies(URL: string): string;

var

  data : array[0..10240] of Byte;

  datalen : cardinal;

begin

  Result  := '';

  datalen := sizeof(data);

  if InternetGetCookie(PChar(URL), nil, @data,datalen) then

    Result := PChar(@data);

end;