DataSnap如何获得客户端ip?

2015-04-18 09:14:35 884 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi2010中DataSnap高级技术(3)—DataSnap服务器如何得到客户端的IP和端口作为一个服务器软件，必须做到对客户端强有力的控制，想要控制，就必须得到客户端的网络基本信息，比如客户端IP和端口。有了客户端IP就能随心所欲操控客户端，比如终止某些客户端的连接、限制功能等等。在delphi2010中的datasnap服务器如何获得客户端ip，的确花了我点时间，奇怪为什么这个功能不做的更人性化点呢，功能总是藏着掖着。还得让程序员像寻宝一样摸索，浪费时间。现在把我整理的结果阅读详情

从各种资料中看到的都是在连接和断开事件中通过DSConnectEventObject: TDSConnectEventObject这个参数获得,
如果是在远程函数中如何获得呢??

...全文

FreeRTOS OTA实战：从Bootloader设计到安全升级的完整流程（附MQTT示例代码）本文详细介绍了在FreeRTOS系统中实现安全OTA固件升级的完整流程。内容涵盖从Bootloader设计、存储分区规划到与MQTT协议集成的OTA Agent任务开发，并重点解析了固件签名验证、防回滚等关键安全机制，为嵌入式物联网设备提供了一套高可靠性的远程升级解决方案。阅读详情

new_BCBER

数据库及相关技术 1,178 成员 18,938 内容

+ 关注 + 加入社区

切换为时间正序

new_BCBER 2015-04-20

打赏
举报

jjwwang 的想法应该可以,我试试,但感觉总是绕了一个小圈圈,要是有直接获取的方法就好了 kfrght 的网上方法我也看过,只能在连接事件中得到啊

CACACACACA 2015-04-18

打赏
举报

记得有个TSession的全局单实例的东东，在连接事件中就要关联起来. 有段时间没搞datasnap了，所以记不太清了，真不是好意思了。

宝龙哥 2015-04-18

打赏
举报

给你个参考：在delphi2010中的datasnap服务器如何获得客户端ip，的确花了我点时间，奇怪为什么这个功能不做的更人性化点呢，功能总是藏着掖着。还得让程序员像寻宝一样摸索，浪费时间。现在把我整理的结果奉献给大家，免得大家在花时间研究这个。另外，通过研究发现，DSConnectEventObject.ChannelInfo.Id 属性实际上是内存地址，并不是一个简单的数字。以下代码红色部分是关键。 uses IdTCPConnection； ...... procedure TServerContainer1.DSServer1Connect (DSConnectEventObject: TDSConnectEventObject); var ClientConnection: TIdTCPConnection; begin with Form1 do begin dsShowDataSet.Append; dsShowDataSet['ClientConnectTime'] := Now; if DSConnectEventObject.ChannelInfo <> nil then begin ClientConnection := TIdTCPConnection(DSConnectEventObject.ChannelInfo.Id); dsShowDataSet['ClientID'] := DSConnectEventObject.ChannelInfo.Id; dsShowDataSet['ClientIP'] := ClientConnection.Socket.Binding.PeerIP + ':' + IntToStr(ClientConnection.Socket.Binding.PeerPort); dsShowDataSet['ServerIP'] := ClientConnection.Socket.Binding.IP + ':' + IntToStr(ClientConnection.Socket.Binding.Port); end; dsShowDataSet['ClientUserName'] := DSConnectEventObject.ConnectProperties [TDBXPropertyNames.UserName]; dsShowDataSet['ClientUserPassword'] := DSConnectEventObject.ConnectProperties[TDBXPropertyNames.Password]; dsShowDataSet['ServerInfo'] := DSConnectEventObject.ConnectProperties [TDBXPropertyNames.ServerConnection]; dsShowDataSet.Post; end; end;

CACACACACA 2015-04-18

打赏
举报

登记客户端IP


//----------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
#include <stdio.h>
#include <memory>
#include "ServerMethodsUnit1.h"
#include "ServerContainerUnit1.h"
/* 引入头文件 */
#include <Datasnap.DSSession.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TServerContainer1 *ServerContainer1;
//---------------------------------------------------------------------------
__fastcall TServerContainer1::TServerContainer1(TComponent* Owner)
	: TDataModule(Owner)
{
}
//----------------------------------------------------------------------------
void __fastcall TServerContainer1::DSServerClass1GetClass(TDSServerClass *DSServerClass,
		  TPersistentClass &PersistentClass)
{
	PersistentClass =  __classid(TServerMethods1);
}
//----------------------------------------------------------------------------

void __fastcall TServerContainer1::DSServer1Connect(TDSConnectEventObject *DSConnectEventObject)
{
	UnicodeString IP = DSConnectEventObject->ChannelInfo->ClientInfo.IpAddress;
	TDSSession *DSSession = TDSSessionManager::GetThreadSession();
	UnicodeString Key = DSSession->Id;
	DSSession->PutData(Key, IP);
}
//---------------------------------------------------------------------------

服务方法中取IP


//----------------------------------------------------------------------------
#include <System.SysUtils.hpp>
#include <System.StrUtils.hpp>
/* 引入头文件 */
#include <Datasnap.DSSession.hpp>
#pragma hdrstop

#include "ServerMethodsUnit1.h"
//----------------------------------------------------------------------------
#pragma package(smart_init)

UnicodeString TServerMethods1::GetIP()
{
	TDSSession *Session = TDSSessionManager::GetThreadSession();
	UnicodeString Key = Session->Id;
	return Session->GetData(Key);
}

DataSnap如何获得客户端ip?

相关推荐