循环打开网址，在打开一个后延时10秒后，打开下一个网址，怎么实现？

lostmoon 2010-02-06 12:28:42

用webbrowser循环打开网站，在打开一个后延时10秒后，打开下一个网址，怎么实现？

用sleep(10000)直接死机了一样







or i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do



webbrowser2.Navigate(Webbrowser1.OleObject.Document.Links.Item(i));

...全文

263 10 打赏收藏举报

写回复

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

Duyuf 2010-02-27

打赏
举报

Timer设为10000ms

xjjrocker 2010-02-26

打赏
举报

用4楼或者8楼的方法就行了，都比较常用。

nmfsor 2010-02-08

打赏
举报

procedure TForm1.tmr1Timer(Sender: TObject);
begin
//执行代码，
end;
end.
//我确实比较服从不看书，一个问题一个问题扣的人，因为我也是这样的人

jadeluo 2010-02-08

打赏
举报

建议用个Timer吧, Sleep(5000)这种用法会让你的程序挂在那里的:



var

  iIndex : Integer;



procedure TForm1.FormCreate(Sender: TObject);

begin

  Timer1.Enabled := False;

  iIndex := -1;

  Timer1.Interval := 10000;

  Timer1Timer(nil);

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Timer1.Enabled := False;

  inc (iIndex);

  if iIndex >= ListBox1.Count then iIndex := 0;

  if iIndex < ListBox1.Count then WebBrowser2.Navigate(ListBox1.Items[iIndex]);

  Timer1.Enabled := True;

end;

slmax1 2010-02-07

打赏
举报

在线程中SLEEP 不会假死

dd_zhouqian 2010-02-06

打赏
举报

用线程吧，主线程sleep会假死的

iseekcode 2010-02-06

打赏
举报

可以用这个延时函数:

procedure Delay(dwMilliseconds: Longint);
var
iStart, iStop: DWORD;
begin
iStart := GetTickCount;
repeat
iStop := GetTickCount;
Application.ProcessMessages;
until (iStop - iStart) >= dwMilliseconds;
end;