REST-Server Aufruf ohne Parameter -> Access violation

[Starsky911]

Hallo,

ich habe einen REST-Server erstellt, über den ich eine Servermethode mit zwei
Parametern definiert habe.

Delphi-Quellcode:

type
{$METHODINFO ON}
  TServerMethods1 = class(TDataModule)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    function KundeListe(action: string; jObject: TJSONObject): TJSONObject;
  end;
{$METHODINFO OFF}
   
function TServerMethods1.KundeListe(action: string; jObject: TJSONObject): TJSONObject;
var
  s: string;
begin
  if Assigned(jObject) then begin
    if not jObject.Null then begin
     s:=jObject.ToString;  <<<-- Access violation bei Aufruf2
     //...
   end;
  end;
end;

Aufruf über Webbrowser:

Aufruf1: localhost:8080/datasnap/rest/TServerMethods1/"KundeListe"/read//
Aufruf2: localhost:8080/datasnap/rest/TServerMethods1/"KundeListe"/read/

Der erste Aufruf funktioniert einwandfrei.
Bei dem zweiten Aufruf fehlt der zweite Parameter was dazu führt das
es zum Access violation kommt.
Eigenartig ist auch, dass "jObject.Null" im Debugger True anzeigt aber
trotzdem in der If-Schleife rein geht.
Irgendwie scheint das jObject einen undefinierten Zustand zu haben.
Gibt es irgendwie eine Möglichkeit den zweiten Parameter auf Gültigkeit
zu prüfen?
Vielen Dank im voraus.

Gruß
Starsky

[mkinzler]

Wie ist toString implementiert?

[Starsky911]

toString ist eine Function aus dem Object TJSONObject aus der Unit System.JSON
Aber auch wenn ich die Funktion jObject.Count oder jObject.Size aufrufe
bekomme ich auch einen Access Violation.

[Sir Rufo]

Dann schau doch mal über den Debugger, wer diese Instanz erzeugt hat (durch den Callstack zurückgehen).

Da gibt irgendetwas wohl eine nicht initialisierte lokale Referenzvariable durch

[Starsky911]

Es ist eine Datasnap-Rest-Anwendung die über
den Assistenten von Delphi XE7 erstellt wurde.
Der Aufruf Stack.

[Sir Rufo]

Du hast den Callstack gefunden

Jetzt brauchst du nur noch dich von oben nach unten durchklicken und schauen, wer diese Instanz erzeugt (bzw. erzeugen sollte).

Dann einen Breakpoint an den Anfang dieser gefundenen Methode, nochmals aufrufen und schauen, warum die Instanz nicht erzeugt wird.