盒子论坛 v2.1

网上找的DELAY函数
procedure Delay(msecs:integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
    Tick := GetTickCount + DWord(msecs);
    while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      msecs := Tick - GetTickcount;
    end;
finally
    CloseHandle(Event);
end;
timer1周期为30秒，每隔一段时间（10-2000毫秒）发一个指令，这样会造成程序在运行期间很难关闭，或者打开子窗口一直都关掉，或者子窗口移动不了，请问是不是delay函数造成的呢？
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if radiobutton1.checked=true then
  begin
    if idtelnet1.Connected then
    begin
      idtelnet1.SendCh('1');
    end;
    delay(2000);
    if idtelnet1.Connected then
    begin
      idtelnet1.SendCh('2');
    end;
    delay(2000);
    if idtelnet1.Connected then
    begin
      idtelnet1.SendCh('3');
    end;
    delay(2000);
    if idtelnet1.Connected then
    begin
      idtelnet1.SendCh('4');
    end;
    delay(2000);
    if idtelnet1.Connected then
    begin
      idtelnet1.SendCh('%');
    end;
    delay(2000);
    if idtelnet1.Connected then
    begin
      idtelnet1.SendCh('！');
    end;
    delay(2000);
    if idtelnet1.Connected then
    begin
      idtelnet1.SendCh(#');
    end;
    ...
    ...
    ...
  end;
end;
如果只修改delay函数的话，有什么方法可以很快地解决呢？
----------------------------------------------
-

作者：

caiyang (caiyang)	▲▲▲▲▲	-
	普通会员

2011/9/16 19:47:34

1楼：

补充一下，期间程序运行是正常的，从我提取显示的数据可以看到程序一直都在处理数据，且一点都不占CPU，只是打开子窗口很难关闭或移动，主程序关闭要一段时间才响应。
----------------------------------------------
-

作者：

tiny_bird (delphi_tokyo)	★☆☆☆☆	-
	盒子活跃会员

2011/9/16 22:05:32

2楼：

你还是耐心学学线程吧，了解线程才算会编程了
----------------------------------------------
winsock api，通讯，多线程，VCL，Java

信息

登陆以后才能回复