I used the following code in my program to check if there's anything sent through the connection:    IdTCPClient: TIdTCPClient;  ... msg := IdTCPClient.ReadLn(#0, 5);    ReadLn should return an empty string ('') if the peer connection is prematurely closed or a time-out occurs(after 5 millisecond as I set it). But my program simply died there, which made me quite confused.    Thanks a lot for helping. LOOP i cant say goodbye

------
LOOP
i cant say goodbye

showmessage(IdTCPClient1.ReadLn);    TRY SEE！        风花雪月 e梦情缘

------
风花雪月 e梦情缘

Well yes, by using ShowMessage(IdTCPClient.ReadLn), a Read Timeout message will show up when there's nothing to read. But can you just tell me how to specify a custom time-out value instead of the default one? Whenever I try to do so by specifying a ATimeout parameter, my program dies and fails to show up any message.    Thanks again. ^^) LOOP i cant say goodbye

------
LOOP
i cant say goodbye

Oops, I discovered a bug in the TIdTCPConnection component.    In its ReadFromStack, if a timeout occurs, an EIdReadTimeout exception will be raised when ARaiseExceptionOnTimeout is True. Otherwise ReadFromStack performs no additional processing, and uses -1 as the return value for the method. What I want is just the latter. As we all know, the ReadLn method uses the ReadFromStack method, when we specify a custom time-out value in ReadLn, if a time-out occurs, ReadLn will not raise an exception but return an empty string. But that was where my program died dramatically. So I viewed the source code of TIdTCPConnection.ReadLn, and discovered that it mistook the return value -1 of ReadFromStack for 0.  After modification it works fine now. LOOP i cant say goodbye

------
LOOP
i cant say goodbye

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.