用DataSnap开发了一个服务端,但是无法获得端的信息,我的代码如下: procedure TServerContainer1.DSServer1Connect( DSConnectEventObject: TDSConnectEventObject); Var cItem: TListItem; begin if (DSConnectEventObject.ChannelInfo<>nil) then begin Form_Main.Memo2.Lines.Add(IntToStr(DSConnectEventObject.ChannelInfo.Id)); Form_Main.Memo2.Lines.Add(DSConnectEventObject.ChannelInfo.ClientInfo.IpAddress); Form_Main.Memo2.Lines.Add(DSConnectEventObject.ChannelInfo.ClientInfo.ClientPort )