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

时间:2010-01-30 12:18:56  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:br />function GetWebPage(const Url: string):string;varSession,HttpFile:HINTERNET;szSizeBuffer:Pointer;dwLengthSizeBuffer:DWord;dwReserved:DWord;dwFileSize:DWord;dwBytesRead:DWord;Contents:PChar;begin  Session:=InternetOpen('',0,niL,niL,0);  HttpFile:=InternetOpenUrl(S...
  正文:获取网页代码的最简单办法,就是利用 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.tommstudio.com/');

获取网页源代码的最简单办法》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12659.html


关键字:

关于《获取网页源代码的最简单办法》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td