摘要:
一、Server端 使用的indy控件:idtcpsrvr1: TIdTCPServer; a)设置默认端口1 begin2 Self.btn1.Enabled:=False;3 idtcpsrvr1.DefaultPort:=2001;4 idtcpsrvr1.Active:=True;5 end; b)对客户端连接事件响应1 procedure TForm1.idtcpsrvr1Connect(AThread: TIdPeerThread);2 var3 ipStr:string;4 begin5 ipStr:=AThread.Connection.Socket.Binding.PeerI 阅读全文