Home > Back-end >  Delphi XE tencent development plug-in, how to obtain the current login user information?
Delphi XE tencent development plug-in, how to obtain the current login user information?

Time:10-06

I hereby use DELPHI XE 2010 plug-in, develop a tencent one function is to obtain the current login user information, such as account number, name, telephone, E-mail information, such as can now have access to accounts, but according to account for name, phone, according to the SDK, how to do it all tips "can not find members", what reason be excuse me?
Specific implementation key code is as follows:
Var
Account name: string;
The begin
Account:=objKernal. Account;
//name:=objKernal. Get_Name;
ShowMessage (' the machine has to log in to your account: '+ account);
//account can be normal access to, the following error is

Objapi:=CreateoleObject (' RTXClient. RTXAPI ');
ObjKernal:=objapi GetObject (' KernalRoot ');
ObjBuddyManager:=objKernal. RTXBuddyManager;
ObjBuddy:=objBuddyManager. Buddy (account);//the bank error, prompt can not find members
//VB write normal access to detailed information, so can not Delphi XE
Mmo1. Lines. The Add (' Account number: + objBuddy. Account + # 13 # 10);
Mmo1. Lines. The Add (' office phone: + objBuddy. Telephone + # 13 # 10);
Mmo1. Lines. The Add (' Email address: '+ objBuddy. Email + # 13 # 10);
Mmo1. Lines. The Add (" Name: "+ objBuddy. Name + # 13 # 10);
Mmo1. Lines. The Add (' Mobile phone: + objBuddy. Mobile + # 13 # 10);
end;
Error: cannot find members
I understand: the members here to get the SDK account information function Buddy (' account ') to find, but according to the SDK examples, is that you can in the VB, why DELPHI XE? Please high comment, thank you!

CodePudding user response:

Someone had done related to open?

CodePudding user response:

Forget it, I have to use other ways to get here!

CodePudding user response:

If someone knows, also can reply, thank you!

CodePudding user response:

Yong ansstring

CodePudding user response:

The
reference 4 floor MSFM reply:
yong ansstring


What do you mean?

CodePudding user response:

ObjBuddy:=objBuddyManager. Buddy (account);//the bank error, prompt can not find members
To:
ObjBuddy:=objBuddyManager. Buddy [account];//bank error, prompt can not find members

CodePudding user response:

RTX ah, this I used, there is no problem, go home at night to give you find the code
  • Related