ping是不行的,ping只是icmp,要是我Server关了ICMP回应怎么办?你就知道我的其它服务没开?
就象上面说的,先open这个socket
然后在这个clientsocket的onError里写:
procedure TClientSocket1.Socket_Error(Sender : TObject; Socket : TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode : Integer);
var
Err_String : string;
begin
ErrorCode := 0;
case ErrorEvent of
eeGeneral :
eeConnect :
ShowMessage('连接错误!');
Socket.Close;
end;
end;
够清楚的了?