网页源代码提取，刷新后报系统错误(100分)

S

scdoudou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #1

procedure TForm2.Button1Click(Sender: TObject);
begin
form2.WebBrowser1.Navigate('http://news.sina.com.cn');
timer1.Interval := 5000 ;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
doc:IHTMLDocument2;
htmstr1:string;
begin
doc:=IHTMLDocument2(webbrowser1.document);
htmstr:=doc.body.outerhtml;
RichEdit1.Text:=htmstr;
end;



procedure TForm2.Timer1Timer(Sender: TObject);
begin
form2.WebBrowser1.Navigate('http://news.sina.com.cn');
Form2.Button2Click(sender);
end;

end.

 

S

scdoudou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #2

对htmstr:=doc.body.outerhtml;系统报access violation...错误

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #3

还有个timer事件里有什么代码

 

S

scdoudou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #4

procedure TForm2.Timer1Timer(Sender: TObject);
begin
form2.WebBrowser1.Navigate('http://news.sina.com.cn');
Form2.Button2Click(sender);
end;
就是这个

 

S

scdoudou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #5

htmstr是一个public变量

 

S

scdoudou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #6

没有回答[]

 

小

小笨象

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-24

• #7

你必须要等网页下载完了，你才可以得到源代码。
不然就会出错的。

 

K

kouchun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-24

• #8

改一下:
procedure TForm1.Button2Click(Sender: TObject);
var
doc:IHTMLDocument2;
begin
doc:=IHTMLDocument2(webbrowser1.document);
RichEdit1.Text :=doc.body.outerHTML;
end;

 

S

scdoudou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-26

• #9

接受答案了.