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

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

Code

usesWinInet;

functionGetWebPage(constUrl: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('/delphibbs/listq.asp');