在客户端调用中间层时,如何在中间层中得到客户端用户信息(IP,UserName,Password)?中间层中怎样检测客户端程序是否结束?(80分)

  • 主题发起人 主题发起人 autojet
  • 开始时间 开始时间
A

autojet

Unregistered / Unconfirmed
GUEST, unregistred user!
在客户端调用中间层时,如何在中间层中得到客户端用户信息(IP,UserName,Password)?中间层中怎样检测客户端程序是否结束?
 
在数据库见一个表保存ip usename password等信息
客户端调用中间层时insert 一条记录,退出时删除该条记录
中间层根据此表记录来判断
 
在中间的远程数据模块的类中添加一个接口,定义接口的参数为OleVariant:如
procedure TGss_Server_module.add_client_inf(var the_pop_no, the_pop_name,
the_pop_unit, the_client_jq: OleVariant);//定义的参数!
begin
server_Form.client_list.Items.Add(format('%-28s', [the_pop_no])+format('%-28s', [the_pop_name])+format('%-28s', [the_pop_unit])+format('%-28s', [the_client_jq]));
end;

在客户端利用add_client_inf( , , , )传递参数即可。
 
这样是可以得到客户端用户的列表,但如果网内有其它高手,自己编程来连接中间层,那我
的中间层不是在我不知不觉的情况下充当了别人的利用工具,没有了安全性?
 
你可以定期监测连接中间层用户的个数, 和其他的自定义的条件, 如果条件符合, 则该用户合法
如果不符合, 则切断连接!
 
在中间层的接口中添加方法,然后用此方法取信息。
客户端调用接口中的方法。
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部