如何获得客户端端口号??

xufeng_tj 2004-10-14 04:12:59
做了两个端:服务器端、客户端
想在服务器端,把所有连接的客户端的一些信息显示出来,其中包括客户端的端口。

代码:
procedure TForm1.ServerClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
Var
strIp,strHost:string;
Count:Integer;
begin
strIp:=Socket.RemoteAddress;
strHost:=Socket.RemoteHost;
M1.Lines.Add('SomeOne Login From');
M1.Lines.add(#9'SocketID:'+Inttostr(Socket.SocketHandle));
cbxID.Items.Add(Inttostr(Socket.SocketHandle));
M1.lines.add(#9'IP:'+strIp);
M1.Lines.Add(#9'Host:'+strHost);
Count:=Server.Socket.ActiveConnections;
S1.Panels.Items[1].Text:='OnLine user: '+IntToStr(Count);
end;
...全文
240 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
hjf1223 2004-10-14
  • 打赏
  • 举报
回复
还不结贴吗?
xufeng_tj 2004-10-14
  • 打赏
  • 举报
回复
ok

结贴
pandarus 2004-10-14
  • 打赏
  • 举报
回复
M1.Lines.Add(#9'Port:'+ IntToStr(Socket.RemotePort));同意这句
hjf1223 2004-10-14
  • 打赏
  • 举报
回复
你把这句加到你的程序里看一下
hjf1223 2004-10-14
  • 打赏
  • 举报
回复
M1.Lines.Add(#9'Port:'+ IntToStr(Socket.RemotePort));
beyondtkl 2004-10-14
  • 打赏
  • 举报
回复
Socket 什么类型的 ?? 去查帮助文件先。
xufeng_tj 2004-10-14
  • 打赏
  • 举报
回复
chenminghong
出血,的确很菜
请明示

不胜感激~~~~~
chenminghong 2004-10-14
  • 打赏
  • 举报
回复
Socket.exe里面都有
xufeng_tj 2004-10-14
  • 打赏
  • 举报
回复
hjf1223
没有这个RemotePort这个吧??
hjf1223 2004-10-14
  • 打赏
  • 举报
回复
Socket.RemotePort
xufeng_tj 2004-10-14
  • 打赏
  • 举报
回复
初学网络编程,不太懂

请问,如何在这段代码中添加一句,来获得client的端口号??

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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