Ergebnis der Suchanfrage

• Forum: Netzwerke

  AW: TJSON.Format -> TJSONAncestor.Format umbauen, aber wie?

   
    by Uwe Raabe, 14. Mai 2022
  procedure TTSEStatus.RESTRequestAfterExecute(const Sender: TCustomRESTRequest);
  var
  Obj : TJSONValue;
  begin
  Obj := TJSONObject.ParseJSONValue(Sender.Response.Content);
  if Assigned(Obj) then
  try
  Log.Send(LevelBlue, cCategory, 'RequestType1: ' + Obj.Format);
  finally
  Obj.Free;