🚀 go-pugleaf

Hi!

I need to use a Midas server from a thread with the following
considerations:

-. The server was created in the principal process so that the thread
doesn't begin it every time that is started.
-. I need to have access to several methods in the Midas server from my
Thread -  Execute method.
-. I found the following code that it seeks retrieve data from a Midas to
Client DataSet but no works, neither it compiles! that is the code (I
suppose that to call a method is something similar) :

void PACKAGE __fastcall tctOpenCDS::Execute()             // PACKAGE
????????????
{
  bFIsRunning = true;

  IProvider *Provider;
  GUID iid = StringToGUID("{6E644935-51F7-11D0-8D41-00A0248E4B9A}");

  //FreeOnTerminate = true;
  FCount = FCDS->PacketRecords;
  //Get the provider;
  Provider = FCDS->Provider;   // ??????????????????????????

  try
  {
    OleCheck(CoInitialize(NULL));

    //Marshall the provider interface into the stream...
    OleCheck(CoMarshalInterThreadInterfaceInStream(iid, Provider,
&FStream));

    int RecsOut;

    //Get the marshalled interface
    OleCheck(CoGetInterfaceAndReleaseStream(FStream, iid, (void **)
&Provider));
    FHitEOF = false;
    Provider->GetRecords(0, RecsOut, FNewData);
    Synchronize(UpdateCDS);

    while(FHitEOF == false)
    {
      Provider->GetRecords(FCount, RecsOut, FNewData);
      FHitEOF = (RecsOut != FCount);
      //Update the CDS
      Synchronize(UpdateCDS);
    }
  }
  __finally
  {
    CoUninitialize();
    bFIsRunning = false;
  }
}

Thanks for your help.


Carlos Quijano