关于TcpClient/TcpServer的问题:(50分)

  • 主题发起人 notnoname
  • 开始时间
N

notnoname

Unregistered / Unconfirmed
GUEST, unregistred user!
我用
try
if tcpclient.connect then
...
finally
tcpclient.disconnect;
end;
向服务端发消息;问题是,如果服务端的机器没有开的话,客户端的程序就会当在那里,直到
服务端的机器打开。请问怎么解决?
 
时间 等长一点,不会出现连接错误???
 
我的意思是不管出没出错,没找到主机就应该结束,没必要在那里一直连吧。
 
会一直等吗???你是TClientSocket控件吧!
 
你在TClientSocket的OnError事件里捕获错误信息。加入以下代码:
if ErrorEvent=eeConnect then
begin
ShowMessage('连接错误');
ErrorCode := 0;
end;
 
对,我用的是socket控件!
 
先ping一下服务器,如果ping不通,则标志服务器没开。(ping可以用Icmp)
 
有没有简单一点的ping方法?
 
你设一下你的连接超时属性。
 
把CSDN与中文yahoo翻了底朝天,也没找到如何设置socket的连接超时的满意方法,问此问题的兄弟已有一大堆,这里偶就讲一下win下如何设置socket的connect超时。
设置connect的超时很简单,CSDN上也有人提到过使用select,但却没有一个令人满意与完整的答案。偶所讲的也正是select函数,此函数集成在winsock1.1中,简单点讲,"作用使那些想避免在套接字调用过程中被锁定的应用程序,采取一种有序的方式,同时对多个套接字进行管理"(《Windows网络编程技术》原话)。使用方法与解释请见《Windows网络编程技术》。
在使用此函数前,需先将socket设置为非锁定模式,这样,在connect时,才会立马跳过,同时,通常也会产生一个WSAEWOULDBLOCK错误,这个错误没关系。再执行select则是真正的超时。

WSADATA wsd;
SOCKET cClient;
int ret;
struct sockaddr_in server;
hostent *host=NULL;

if(WSAStartup(MAKEWORD(2,0),&wsd)){return 0;}
cClient=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
if(cClient==INVALID_SOCKET){return 0;}
//set Recv and Send time out
int TimeOut=6000; //设置发送超时6秒
if:):setsockopt(cClient,SOL_SOCKET,SO_SNDTIMEO,(char *)&TimeOut,sizeof(TimeOut))==SOCKET_ERROR){
return 0;
}
TimeOut=6000;//设置接收超时6秒
if:):setsockopt(cClient,SOL_SOCKET,SO_RCVTIMEO,(char *)&TimeOut,sizeof(TimeOut))==SOCKET_ERROR){
return 0;
}
//设置非阻塞方式连接
unsigned long ul = 1;
ret = ioctlsocket(cClient, FIONBIO, (unsigned long*)&ul);
if(ret==SOCKET_ERROR)return 0;

//连接
server.sin_family = AF_INET;
server.sin_port = htons(25);
server.sin_addr .s_addr = inet_addr((LPCSTR)pSmtp);
if(server.sin_addr.s_addr == INADDR_NONE){return 0;}

connect(cClient,(const struct sockaddr *)&server,sizeof(server));

//select 模型,即设置超时
struct timeval timeout ;
fd_set r;

FD_ZERO(&r);
FD_SET(cClient, &r);
timeout.tv_sec = 15; //连接超时15秒
timeout.tv_usec =0;
ret = select(0, 0, &r, 0, &timeout);
if ( ret <= 0 )
{
::closesocket(cClient);
return 0;
}
//一般非锁定模式套接比较难控制,可以根据实际情况考虑 再设回阻塞模式
unsigned long ul1= 0 ;
ret = ioctlsocket(cClient, FIONBIO, (unsigned long*)&ul1);
if(ret==SOCKET_ERROR){
::closesocket (cClient);
return 0;
}

如有不明或错误的地方,欢迎指正.
mailto:antghazi@163.net
http://antghazi.yeah.net
AntGhazi/2001.12.14



AntGhazi 原作

出处: CSDN网站


作者:江磊晶



 
老大,哪里有连接超时的属性啊?
 
把你的代码贴出来,你直接用Tclientsocket.open就行了,用connect干什么?
 
代码很长,不太好帖。我想问一下,open和connect效果上有什么区别。
 
我不知道你用的是什么控件,我的TClientSocket没有connect。
 
indyclient??? 再看看。
 
我这边没问题啊,会报错的。
 
我用的是tcpclient不是tclientsocket。
 
不会吧,我这边正常啊,不会出现你说的情况。
 
把窗体上的控件删除,重新拉一个试试。
 
这个问题暂时搁置吧,我还有个疑问。请问当一个tcpserver处于监听状态的时候,会
有哪些因素能导致他停止监听?我的程序经常会过一端时间就不再响应客户端了,返回10061
错误!
 
顶部