本文整理自网络,侵删。
获取网页源代码的最简单办法,就是利用 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 编写activex控件(ocx控件)的知识和样例
Delphi xe5实现android 安卓 左侧或者右侧菜单功能
更多相关阅读请进入《Delphi》频道 >>