Delphi 通过URL地址获取网页源码的方法

Delphi 通过URL地址获取网页源码的方法

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

uses WinInet, Classes, Windows;   function UrlGetStr(const URL: string; ShowHeaders: boolean = false): string; const   Agent = 'Internet Explorer 6.0'; var   hFile, HInet: HINTERNET;   Buffer: array[0..32767] of Char;   BufRead: Cardinal;   BufSize: Cardinal;   TempStream: TStringStream;   dwIndex: dword; begin   HInet := InternetOpen(PChar(Agent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);   if Assigned(HInet) then   try     hFile := InternetOpenUrl(HInet, PChar(URL), nil, 0, 0, 0);       TempStream := TStringStream.Create('');       dwIndex := 0;     BufSize := SizeOf(Buffer);       HttpQueryInfo(hfile, HTTP_QUERY_RAW_HEADERS_CRLF, @Buffer, BufSize, dwIndex);       if ShowHeaders then TempStream.Write(Buffer, BufSize);       if Assigned(hFile) then     try       with TempStream do       try         while InternetReadFile(hFile, @Buffer, BufSize, BufRead) and (BufRead > 0) do           Write(Buffer, BufRead);         Result := DataString;       finally         Free;       end;     finally       InternetCloseHandle(hFile);     end;   finally     InternetCloseHandle(hinet);   end; end;

　　

 

 

 

创建时间：2020.11.23　　更新时间