在学习网络编程时遇到如下错误该如何解决？(100分)

  • 主题发起人 主题发起人 wangyise
  • 开始时间 开始时间
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:pchar;
begin
edit1.text:=serversocket1.socket.ReceiveText ;
end;

end.
ip设为127.0.0.1 但是在运行是出现如下错误：
asynchronous socket error 10049
请问这是什么原因 因如何解决
 
serversocket和clientsocket的port要设置成一样（1024-49151之间）。
另外她们的active属性应该为true;
 
其他的代码了？
 
端口改为2014后 又出现了远程主机强迫关闭了一个现有连接
 
其它代码看看啊！就这些根本看不出来！10049错误号好象是网络不通（server/client没有
建立连接）
 
我只写了这几行代码
Clientsocket1 serversocket1 是一对的 在一个表单中 其中active均为true了
 
TCP先要Connect，没这么简单的。
看一下Delphi自带的例子：Delphi5/Demos/Internet/Chat
 
我没有在例程中哪里 Connect了啊 请给源码吧
 
我的问题已解决
程序改为
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
p:pchar;
begin
edit1.text:=socket.ReceiveText ;
end;
不知是什么原因！
 
哪个serversocket1.socket是帮定到舰艇断口的套节子,
clientread里的socket是连接到服务器上的SOCKET,所以你
后来的代码对了，
 
不对吧 我没有用过clientread啊 而且那个socket是在procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

I
如何得知某端口一打开
回复
0
查看
684
import
I
I
如何在Query中做增量查询
回复
0
查看
550
import
I
I
编程实现拨号网络连接及FTP应用
回复
0
查看
722
import
I
I
网络广播
回复
0
查看
1K
import
I
I
程序退出任务栏空格问题解决
回复
0
查看
621
import
I
后退
顶部