Delphi 获取网页源代码的最简单办法

现在Delphi 7旧版的indy配合2001年动态链接库dll也无法访问某些https网页了，幸好百度发现了以下这篇文章。来源页面：Delphi 获取网页源代码的最简单办法

获取网页源代码的最简单办法，就是利用 WinInet 单元中的函数：

uses WinInet;

function GetWebPage(const Url: string):string;

var

  Session,

  HttpFile:HINTERNET;

  szSizeBuffer:Pointer;

  dwLengthSizeBuffer:DWord;

  dwReserved:DWord;

  dwFileSize:DWord;

  dwBytesRead:DWord;

  Contents:PChar;

begin

  Session:=InternetOpen('',0,niL,niL,0);

  HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);

  dwLengthSizeBuffer:=1024;

  HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);

  GetMem(Contents,dwFileSize);

  InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);

  InternetCloseHandle(HttpFile);

  InternetCloseHandle(Session);

  Result:=StrPas(Contents);

  FreeMem(Contents);

end;

使用时，直接把收到的源代码显示出来：

Memo1.Text := GetWebPage('http://www.delphitop.com/');