delphi 获取网页源代码

//获取网页源代码

var

  s: string;

begin

  s := WebBrowser1.OleObject.document.body.innerHTML;
//body内的所有代码

  s := WebBrowser1.OleObject.document.body.outerHTML; //body内的所有代码,
包含body标签

  s := WebBrowser1.OleObject.document.documentElement.innerHTML;
//html内的所有代码

end;

来自为知笔记(Wiz)