Hallo ich fülle zurzeit einen Baum durch jeweils einen SOAP Request pro parentnode.
Inklusive Wurzel 3 Ebenen.
Da der Baum arg viele Blätter aufweist dauert das das schonmal etwas...

Ich möchte den Baum gerne in einem einzigen Request abrufen.

Kann ich dazu Dynamische arrays Von TRemotable Objekten nutzen?
So wie hier?

zusammenfalten · markieren

Delphi-Quellcode:

Type

TLizenz = Class(TRemotable)
private
  Instanzen:TStringDynArray;
  fLizenzID:String;
Published
  Property LizenzID:String read fLizenzID write FLizenzID;
  Property Instanzen:TStringDynArray read fInstanzen write fInstanzen;
end;

TLizenzen = array of TLizenz;

TSOAPBaum = Class(TRemotable)
private
  fLizenzNehmer:String;
  fTLizenzen;
published
  Property LizenzNehmer:String; read fLizenzNehmer write fLizenzNehmer;
  Property Lizenzen: TLizenzen read fTLizenzen write fTLizenzen;
end;

Niemand der sowas mal gemacht hat?
Ich habe es jetzt ausprobiert...
Er sendet zwar ein XML paket mit allen daten , aber wie es scheint Nimmt der Soap Client nichts davon in das Array auf. Das Array ist leer.

EDIT:
OK ich habs....
INDEX IS_UNBD sollte man wohl besser nicht benutzen obwohl im Internet Beispiele durchaus anders aussehen.

Also es geht.
So wie es Im eröffnungs post steht. Mit einer änderung damit man die klasse befüllen kann, brauft is ServiceSeitig eine SetLength methode.

zusammenfalten · markieren

Delphi-Quellcode:

Type

TLizenz = Class(TRemotable)
private
  Instanzen:TStringDynArray;
  fLizenzID:String;
Published
  Property LizenzID:String read fLizenzID write FLizenzID;
  Property Instanzen:TStringDynArray read fInstanzen write fInstanzen;
end;

TLizenzen = array of TLizenz;

TSOAPBaum = Class(TRemotable)
private
  fLizenzNehmer:String;
  fTLizenzen;
Public
  Procedure SetLizenzenCount(aValue:integer);
published
  Property LizenzNehmer:String; read fLizenzNehmer write fLizenzNehmer;
  Property Lizenzen: TLizenzen read fTLizenzen write fTLizenzen;
end;