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/');

 

相关阅读 >>

Delphi 检查字符串是不是 包含 中文和获取中文字符个数

Delphi fdquery获取字段类型

Delphi stopprocess 进程关闭函数

Delphi api 做的 serversocket 例子

Delphi 获取打开的记事本中的内容

Delphi 关闭sql server 数据库所有使用连接

Delphi的format使用总结

Delphi cb_addstring 与lb_addstring的区别？

Delphi 之 编辑框控件(tedit)

Delphi的with…do语句的用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 获取网页源代码的最简单办法