循环打开网址,在打开一个后延时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));














...全文
277 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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;
s11ss 2010-02-06
  • 打赏
  • 举报
回复
笔误,不是TTime,是TTimer
s11ss 2010-02-06
  • 打赏
  • 举报
回复
TTime
CreateThread / TThread
gyk120 2010-02-06
  • 打赏
  • 举报
回复
TTtimer或者GetTickCount都可以代替sleep

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧