关于服务的一个问题(100分)

H

huhu7451

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #1

关于服务的一个问题，注册服务并启动后，竟占用CPU99%资源，怀疑问题出在下面程序，
ss为serversocket，服务器端以服务形式与客户端通讯。
procedure Tps2.ServiceExecute(Sender: TService);
begin
try
SS.Port := 9000;
SS.Active := True;
while not terminated do
begin
servicethread.ProcessRequests(false);
end;
ss.Active:=false;
finally
end;
end;

 

D

dongberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-06

• #2

你要使用Sleep
procedure Tps2.ServiceExecute(Sender: TService);
begin
try
SS.Port := 9000;
SS.Active := True;
while not terminated do
begin
servicethread.ProcessRequests(false);
end;
Sleep(3000)//3秒.
ss.Active:=false;
finally
end;
end;

 

H

huhu7451

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #3

to dongberlin:
不对呀，还是老样子，CPU占用99%。

 

J

jackliew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #4

在while循环中sleep!!!

 

H

huhu7451

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #5

to jackliew:
在while循环中sleep,我用过，反应速度很慢的。

 

N

netfun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #6

啊呀，我也碰到过，后来解决了，具体过程忘了 (

 

H

huhu7451

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #7

thanks

 

H

HeXiang Lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-20

• #8

您是怎么解决的呀，我也是出现你一样的问题呀。
加了Sleep还是不行.
我是用了线程的。