循环显示的问题(200分)

  • 主题发起人 主题发起人 huajianguo
  • 开始时间 开始时间
H

huajianguo

Unregistered / Unconfirmed
GUEST, unregistred user!
数据库中有一表有两字段:(字段图)和(循环时间),现在我要在界面上轮流显示表中的图,并且每幅图的显示(或停留)时间由字段(循环时间)来确定,所有的图片显示完毕后再自动从头再来,周而复始.怎么实现?主要是实现方法.

注意在delphi2007和intraweb环境下.
 
先读出来,比如读到adoquery里面,然后循环取,停留时间可以这样
sleep(adoquery1.fieldbyname('pause').asinteger)
 
试过,不行呀!
 
delphi2007和其自带的intraweb9.

procedure Tmainf.IWButton6Click(Sender: TObject);
begin
IWURLWindow1.URI:=IWEdit1.Text ;
end;

procedure Tmainf.IWTimer1AsyncTimer(Sender: TObject; EventParams: TStringList);
begin
IWURLWindow1.URI:=IWEdit1.Text ;
end;

按钮事件可以很好的执行即IWURLWindow1能够显示(IWEdit1.Text)所指定的页面.
但Timer就不能很好的执行,经查IWURLWindow1的URI值已经改变,但是页面就是不能显示出来.
请大家帮我看看是怎么回事?谢谢!
 
1 一次性或分多次读取至DataSet
2. 从第一条记录开始循环
3. 显示图片
4. GetTickCount..时间循环
5. 是否中止,中止跳转7
6. 满足时间要求显示下一条,跳转2
7. 退出
 
后退
顶部