delphi 使用API返回网页信息

uses WinInet

1.  function GetIp(Url: PChar): string;  //向网页提交GET信息函数
2. var
3.   ErrCode: string;
4.   hInternets, hInternetFiles: HINTERNET;
5.   dwOut: DWORD;
6.   lpBuffer: array[0..4096] of Char;
7. begin
8.   ErrCode := 'heihei';
9.   Result := ErrCode;
10.   hInternets := InternetOpen('Huai_Huai', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
11.   if hInternets = nil then   
12.   begin
13.     Result := ErrCode;
14.     Exit;
15.   end;
16.   hInternetFiles := InternetOpenUrl(hInternets, url, nil, 0, INTERNET_FLAG_DONT_CACHE or INTERNET_FLAG_RELOAD or INTERNET_FLAG_TRANSFER_BINARY, 0);
18.   if hInternetFiles = nil then   
19.   begin
20.     InternetCloseHandle(hInternets);    
21.     Result := ErrCode;    
22.     Exit;
23.   end;
24.   dwOut := 0;    
25.   Fillchar(lpBuffer, sizeof(lpBuffer), 0);    
26.    
27.   if InternetReadFile(hInternetFiles, @lpBuffer, 4096, dwOut) then
28.     Result := lpBuffer
29.   else
30.     Result := ErrCode;
32.   InternetCloseHandle(hInternets);
33. end;