🚀 go-pugleaf

I used the WSDLimporter imported a wsdl file in Borland 6.0. The
following type and a function were created:

typedef DynamicArray<AnsiString> getGroupUsersListResponse;

virtual getUserGroupsListResponse getUserGroupsList(const AnsiString
userId, const AnsiString appPrefix) = 0;

When I called "getUserGroupsList" in my testing program as the
following. The return is always empty. So I believe that the response
was not been parsed correctly and the return array is not been
filled.

Does anyone know a solution for this problem?

//---------------------------------------------------------------------------
void __fastcall TfrmWSClient::Button1Click(TObject *Sender)
{
    const AnsiString sURL = edtURL->Text;
    _di_LDAPMaintenance ldapInfo = GetLDAPMaintenance(false, sURL);
    const AnsiString sUerID =  edtUserID->Text;
    const AnsiString sAPP = edtAppPreFix->Text;
    getUserGroupsListResponse theGrp;
    try
    {
      theGrp = ldapInfo->getUserGroupsList(sUerID, sAPP);
      if (theGrp.Length <=0) //this is always true!!
      {
        ShowMessage("No group found for this user");
        return;
      } else
        lblUserGroup->Caption = theGrp[0];

    }catch (Exception &E)
    {
      ShowMessage("Can not retrive this user's group information" +
E.Message);
      return;
    }

}