unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
TcpClient1: TTcpClient;
TcpServer1: TTcpServer;
Button3: TButton;
procedure Button2Click(Sender: TObject);
procedure TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
procedure Button3Click(Sender: TObject);
procedure TcpServer1Listening(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
begin
TcpClient1.Active:=true;
end;procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
showmessage('connected');
end;procedure TForm1.Button3Click(Sender: TObject);
begin
TcpClient1.Active:=true;
TcpClient1.Sendln('yes');
end;procedure TForm1.TcpServer1Listening(Sender: TObject);
begin
//TcpClient1.Sendln('yes');
showmessage('ff');
showmessage(TcpServer1.Receiveln());
end;end.点击按钮2可以显示“connected”,可是点击按钮3却怎么也没反应,为什么TForm1.TcpServer1Listening(Sender: TObject);没有响应呢??
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
TcpClient1: TTcpClient;
TcpServer1: TTcpServer;
Button3: TButton;
procedure Button2Click(Sender: TObject);
procedure TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
procedure Button3Click(Sender: TObject);
procedure TcpServer1Listening(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
begin
TcpClient1.Active:=true;
end;procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
showmessage('connected');
end;procedure TForm1.Button3Click(Sender: TObject);
begin
TcpClient1.Active:=true;
TcpClient1.Sendln('yes');
end;procedure TForm1.TcpServer1Listening(Sender: TObject);
begin
//TcpClient1.Sendln('yes');
showmessage('ff');
showmessage(TcpServer1.Receiveln());
end;end.点击按钮2可以显示“connected”,可是点击按钮3却怎么也没反应,为什么TForm1.TcpServer1Listening(Sender: TObject);没有响应呢??
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货