TSocketConnection如何设置超时?(高手请入) (20分)

  • 主题发起人 主题发起人 cansim
  • 开始时间 开始时间
C

cansim

Unregistered / Unconfirmed
GUEST, unregistred user!
好象没有超时属性,如果不打开borland socket server的话,它又不提示出错!
应该如何控制超时啊?
 
在borland socket server中,有个timeout
 
前提是borland socket server没开啊!
就前台自己控制,如果超过10秒还不能连上就提示!
TSocketConnection
应该有这方面的控制吧,想知道!
 
好像不能控制啊
 
还是搞不定啊,高手啊,快想想办法!
 
难道真的没有办法?
 
这个问题我研究过你只需要复制SConnect.pas到当前目录,
然后找到下面的内容:
procedure TStreamedConnection.InternalClose;
begin
if Assigned(FTransport) then
begin
FTransport.OnTerminate := nil;
FTransport.Terminate;
PostThreadMessage(FTransport.ThreadID, WM_USER, 0, 0);
然后在它的后面加上一句:
if GetCurrentThreadID = MainThreadID then
Classes.CheckSynchronize;
至于为什么要这么做,看看这个帖子吧
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1848198
 
是啊,看看我的那个帖子吧
 
多人接受答案了。
 
后退
顶部