甄
甄士凐
Unregistered / Unconfirmed
GUEST, unregistred user!
1 在indy的IdTcpServer我使用了connect与disconnect事件
procedure TfrmServer.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('有人已经连接成功')
end;
procedure TfrmServer.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('有人已经断开连接')
end;
2 IdTcpClient时,我使用了connected,disconnected事件
procedure TfrmClient.IdTCPClient1Connected(Sender: TObject);
begin
Memo1.Lines.Add('有人已经连接成功')
end;
procedure TfrmClient.IdTCPClient1Disconnected(Sender: TObject);
begin
Memo1.Lines.Add('有人已经断开连接')
end;
3 当然IdTcpClient连接到IdTcpServer时,为什么IdTcpServer的这两个事件都发生,
即在memo1中输出了两行,但IdTcpClient只触发了一个事件,这个容易理解,主要
是IdTcpServer立即产生connect与disconnect不知为何?
procedure TfrmServer.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('有人已经连接成功')
end;
procedure TfrmServer.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('有人已经断开连接')
end;
2 IdTcpClient时,我使用了connected,disconnected事件
procedure TfrmClient.IdTCPClient1Connected(Sender: TObject);
begin
Memo1.Lines.Add('有人已经连接成功')
end;
procedure TfrmClient.IdTCPClient1Disconnected(Sender: TObject);
begin
Memo1.Lines.Add('有人已经断开连接')
end;
3 当然IdTcpClient连接到IdTcpServer时,为什么IdTcpServer的这两个事件都发生,
即在memo1中输出了两行,但IdTcpClient只触发了一个事件,这个容易理解,主要
是IdTcpServer立即产生connect与disconnect不知为何?