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的消息就是不响应,这是为什么呢?
给我一个理由先!^_^
我很烦恼呀!有怨无处伸!
我刚刚使用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的消息就是不响应,这是为什么呢?
给我一个理由先!^_^