703
社区成员
发帖
与我相关
我的任务
分享
var
UserLog, UserData: olevariant;
userid:String;
begin
UserLog := createoleobject('UFSoft.U8.Framework.Login.UI.clsLogin');
if UserLog.login_2('DP') then
begin
UserData := createoleobject('UFSoft.U8.Framework.LoginContext.UserData');
UserData := UserLog.GetLoginInfo;
userid := UserData.UserId;
end;
end;
Variant UserLog, UserData;
String UserID;
UserLog = CreateOleObject("UFSoft.U8.Framework.Login.UI.clsLogin");
if (UserLog.OleFunction("login_2", "DP"))
{
UserData = CreateOleObject("UFSoft.U8.Framework.LoginContext.UserData");
UserData = UserLog.OleFunction("GetLoginInfo");
UserID = UserData.OlePropertyGet("UserId");
}
Variant UserLog, UserData;
String userid;
UserLog=CreateOleObject("U8Login.clsLogin") ;
// UserLog = Variant::CreateObject("U8Login.clsLogin");
if (UserLog.Login_2("DP"))
{
// UserData = Variant::CreateObject("UFSoft.U8.Framework.LoginContext.UserData");
// UserData = UserLog.GetLoginInfo;
// userid = UserData.UserId;
}