delphi 使用API返回网页信息

来源：互联网发布：淘宝未评价就删除订单编辑：程序博客网时间：2024/06/09 19:53

uses WinInet

 function GetIp(Url: PChar): string;  //向网页提交GET信息函数 
var
  ErrCode: string;
  hInternets, hInternetFiles: HINTERNET;
  dwOut: DWORD;
  lpBuffer: array[0..4096] of Char;
begin
  ErrCode := 'heihei';
  Result := ErrCode;
  hInternets := InternetOpen('Huai_Huai', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if hInternets = nil then   
  begin
    Result := ErrCode;
    Exit;
  end;
  hInternetFiles := InternetOpenUrl(hInternets, url, nil, 0, INTERNET_FLAG_DONT_CACHE or INTERNET_FLAG_RELOAD or INTERNET_FLAG_TRANSFER_BINARY, 0);
  if hInternetFiles = nil then   
  begin
    InternetCloseHandle(hInternets);    
    Result := ErrCode;    
    Exit;
  end;
  dwOut := 0;    
  Fillchar(lpBuffer, sizeof(lpBuffer), 0);    
   
  if InternetReadFile(hInternetFiles, @lpBuffer, 4096, dwOut) then
    Result := lpBuffer
  else
    Result := ErrCode;
  InternetCloseHandle(hInternets);
end;