delphi调用U8登陆信息

[xulibing1016]

//登陆子程

function TForm1.LoginU8:Boolean;
begin
  Self.bLogin:=False;
  try
     Self.fLogin:=CreateOleObject('U8Login.clsLogin');
     Self.fNetLogin:=CreateOleObject('UFSOft.U8.Framework.Login.UI.clsLogin');
     if  fNetLogin.login_2('DP') then
     begin
       Self.bLogin:=True;
       oLoginContext:=fNetLogin.SubLogin('DP');  //暂未使用
       fLogin.ConstructLogin(fNetLogin.userToken);
     end;
    except
      MessageBox(0,'请安装用友软件(U8)!','错误',MB_OK);
      bLogin:=False;
      end;
      Result:=Self.bLogin;
end;

//获取相关信息

if not Self.LoginU8 then
  begin
    Application.Terminate;
  end else begin
     Self.stat1.Panels[0].Text:='操作用户:'+fLogin.cUserName+'('+fLogin.cUserId+')';
     Self.stat1.Panels[1].Text:='应用服务器:'+fLogin.dbServerName;
     Self.stat1.Panels[2].Text:='帐套标识:'+fLogin.cAcc_Id;
     Self.stat1.Panels[3].Text:='操作日期:'+FormatDateTime('yyyy-mm-dd',fLogin.CurDate);
     Self.stat1.Panels[4].Text:='任务ID:'+fNetLogin.GetTaskID('DP');

end;

//正常退出时

 if Self.bLogin then
  begin
    Self.fNetLogin.SubLogout('DP');
    Self.fNetLogin.ShutDown;
  end;

 

网上搜到以上代码可以试下调用用友登陆获取登陆信息，现在我想不调用登陆，能否直接获取登陆信息，
因为我自己写了个exe程序想挂进用友U8，问题时我需要用友的登陆信息来控制我程序中的权限。



在线等，解决立马给分。

[babydog01]

U8除SQL服务器外，还有自己的一个服务器程序，没有仔细研究，应该是三层结构吧。要实现楼主的功能，必须深入了解U8，对局外人来说比较困难。

[babydog01]

U8除SQL服务器外，还有自己的一个服务器程序，没有仔细研究，应该是三层结构吧。要实现楼主的功能，必须深入了解U8，对局外人来说比较困难。

[xulibing1016]

如果按照调用登陆界面的思路，到是能解决问题，只是把用友的登陆快捷方式路径改成我自己的隐藏启动程序去调用他的登陆界面，获取登陆账号后自动退出。这样每个客户端都要改，如果有重装又要改，相对来说比较麻烦。所以我想能不能直接获取用友登陆信息。只要一个登陆名即可。

[babydog01]

如果只要一个登录名的话，可看看登录后的界面是否显示登录名，如果有的话可以用屏幕取字的方法来获取。

[xulibing1016]

[Quote=引用 4 楼 的回复:]
如果只要一个登录名的话，可看看登录后的界面是否显示登录名，如果有的话可以用屏幕取字的方法来获取。
[/Quote]
无用户登录账号

[xulibing1016]

求高手，既然登陆的时候能获取，登陆后应该也是能取到吧？

[xulibing1016]

怎么就没人来了

[wsxcdx]

没有接口，界面上也没登陆用户的信息，想不到有什么好办法获取用户名

[xiaoxinlaa]

很想知道，登录成功后，怎么使用

[haitao]

不调用登陆，能否直接获取登陆信息？ 感觉不行，这种登录机制应该是通过一次性的session id控制的，没登录就没这个id 可以直接访问它的数据库，当然，只读不改才保险