W
wangyise
Unregistered / Unconfirmed
GUEST, unregistred user!
我在form中写了如下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
Clientsocket1.Socket.SendText('1234');
edit1.SelectAll;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
p
char;
begin
edit1.text:=serversocket1.socket.ReceiveText ;
end;
end.
ip设为127.0.0.1 但是在运行是出现如下错误：
asynchronous socket error 10049
请问这是什么原因 因如何解决
procedure TForm1.Button1Click(Sender: TObject);
begin
Clientsocket1.Socket.SendText('1234');
edit1.SelectAll;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
p
char;begin
edit1.text:=serversocket1.socket.ReceiveText ;
end;
end.
ip设为127.0.0.1 但是在运行是出现如下错误：
asynchronous socket error 10049
请问这是什么原因 因如何解决