急!急!急呀!ServerSocket怎样区分不同局域网但IP地址相同的ClientSocket? 如题了. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 halfdream(哈欠) :是这样的,但IP可以通过RemoteAddress属性获取,Port通过什么获取呢? 呵呵。。既然你都能取到RemoteAddress属性,我就不信你取不到RemotePort属性。。 端口肯定是设定好的了,我现在是想知道如果出现IP相同的机子同时连上ServerSocket的话,ServerSocket是怎么区分是那个ClientSocket的,我看了一些资料,说如果IP相同的话,Socket会自动创建一个新的端口进行通讯,不知道是不是这样的,是的话如何得到它自动创建的端口号呢? 就这么简单的就可以取到。楼主要学会自己多动手去尝试。procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);var rIp:string; rPort:integer;begin rIp:=Socket.RemoteAddress; rPort:=socket.RemotePort; showMessage('远程'+rIp+':'+intToStr(rPort));end; 原来就是这么简单,是我自己太大意,没注意到Port是整型的,所以老是找不到, halfdream,太谢谢你了,结贴! 关于常量编译的问题 哪里有透明的ScrollBox? 请问这里有没有有没有深圳的delphi程序员或者公司的管理人员! 学电脑N年了,却不知道键盘上的Scroll Lock键有啥用!自卑中 在线:dll简单问题 哪里有对文件操作类似的文章。 50分,小问题,关于外部关键字的处理 誰能給我win2k server 版的系列號?正確給分。 XE6发布的Android出现application does not support this device 再续 急!!!请教在delphi中是否有宏命令 求定长度字符串转成 Null结尾字符串 的方法? 如何解决Delphi弹出的这个提示?
Socket: TCustomWinSocket);
var
rIp:string;
rPort:integer;
begin
rIp:=Socket.RemoteAddress;
rPort:=socket.RemotePort; showMessage('远程'+rIp+':'+intToStr(rPort));
end;