请选择 进入手机版 | 继续访问电脑版

大富翁Delphi开发技术网站

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 5002|回复: 5

Delphi XE7 DataSnap学习第三章:获取连接的客户端的IP

  [复制链接]

970

主题

1459

帖子

4501

积分

论坛元老

Rank: 8Rank: 8

积分
4501
发表于 2014-11-14 19:34:17 | 显示全部楼层 |阅读模式
精品文章
支持版本: Delphi XE7 
资源分类: 网络 数据库 
发布平台: Windows 
转载地址: -

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

介绍

本文章介绍了Delphi XE7 DataSnap学习第三章:获取连接的客户端的IP,delphi XE7获取客户端的IP和之前的有些区别,下面是代码

  1. procedure TFrmDataSnap.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
  2. var
  3.   ClientConnection: TDBXClientInfo;
  4.   Val: TTCP_KeepAlive;
  5.   Ret: DWord;
  6. begin
  7.   ClientConnection := DSConnectEventObject.ChannelInfo.ClientInfo;

  8.   AddLog(
  9.     ClientConnection.IpAddress
  10.     +':'+
  11.     ClientConnection.ClientPort
  12.     +'登录服务器');

  13.   UpdateLinkToList(ClientConnection.IpAddress
  14.     +':'+
  15.     ClientConnection.ClientPort
  16.     ,IntToStr(DSConnectEventObject.ChannelInfo.Id)
  17.     ,0);
  18. end;
复制代码



转载请保留当前帖子的链接:http://www.dfwlt.com/forum.php?mod=viewthread&tid=1587 谢谢!

搜索简单,分享不易,且分享且珍惜,您难道不想分享下您的心得?如果觉得本文章好的话,您可以在我们网站上注册,然后发布您的好的心得,让大家共同进步,谢谢!

最新添加

回复

使用道具 举报

27

主题

77

帖子

401

积分

中级会员

Rank: 3Rank: 3

积分
401
发表于 2014-11-15 08:15:13 | 显示全部楼层
学习学习
回复

使用道具 举报

匿名  发表于 2014-11-16 18:36:23
很好,很感谢
回复 支持 反对

使用道具

0

主题

7

帖子

46

积分

新手上路

Rank: 1

积分
46
发表于 2015-11-7 16:53:50 | 显示全部楼层
感谢楼主一直关注
回复 支持 反对

使用道具 举报

3

主题

7

帖子

175

积分

注册会员

Rank: 2

积分
175
发表于 2016-1-3 20:24:28 | 显示全部楼层
ClientConnection: TDBXClientInfo;
  Val: TTCP_KeepAlive;
这两个要引用到那些文件哦?
回复 支持 反对

使用道具 举报

9

主题

14

帖子

139

积分

注册会员

Rank: 2

积分
139
发表于 2017-12-20 15:26:52 | 显示全部楼层
OK,GOOD,OK,GOOD,
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

申请友链|Archiver|手机版|小黑屋|大富翁Delphi开发技术网站 ( 苏ICP备12065705号-4

GMT+8, 2018-7-17 07:36 , Processed in 0.115232 second(s), 31 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表