delphi 如何获取网页内容。万分火急

Question

小弟想用delphi实现 动态网页静态化
须先实现delphi获取要生成的html文件的内容，然后才能将将获取的html文件内容保存为html文件
请问如何实现
谢谢各位大侠

Answer 1

nmhttp 还是idhttp
请各位继续发言呀

Answer 2

来自：小雨哥, 时间：2003-2-22 4:49:00, ID：1637595
获取网页源代码的最简单办法，就是利用 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.delphibbs.com/delphibbs/listq.asp');