客户端里面代码: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
怎么回事,解决就给分!!!
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
怎么回事,解决就给分!!!
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;记住,运行客户端之前一定先运行服务器端。
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;记住,运行客户端之前一定先运行服务器端。