🚀 go-pugleaf

Hi, guys,
I've developed a program using BCB5 and COM+. I found that the middle-tire
isn't stable after running for a long time, an error message 'Abnormal
program terminated' was reported in the host server, and the 'dllhost.exe'
process was shutdowned. I wrote a test client and and test server to find
out the problem. If the client invokes a RPC which returns a TVariant value
from the middle-tire, everytime the client calls the COM+ object, memory
exhausted by 'dllhost.exe' process increases. I think maybe this is the
reason.

My test program is so simple.

Client:

  conServer->Open();
  for (int intCounter = 0; intCounter < 10000; intCounter ++)
  {
    ITestDisp TestInterface = (ITest*)(IDispatch*)conServer->AppServer;
    WideString strTemp = "ValueIn";
    TVariant objValueIn = strTemp;
    TVariant objValue;
    OleCheck(TestInterface.TestRobust(objValueIn, objValueOut));
  }

  conServer->Close();

Server:

STDMETHODIMP TTestImpl::TestRobust(TVariantInParam ValueIn,
  TVariant* ValueOut)
{
  TVariant objIn = ValueIn;
  WideString strValueIn = objIn;
  WideString strValueOut = strValueIn + "Out";
  TVariant objOut = strValueOut;
  *ValueOut = objOut;
  return S_OK;
}

By the way, I've modified the source file 'mtshlpr.cpp' and added it to my
project. This modification is necessary according to bug report. Otherwise,
the COM+ object will crash when invoked.

What's wrong in my program? I've tried to write it with Delphi6, and I
noticed that memory in the server is released normally. I am longing for the
answer.

Thanks!

Mountain Lan