RTC Forums

          PayLoad := Srv.Read;
          LogMessage := LogMessage + #13#10#09 + 'PayLoad: ' + PayLoad;
          Log(LogMessage, '');
          if (PayLoad.IsEmpty) then begin
            message := 'Request must containe JSON Body';
            break;
          end;
          Try
            JSONPayload := TRtcRecord.FromJSON(PayLoad);
          Except
            on E : Exception do begin
              message := 'Invalid JSON request data: ' + E.Message;
              break;
            end;
          End;
          // Now have valid JSon from Body of POST

          if (JSONPayload.CheckType('idOrder', rtc_Integer[) = false) then begin // should return true, but returns false
            if (JSONPayload.CheckType('LOT', rtc_Integer) = false) then begin
              message := 'value for idOrder or LOT must be supplied';
              break;
            end;
            LOT := JSONPayload.asInteger['LOT'];
            idOrder := 0;
          end else begin
            idOrder := JSONPayload.asInteger['idOrder'];
            LOT := 0;