Einzelnen Beitrag anzeigen

ScharfeMietze

Registriert seit: 5. Mär 2014
165 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#22

AW: RestServer Antwort Json ohne "[" Klammern

  Alt 3. Feb 2016, 13:07
Dann könnte die function so aussehen
Delphi-Quellcode:
function TServerMethods1.updateHddCrawler(Key: string; aJSONObject: TJSONObject): TJSONObject;
var
  LJSONObject: TJSONObject;
  s: string;
begin
Result := TJSONObject.Create;
  try
   if KeyValidation(Key) then frmHddCrawler.AnalyzeJson(aJSONObject,Result)
   else Result.AddPair('error', 'invalid key') ;
  except
   Result.Free;
   raise;
  end;
end;
Einwände?

Geändert von ScharfeMietze ( 3. Feb 2016 um 13:10 Uhr)
  Mit Zitat antworten Zitat