🚀 go-pugleaf

Hi, guys,
I am migrating my program from BCB5 to BCB6. My program is a multi-tier one.
I am using COM+ as the middle-ware. Because DCOM can't work in many networks
having firewall, I am using socket connection instead. So I can't use the
method 'CreateRemote' to create a remote COM object. The only way to access
remote COM object is through 'AppServer' property of 'TDispatchConnection'.
My problems are:

1. I can't get any type of value return via TVariant if I use AppServer to
invoke RPC.

  A:
    TVariant Value1;
    TVariant Value2;
    ITestDisp TestServer = (ITest*)(IDispatch*)SocketConnection1->AppServer;
    TestServer.GetValue(&Value1, &Value2);

    Unfortunately, Value1 and Value2 remain the same after calling.

    B:
    TVariant Value1;
    TVariant Value2;
    TCOMITest TestServer = CoTest::CreateRemote(ServerName);
    TestServer.GetValue(&Value1, &Value2);

    Value1 and Value2 can be fetched from the server.

    A and B are using the same COM object, but the results are different!

2. I can't get 'OleVariant' value return via TVariant even if I using the
method A above.

If I just want to return a String value to the client,  I can use BSTR. But
the true is that, I have to return a OleVariant from the server sometimes,
for example, a OleVariant containing a data set.My program work normally in
BCB5, and I've try to write it in Delphi6, it works well too. I am puzzled.
Is it a 'bug' in BCB6? If it is, how can I eliminate it? Such problems have
derived me mad! I've tried to get the answer from Borland branch in our
company. Weeks have gone. I am waiting for your help!

Best regards!

Mountain Lan