Greeting的时候可以知道吗?交互通讯的时候可以知道吗?
解决方案 »
- delphi中数据库中相关项目用treeview来显示?????或者是treeviw的一般用法
- 应朋友要求,帮忙发布一个消息。12000做个项目。顶的给分!
- 金额的小数点后两位怎样设置可以显示出来?
- 关于rave的memo控件中文无法正常显示怎么解决?
- 急啊:哪位兄弟有《人事工资》的简单源码?100相送~~~!
- 关于字符串问题
- 这个例题有问题,谁来看看该怎么改
- 想做一个基于Socket的通信程序,初次接触,请有经验的朋友进来指点一下。
- 关于修改ini文件里数据的问题(在线,解决就给分)
- 有需要依时利繁体SQL SERVER网络版接口的朋友吗?
- 如何向执行文件中写入信息?
- 如何在delphi中分页显示数据?
with AThread as TIdPeerThread do
begin
//client IP
sIP := TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP;
//client port
sport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerPort;
//目的ip
dIP := TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.IP;
//目的端口
dport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.Port;
end;