初级网络通讯问题，谢谢各位

Question

procedure TForm1.btnConnectClick(Sender: TObject);
begin
  cs.Address:=edtIPAddress.Text;
  cs.Port:=2000;
  cs.Open;
end.这是我在网上找的代码。请问：如何捕捉连接是否成功。procedure TForm1.btnConnectClick(Sender: TObject);
begin
  try
  cs.Address:=edtIPAddress.Text;
  cs.Port:=2000;
  cs.Open;
  memo1.Lines.Add('与发送方连接成功!')
except
 memo1.Lines.Add('与发送方连接失败!')
  end;
end;这样不行啊2。本机作为发送方和接受方，端口是否可以一样？

Answer 1

捕捉连接是否成功应该在事件里做
TCustomSocket::OnConnect连接成功
TCustomSocket::OnError连接失败TErrorEvent ErrorEvent = eeConnect

Answer 2

发送方和接受方？你是说client/server吧？端口不一样，不能同时绑定2个相同端口!

Answer 3

这个很简单：
    在onconnect()事件中加入：
    procedure TForm1.ClientSocket1Connect(Sender: TObject;
    Socket: TCustomWinSocket);
    begin
     memo1.Lines.Add('与发送方连接成功!')    end;

Answer 4

在onconnect()事件中去判断