本帖子已过去太久远了，不再提供回复功能。2014年4月 Delphi大版内专家分月排行榜第三2014年3月 Delphi大版内专家分月排行榜第三2013年5月 Delphi大版内专家分月排行榜第三2013年1月 Delphi大版内专家分月排行榜第三2010年11月 Delphi大版内专家分月排行榜第三2009年12月 Delphi大版内专家分月排行榜第三2009年11月 Delphi大版内专家分月排行榜第三
2006年6月 C++ Builder大版内专家分月排行榜第三2006年1月 C++ Builder大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。查看: 4320|回复: 4
Delphi XE7 DataSnap学习第三章：获取连接的客户端的IP
主题帖子积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
Delphi XE7&
网络&数据库&
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
才可以下载或查看，没有帐号？
本文章介绍了Delphi XE7 DataSnap学习第三章：获取连接的客户端的IP，delphi XE7获取客户端的IP和之前的有些区别，下面是代码
procedure TFrmDataSnap.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
var
&&ClientConnection: TDBXClientI
&&Val: TTCP_KeepA
&&Ret: DW
begin
&&ClientConnection := DSConnectEventObject.ChannelInfo.ClientI
&&AddLog(
& & ClientConnection.IpAddress
& & +':'+
& & ClientConnection.ClientPort
& & +'登录服务器');
&&UpdateLinkToList(ClientConnection.IpAddress
& & +':'+
& & ClientConnection.ClientPort
& & ,IntToStr(DSConnectEventObject.ChannelInfo.Id)
& & ,0);
复制代码
转载请保留当前帖子的链接： 谢谢！
搜索简单，分享不易，且分享且珍惜，您难道不想分享下您的心得？如果觉得本文章好的话，您可以在我们网站上注册，然后发布您的好的心得，让大家共同进步，谢谢！
主题帖子积分
中级会员, 积分 401, 距离下一级还需 99 积分
中级会员, 积分 401, 距离下一级还需 99 积分
很好，很感谢
主题帖子积分
新手上路, 积分 46, 距离下一级还需 4 积分
新手上路, 积分 46, 距离下一级还需 4 积分
感谢楼主一直关注
主题帖子积分
注册会员, 积分 167, 距离下一级还需 33 积分
注册会员, 积分 167, 距离下一级还需 33 积分
ClientConnection: TDBXClientI
&&Val: TTCP_KeepA
这两个要引用到那些文件哦？
Powered by查看: 10088|回复: 7
Delphi XE6教程 - 创建DataSnap客户端链接DataSnap服务器
主题帖子积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
才可以下载或查看，没有帐号？
本帖最后由 曾经拥有 于
14:05 编辑
(64.57 KB, 下载次数: 566)
14:00 上传
点击文件名下载附件
本文章介绍了Delphi XE6教程 - 创建DataSnap客户端链接DataSnap服务器，这篇文章是接上面的一篇文章，该附件包含服务端以及客户端段的代码，运行datasnap服务程序，客户端就可以看到数据，当然DataSnap需要重新配置服务器的地址账号密码等。
客户端的程序就简单很多，直接复制下面的代码，拷贝到程序界面：
object DSProviderConnection1: TDSProviderConnection
&&ServerClassName = 'TDSServerModule_EMPLOYEE'
&&Connected = True
&&SQLConnection = SQLConnection1
&&Left = 184
&&Top = 112
end
object SQLConnection1: TSQLConnection
&&DriverName = 'DataSnap'
&&LoginPrompt = False
&&Params.Strings = (
& & 'DriverUnit=Data.DBXDataSnap'
& & 'HostName=localhost'
& & 'Port=211'
& & 'CommunicationProtocol=tcp/ip'
& & 'DatasnapContext=datasnap/'
& &
& && &'DriverAssemblyLoader=Borland.Data.TDBXClientDriverLoader,Borland' +
& && &'.Data.DbxClientDriver,Version=19.0.0.0,Culture=neutral,PublicKey' +
& && &'Token=91d62ebb5b0d1b1b')
&&Connected = True
&&Left = 96
&&Top = 104
end
object ClientDataSet1: TClientDataSet
&&Active = True
&&Aggregates = &&
&&Params = &&
&&ProviderName = 'DataSetProvider_EMPLOYEE'
&&RemoteServer = DSProviderConnection1
&&Left = 84
&&Top = 216
end
object DataSource1: TDataSource
&&DataSet = ClientDataSet1
&&Left = 184
&&Top = 200
end
object BindSourceDB1: TBindSourceDB
&&DataSet = ClientDataSet1
&&ScopeMappings = &&
&&Left = 176
&&Top = 272
end
object BindingsList1: TBindingsList
&&Methods = &&
&&OutputConverters = &&
&&Left = 300
&&Top = 117
&&object LinkFillControlToField1: TLinkFillControlToField
& & Category = 'Quick Bindings'
& & Control = ListBox1
& & Track = True
& & FillDataSource = BindSourceDB1
& & FillDisplayFieldName = 'C_NAME'
& & AutoFill = True
& & BufferCount = -1
& & AutoBufferCount = False
& & FillExpressions = &&
& & FillHeaderExpressions = &&
& & FillBreakGroups = &&
&&end
end
object ListBox1: TListBox
&&Align = alClient
&&Height = 567.000000
&&TabOrder = 0
&&Width = 384.000000
&&DefaultItemStyles.ItemStyle = 'listboxitemnodetail'
&&DefaultItemStyles.GroupHeaderStyle = ''
&&DefaultItemStyles.GroupFooterStyle = ''
end
复制代码
然后直接将ClientDataSet1组件的Active=True即可.
无标题.png (19.59 KB, 下载次数: 323)
14:05 上传
转载请保留当前帖子的链接： 谢谢！
搜索简单，分享不易，且分享且珍惜，您难道不想分享下您的心得？如果觉得本文章好的话，您可以在我们网站上注册，然后发布您的好的心得，让大家共同进步，谢谢！
主题帖子积分
新手上路, 积分 8, 距离下一级还需 42 积分
新手上路, 积分 8, 距离下一级还需 42 积分
可以在win平台下运行，没法再手机上运行啊
主题帖子积分
新手上路, 积分 36, 距离下一级还需 14 积分
新手上路, 积分 36, 距离下一级还需 14 积分
学习了..........
主题帖子积分
新手上路, 积分 22, 距离下一级还需 28 积分
新手上路, 积分 22, 距离下一级还需 28 积分
这里有很多老师滴
主题帖子积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
这里有很多老师滴
都是互相学习的
主题帖子积分
注册会员, 积分 64, 距离下一级还需 136 积分
注册会员, 积分 64, 距离下一级还需 136 积分
沒錯一起加油
主题帖子积分
新手上路, 积分 40, 距离下一级还需 10 积分
新手上路, 积分 40, 距离下一级还需 10 积分
在真机上运行，提示com.ema.....意外终止，求指教
主题帖子积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
在真机上运行，提示com.ema.....意外终止，求指教
该程序我只是在windows上测试过，没有在手机里测试哦
Powered by使用datasnap做三层数据库程序，服务器如何获取客户端的IP地址呢【delphi吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：15,217贴子：
使用datasnap做三层数据库程序，服务器如何获取客户端的IP地址呢收藏
使用datasnap做三层数据库程序，服务器如何获取客户端的IP地址呢？有谁知道怎么操作和设置吗？最好给个示例吧。
delphi,编程其实很容易,只要你平时认真地学习,业余时间多多复习当天的知识.再认真预习下一节上的知识,上课专心听讲,一切不是问题.
1. 很多网络的客户端，他们的 IP 都是代理的，无法连通的。2. 你可以让客户端报告自己的 IP。客户端可以询问当前连接的 IPPEER 好像叫这个名字。
登录百度帐号推荐应用