一个问题，急，在线等

Question

我执行clientsocket.Active:=true如果成功继续执行下面代码，如果不成功则退出我怎样判断clientsocket.Active:=true是否成功？

Answer 1

Active失败触发ClientSocket1Error,
写上处理程序
procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  memo1.Lines.Add('Error:'+inttostr(ErrorCode));
  ErrorCode:=0;
end;

Answer 2

clientsocket.open不触发onError事件就表示成功了^_^

Answer 3

我怎样判断是否触发clientsocket onerror事件？

Answer 4

触发的话
写在ClientSocket1Error中的程序就执行了啊？

Answer 5

try
    clientsocket.Open;
  finally  showmessage('22');
  end;我这样写了，出现了22后还有一个提示10061的错误
我怎样让10061这个错误不显示？

Answer 6

try
  try
    clientsocket.Open;
  except
  end;
finally
  showmessage('22');
end;

Answer 7

try
  clientsocket.Open;
except
  showmessage('Open Error');
end;// 注意 如果出现错误 在IDE DEBUG模式下还是会弹出系统错误 但是发布后就不会出现系统的错误 只会弹出你的消息