delphi 使用API返回网页信息

最新推荐文章于 2022-09-22 14:52:40 发布

翻译最新推荐文章于 2022-09-22 14:52:40 发布 · 798 阅读

文章标签：

#delphi #api #internet #url

Delphi 专栏收录该内容

24 篇文章

订阅专栏

本文介绍了一个使用Delphi的WinInet组件从指定URL获取IP地址的方法。通过创建函数GetIp，利用InternetOpen、InternetOpenUrl及InternetReadFile等API实现网页GET请求，并读取返回的数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;