一个关于廷时的问题，请会的朋友帮我解答。 (50分)

笨

笨波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #1

我编写了一个通讯程序，数据发出以后发现没有返回数据，看看通讯规约原来是接心数据
必须要在发出命令后的300ms后才可以接收的，可我没写关于廷时的程序，那位老兄写过
或有现成的贴一个上来，相信好多人会感谢你的。我先谢谢了。分不多，五十分，如果还要
我加的话，还有五十分相送，谢谢了。

 

Z

zhaohai9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #2

sleep(300);

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #3

agree with zhaohai9.

 

笨

笨波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #4

可以讲清楚点吗，SLEEP是个函数吗，就这么简单吗？

 

W

westboy2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #5

sleep

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #6

是个“睡觉”函数～

作用是使系统运行时间延迟（或暂停）～ ：）
就象空循环一样

 

笨

笨波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #7

谢谢大家，我去试试。

 

C

chiu1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #8

sleep(300);
就是程序在哪里自己循环等待（睡眠）300ms的意思呀，这时，程序不能干别的。

 

Z

zhaohai9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #9

是个函数，就这么简单，后悔100分了吗？

 

C

Celestial dog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #10

你们这些人太坏了，一句话就想把人家打发了～～
看我的：
Procedure Tfrm.Delay(DTime : LongInt);
Var
L : LongInt;
Begin
L := GetTickCount;
While (Abs(L-GetTickCount) < DTime) do;
End;

 

战

战鹰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #11

没有必要把！这个方法如果对方提前和少等一会再发送反馈信息也一样会出错的！
用一个变量来判别是否收到反馈信息ＲＥＰ：ＢＯＯＬＥＡＮ；
在OnDataAvailable 事件处理函数里加入一个接收反馈信息的判别当,另外再写一个
等待反馈的函数循环检验是否ＲＥＰ＝ＴＲＵＥ如果是则退出循环，当信息发送晚以后
调用等待函数，只要一收到反馈信息程序就可以继续进行下去了！

 

C

chiu1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #12

战鹰：高！！！

 

笨

笨波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #13

接受答案了.

 

战

战鹰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #14

忘了补充一点，要末需要采用线程技术要么需要用
FWSocket.ProcessMessages或Application.ProcessMessages;
让程序可以执行其他造作，不然如果一直没有反馈程序就是一个死循环！
如果需要还要判别超时！如果还有不清楚的我建议你看看ＩＣＳ控件组的
ＳＭＴＰＰＯＲＴ。ＰＡＳ中的
function TSyncSmtpCli.WaitUntilReady : Boolean;