关于serversocket.socket.connections[0]的问题(50分)

  • 主题发起人 主题发起人 tomyang
  • 开始时间 开始时间
T

tomyang

Unregistered / Unconfirmed
GUEST, unregistred user!
兄弟们、姐妹们:
我很烦恼呀!有怨无处伸!

我刚刚使用DELPHI编程,编一个关于SOCKET的程序,刚刚入门
且不说多线程处理的复杂的东西,请看下面的程序:
procedure TForm1.Button1Click(Sender: TObject);
begin
serversocket1.Active := true;
clientsocket1.Active := true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
serversocket1.Socket.Connections[0].SendText ('test');
end;

简单吧!ServerSocket和ClientSocket控件用缺省的设置。
PORT:2020
host:localhost
addr:localhost

问题:先CLICK BUTTON1,然后CLICK BUTTON2 ClientSocket的
ClientSocket1Read响应,OK!但是无论怎么再CLICK BUTTON2
ClientSocket的消息就是不响应,这是为什么呢?
给我一个理由先!^_^
 
ClientSocket1的响应语句有否
memo2.lines.append(socket.RemoteAddress+socket.receivetext);
memo2是我自己定义的
 
没有memo2.lines.append(socket.RemoteAddress+socket.receivetext);
是否必须socket.receivetext?让我试一下,但好象没有必要吧!
 
sorry!
谢谢你的帮助!
在clientsocket的read事件中加入socket.receivetext后成功
谢谢你AGAIN!有问题再找你!
给你50分
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部