实现远程登陆 请各位高手指点

Question

实现远程登陆 请各位高手指点
有两台计算机　A,B　相互连接
一直A计算机上的一个帐号和密码　怎样在计算机B上　验证这个帐号和密码我想做一个函数　FRemotLong(sName,sPassword:String):Boolean;我怎样用程序实现

Answer 1

实现远程登陆 请各位高手指点
有两台计算机　A,B　相互连接
一直A计算机上的一个帐号和密码　怎样在计算机B上　验证这个帐号和密码我想做一个函数　FRemotLogin(sName,sPassword:String):Boolean;我怎样用程序实现

Answer 2

你建一个RemoteDataModule,
然后 view|type Library ,
在接口中建过程,参数自己设,在parameters页中,
然后刷新,注册,在此单元中实现函数功能,
服务器打开scktsrvr.exe;
在客户端添加一个datasnap中的控件(我用的socketconnection),
选好主机,选好端口,
然后调用socketconnection.appserver.xxx()就ok了
##########################################################################
clientdataset1.close;
clientdataset1.open;
时，向应用服务器端传送用户id，应用程序服务器取得用户id后，
////////////////////////////
如果是用SocketConnection,则
socketConnection1.AppServer.SetID('15');
如果是用DCOMConnection，则
DCOMConnection.AppServer.SetID('15');
////////////////////////
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('exec GetRecords '+varParams);
adoquery1.ExecSQL;
adoquery1.Open;

Answer 3

建一个RemoteDataModule,
然后 view|type Library ,
在接口中建过程,参数自己设,在parameters页中,
然后刷新,注册,在此单元中实现函数功能,
服务器打开scktsrvr.exe;
在客户端添加一个datasnap中的控件(我用的socketconnection),
选好主机,选好端口,
然后调用socketconnection.appserver.xxx()就ok了

Answer 4

大家搞错了 是我没有说清楚不是数据库问题  是B机器 上连接Windows 操作系统FRemotLogin(sName,sPassword:String):BooleanFRemotLogin('Administrator','mima')