C
cnhxjtoa
Unregistered / Unconfirmed
GUEST, unregistred user!
得到网页内容通常按下面的程序就可以实现!
别人问我得到这个http://www.500wan.com网页首页内容我硬是没撤了,也还真是怪了去了。
uses MSHTML;
procedure TForm1.Button1Click(Sender: TObject);
var
doc3 : IHTMLDocument3;
sl : TStringList;
begin
doc3:=WebBrowser1.Document as IHTMLDocument3;
sl := TStringList.Create;
sl.Text := doc3.documentElement.outerText; // 保存内容
// sl.Text := doc3.documentElement.outerHTML; 保存源文件
sl.SaveToFile('c:/1.txt');
sl.Free;
end;
别人问我得到这个http://www.500wan.com网页首页内容我硬是没撤了,也还真是怪了去了。
uses MSHTML;
procedure TForm1.Button1Click(Sender: TObject);
var
doc3 : IHTMLDocument3;
sl : TStringList;
begin
doc3:=WebBrowser1.Document as IHTMLDocument3;
sl := TStringList.Create;
sl.Text := doc3.documentElement.outerText; // 保存内容
// sl.Text := doc3.documentElement.outerHTML; 保存源文件
sl.SaveToFile('c:/1.txt');
sl.Free;
end;