白
白龙马
Unregistered / Unconfirmed
GUEST, unregistred user!
这个错误,
Windows Socket Error : 由于套接字没有连接并且(当使用一个sendto调用发送数据报套接字时)
没有提供地址,发送或接受数据的请求没有被接受。(10057),on API 'getpeername'
SERVER 端
procedure TServerForm.FormCreate(Sender: TObject);
begin
ServerSocket.Port:=1024;
ServerSocket.Active:=True;
end;
procedure TServerForm.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
log.Lines.Add(Socket.ReceiveText);
end;
Client 端
procedure TClientForm.FormCreate(Sender: TObject);
begin
ClientSocket.Host:='192.168.0.190';
ClientSocket.Port:=1024;
ClientSocket.Active:=true;
end;
procedure TClientForm.TimerTimer(Sender: TObject);
begin
ClientSocket.Socket.SendText(TimeToStr(Now));
end;
为什么会出那个问题呢?帮帮我吧,谢谢!
Windows Socket Error : 由于套接字没有连接并且(当使用一个sendto调用发送数据报套接字时)
没有提供地址,发送或接受数据的请求没有被接受。(10057),on API 'getpeername'
SERVER 端
procedure TServerForm.FormCreate(Sender: TObject);
begin
ServerSocket.Port:=1024;
ServerSocket.Active:=True;
end;
procedure TServerForm.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
log.Lines.Add(Socket.ReceiveText);
end;
Client 端
procedure TClientForm.FormCreate(Sender: TObject);
begin
ClientSocket.Host:='192.168.0.190';
ClientSocket.Port:=1024;
ClientSocket.Active:=true;
end;
procedure TClientForm.TimerTimer(Sender: TObject);
begin
ClientSocket.Socket.SendText(TimeToStr(Now));
end;
为什么会出那个问题呢?帮帮我吧,谢谢!