[API] I cannot retrieve members list from design group.

[Anonymous]

Hello,

Could anyone pleas explain to me, why this code:

            IRDimGroups dimGroups = dimServer.GroupsService;
            for(int i=1;i<=dimGroups.Count;i++)
            {
                IRDimGroup group = dimGroups.Get(i);
                IRDimStream dimStream = dimServer.Connection.GetStream();
                dimStream.Clear();
                group.GetMembList((RDimStream)dimStream);
                int a = dimStream.Size(IRDimStreamType.I_DST_TEXT);
                int b = dimStream.Size(IRDimStreamType.I_DST_LONG);
                int c = dimStream.Size(IRDimStreamType.I_DST_DOUBLE);
                string members = dimStream.ReadText();
                Console.WriteLine(members);
            }

Launech on a model which contains proper design groups returns HRESULT_E_FAIL in line :

                string members = dimStream.ReadText();

 ?

As VS Debugger shows:

group is valid object with name etc ,

a = 1

b = 1

c = 0

Many Thanks,

Paweł

[Rafal.Gaweda]

Example VBA code:

Dim RDMServer As RDimServer
    Dim RDMStream As RDimStream
    Dim RDMGrps As RDimGroups
    Dim RDMGrp1 As RDimGroup
    Set RDMServer = RobApp.Kernel.GetExtension("RDimServer")
    RDMServer.Mode = I_DSM_STEEL
    
    Set RDMGrps = RDMServer.GroupsService
      
    For I = 0 To RDMGrps.Count - 1
    
        usrgr = RDMGrps.GetUserNo(I)
    
        Set RDMGrp1 = RDMGrps.Get(usrgr)
        Cells(2 + I, 1) = usrgr
        Cells(2 + I, 2) = RDMGrp1.Name
        Set RDMStream = RDMServer.Connection.GetStream
        RDMGrp1.GetMembList RDMStream
        RDMStream.SeekSet I_DST_TEXT, 0
        Cells(2 + I, 3) = RDMStream.ReadText
    Next I