一个WebBrowser的新鲜问题~(1分)

S

SexyGG

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-14

• #1

如何让WEBBROWSER1循环显示TStringList中的网址?
我的这个为什么老没反应???
var
StringList:TstringList;
begin
StringList:=TStringList.Create;
StringList.LoadFromFile('D:/Site.txt');
For i:= 0 to StringList.Count -1 do
Begin
WebBrowser1.Navigate(StringList.string);
end;
Stringlist.Free;

 

V

vfphome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-14

• #2

WebBrowser1.Navigate2(StringList.string);
ok

 

S

SexyGG

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-14

• #3

？？？？？
编译不了~~~~

 

A

asiasmm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-14

• #4

var
URL: OleVariant;
begin
URL := 'about:blank';
WebBrowser.Navigate2(URL);

另外你的那个循环是不是加个时间控制

 

S

SexyGG

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-14

• #5

这样行不行？
var
I:integer;
URL:OleVariant;
begin
for i:= 0 to stringlist.Count -1 do
begin
URL:= stringlist.Strings ;
webbrowser1.Navigate2(URL);
sleep(1000);
end;

为什么还是没反应呢？

 

H

HuangRenGX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-15

• #6

var
I:integer;
URL:OleVariant;
begin
for i:= 0 to stringlist.Count -1 do
begin
URL:= stringlist.Strings ;
webbrowser1.Navigate2(URL);
while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
end;

 

S

SexyGG

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-15

• #7

OK！
调试通过了
谢谢你HuangRenGX，还有其它帮助我的人们

 

S

SexyGG

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-17

• #8

调试通过是通过了
为什么我的程序关不了？

 

S

SexyGG

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-17

• #9

接受答案了.