Einzelnen Beitrag anzeigen

QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.884 Beiträge
 
Delphi 12 Athens
 
#2

AW: Baum mit Nested TRemotable Nachfahren

  Alt 29. Aug 2018, 11:30
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.

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;
Andreas
Monads? Wtf are Monads?

Geändert von QuickAndDirty (29. Aug 2018 um 17:29 Uhr)
  Mit Zitat antworten Zitat