IDTCPSever跟IDTCPClient连接后能得到IDTCPClient的IP吗？

liyongsheng 2004-10-19 11:21:24

IDTCPSever跟IDTCPClient连接后能得到IDTCPClient的IP吗？？？？

...全文

55 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

getit911 2004-10-19

打赏
举报

回复

ServerConnect(AThread: TidPeerThread);消息
begin
sIP := TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP;
sport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerPort;

dIP := TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.IP;
dport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.Port;
end;

在程序中，服务端与客户端相连接后，应用readln和writerln实现两个程序字符串的链接

delphi7的IdTCPClient和IdTCPServer的write用法

bcb2010使用IdTCPClient和ip控件实现简单发送接收

delphi 基于IdTcpServer和IdTcpClient的通讯实例，包括客户端和服务端，　　procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread); 　　begin 　　 Memo1.Lines.Text:='来自主机' AThread.Connection.Socket.Binding.PeerIP '的连接请求已被接纳'; 　　 AThread.Connection.WriteLn('Ariel:欢迎连接本服务器，竭诚为您服务'); 　　end; 　　procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread); 　　begin 　　Memo1.Lines.Text:='来自主机' AThread.Connection.Socket.Binding.PeerIP '已断开连接'; 　　StatusBar1.Panels[0].Text:='连接已断开'; 　　end; 　　procedure TForm1.IdTCPServer1ListenException(AThread: TIdListenerThread; 　　 AException: Exception); 　　begin 　　StatusBar1.Panels[1].Text:='正在连接.....'; 　　end;

delphi的IdTCPClient和IdTCPServer的Writestring用法

网络通信/分布式开发

1,593

社区成员

32,963

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章