L
lcl_003
Unregistered / Unconfirmed
GUEST, unregistred user!
我要和另外一台机器进行通讯,为了不影响通讯我使用了线程,因为要定时通讯所以在线程
里使用了goto,但是我发现如果我一创建这个线程cpu的占用率就是100%,打开窗体也变慢了
不知道是不是因为线程的原因,这样做可以吗?或者有什么好的办法?
procedure MyThread.Execute;
var
time0,time1:integer;
label start1;
begin
time0:=timegettime();
start1:
time1:=timegettime();
if time1-time0>200 then
begin
do
something.........(和另外一台机器通讯)
end;
goto start1;
end;
里使用了goto,但是我发现如果我一创建这个线程cpu的占用率就是100%,打开窗体也变慢了
不知道是不是因为线程的原因,这样做可以吗?或者有什么好的办法?
procedure MyThread.Execute;
var
time0,time1:integer;
label start1;
begin
time0:=timegettime();
start1:
time1:=timegettime();
if time1-time0>200 then
begin
do
something.........(和另外一台机器通讯)
end;
goto start1;
end;