客户端里面代码:procedure TForm1.Button1Click(Sender: TObject);
begin
          if clientsocket1.Active then
             clientsocket1.Active:=False;
          clientsocket1.Port:=7777;
          clientsocket1.Host:='1.1.1.1';
          try
          clientsocket1.Active:=True;
          except
          showmessage('连接服务器失败');
          end;
end;
============================================================
服务器端里面代码:procedure TForm2.FormCreate(Sender: TObject);
begin
     ServerSocket1.Active:=true;
end;==============================================================连接的时候显示Asynchronous socket error 10061
怎么回事,解决就给分!!!

解决方案 »

  1.   

    修改:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
              if clientsocket1.Active then
                 clientsocket1.Active:=False;
              clientsocket1.Port:=7777;
              clientsocket1.adress:='1.1.1.1';
              try
              clientsocket1.Active:=True;
              except
              showmessage('连接服务器失败');
              end;
    end;记住,运行客户端之前一定先运行服务器端。
      

  2.   

    修改:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
              if clientsocket1.Active then
                 clientsocket1.Active:=False;
              clientsocket1.Port:=7777;
              clientsocket1.address:='1.1.1.1';
              try
              clientsocket1.Active:=True;
              except
              showmessage('连接服务器失败');
              end;
    end;记住,运行客户端之前一定先运行服务器端。
      

  3.   

    http://www.362343.com/dispbbs.asp?boardID=19&ID=359