没有frame 的,有frame 的还没搞定

uses MSHtml;

var
doc:IHTMLDocument2;
theList:TStringList;
begin
doc := WebBrowser1.document as ihtmldocument2;
theList:=TStringList.Create;
theList.Add(doc.body.outerHTML);
theList.SaveToFile(logfile);
theList.Free;
end;