请教delphi转换bcb，一小函数，谢谢

[shuaialang]

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;

[shuaialang]

这是调用用友登录框的代码。希望可以帮转换下BCB。

[shuaialang]

  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;
 
      }

新手表示鸭梨很大，这样错到西伯利亚去了。我include了comobj.hpp

[ccrun.com]

大概是这个样子：

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");
}

[shuaialang]

[Quote=引用 3 楼 ccrun 的回复:]
大概是这个样子：
C/C++ code
Variant UserLog, UserData;
String UserID;
UserLog = CreateOleObject("UFSoft.U8.Framework.Login.UI.clsLogin");
if (UserLog.OleFunction("login_2", "DP"))
{
UserData = Crea……
[/Quote]

感谢，http://topic.csdn.net/u/20110110/21/59033047-f482-4d11-b553-fa3102671852.html?45386
还有100分，表示谢意，请回个贴哈

[shuaialang]

顺便想问下 OlePropertySet，OleFunction，OleProcedure，OlePropertyGet有神马区别。。