🚀 go-pugleaf

the return value ist ONLY used to appoint success or failure to the calling
process.
to pass a return value you have to define a return-variable on server side.

------Server side ---------------
STDMETHODIMP TAppModul4Impl::GetTable(TVariant* vTableName,
  TVariant* ReturnValue)
{
    .
         // get Data
    .
      // -------------------------------------------------------------------
        // copy Data (TStringList) to Variant
        Variant v = VarArrayCreate(OPENARRAY(int, (0,Data->Count)),
varOleStr);
        for(int i = 0; i < List->Count; i++) {
            v.PutElement( WideString(List->Strings[i]), i);
        }

        // assign v to ReturnValue
        *ReturnValue = v;
        delete Data;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IAppModul4);
  }
  return S_OK;
}

------Client side ----------------
Variant Data;
Data = dbCon->AppServer.Exec(Function("GetTable") <<
riant( String( "<TableName")) );