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 ansstringCodePudding user response:
The