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