delphi互联网消息服务器,Delphi2010中采用DataSnap的三层网络架构服务器获取客户端ip,端口信息...

需要的控件

首先要有 TDSServerModule、 TDSServer、TDSTCPServerTransport;

TDSServerClass、TDataModule;实现上述功能主要控件如下图所示

包含的单元包括

SysUtils, Classes,

DSTCPServerTransport,

DSHTTPCommon, DSHTTP,

DSServer, DSCommonServer, Provider, IdBaseComponent, IdComponent,

IdTCPConnection, IdTCPClient;

其中IdTCPConnection单元一定要有。

代码如下，//符号包含的是主要实现部分；

procedure TServerContainer1.DSServer1Connect(

DSConnectEventObject: TDSConnectEventObject);

var

ClientConnection: TIdTCPConnection;

begin

//======================================