delphi登录用友的信息

//登陆子程
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,问题时我需要用友的登陆信息来控制我程序中的权限

posted @   yclizq  阅读(299)  评论(1编辑  收藏  举报
编辑推荐:
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 理解Rust引用及其生命周期标识(上)
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
阅读排行:
· 全程不用写代码,我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了,比商业数据库还牛
· 记一次.NET内存居高不下排查解决与启示
· DeepSeek 开源周回顾「GitHub 热点速览」
· 白话解读 Dapr 1.15:你的「微服务管家」又秀新绝活了
点击右上角即可分享
微信分享提示