看看这个连接socket异常(30分)

在连接socket是我想判断一下，这样写为什么不行？在连接不上时，还是报错
try
SocketConnection1.Address:='xxx.xxx.xxx.xxx';
SocketConnection1.ServerName:='filename.DySQLServer';
SocketConnection1.Open ;
showmessage('连接成功');
SocketConnection1.Close;
except
showmessage('连接失败');
SocketConnection1.Close;
end

你这个地方判断是错误的，没有办法判断是否连接的上去[]
必须在错误事件里判断是否连接上去了[8D]

具体点吧
连接成功时就可以啊

在socketconnection1的OnError里判断吧、

把下面代码加到OnError事件里
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
if ErrorEvent=eeConnect then
showmessage('连接服务器产生错误!');
errorcode := 0;
end;