HttpQueryInfo的使用

BOOL WINAPI HttpQueryInfo(

HINTERNET hRequest,

DWORD dwInfoLevel,

LPVOID lpBuffer,

LPDWORD lpdwBufferLength,

LPDWORD lpdwIndex

);

参数：

hRequest：HTTP请求返回的句柄。

dwInfoLevel：指定的属性的组合查询和请求进行修改的标志，下面的表显示了可能的属性值。

lpBuffer：指针指向的缓冲区，接收的信息。

lpdwBufferLength：指针的值包含的数据缓冲区的长度。

lpdwIndex：长指针，用于列举多个具有相同名称的头一个从零开始的头索引，不需要可设置为NULL。

链接库：Wininet.lib

下面是dwInfoLevel的取值：

例子：

procedure Get(const url: string; head, res: TStream);
var
  hInt, hUrl: HINTERNET;
  buffer: PChar;
  dwRead: cardinal;
  flag: Boolean;
  len, index: Cardinal;
begin
  GetMem(buffer, 65536);
  hInt := InternetOpen('Delphi', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  hurl := InternetOpenUrl(hInt, PChar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);
  len := 65536;
  index := 0;
 //查询响应头信息
  flag := HttpQueryInfo(hUrl, HTTP_QUERY_RAW_HEADERS_CRLF, buffer, len, index);
  if flag then
  begin
    head.Write(buffer^, len);
    repeat
      if not InternetReadFile(hUrl, buffer, 1000, dwRead) then
        Break;
      if dwRead <> 0 then
        res.Write(buffer^, dwRead);
    until dwRead = 0;
  end;
  InternetCloseHandle(hUrl);
  InternetCloseHandle(hInt);
  FreeMem(buffer);
end;