问一个关于for to do 的问题(50分)

J

jjm1227

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #1

for i:=0 to 1500 do
begin
memo1.text.add(idhttp1.get('http://******.com/id.asp?id='+inttostr(i)));
end;

在这里它做从0到1500的循环.但是在做的过程中.它没有响应.要过一会儿循环结束后才可以有响应.
请问怎么做才可以让它在循环的时候也有响应,就是可以动这个程序?

 

R

RedBeret

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #2

for i:=0 to 1500 do
begin
application.processmessage; //加上这一行
memo1.text.add(idhttp1.get('http://******.com/id.asp?id='+inttostr(i)));
end;

 

J

jjm1227

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #3

谢谢你RedBeret
但我还有一个疑问.就是上面的程序.内存占用是100%的 还有就是拖拉程序窗口就会卡死.
这个又怎么搞定.谢谢.

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #4

呵呵,你用线程吧.indy的get是阻塞的,铁定会让你的主界面难受的.你的要求,用线程实现,也就是几行代码而已.

 

B

ball_cao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #5

同意楼上的

 

J

jjm1227

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #6

shangshang
你可以写一下代码出来吗?谢谢

 

J

jjm1227

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-11

• #7

接受答案了.