From 2435eccc2eb649363c8abee344e41fd224242752 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 28 Apr 2025 12:01:26 +0200 Subject: [PATCH] Anpassungen Relayhub (ATEZ) --- SDL/My Project/AssemblyInfo.vb | 4 ++-- .../Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb | 23 ++++++++++++++++--- .../ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb | 2 +- 3 files changed, 23 insertions(+), 6 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 210c6039..89e6c95b 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb index ee8e2e9e..ede5ec51 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb @@ -121,7 +121,18 @@ Public Class cRelayHub ' Request-Objekt in JSON-String umwandeln Dim jsonPayload As String = JsonConvert.SerializeObject(request) - MsgBox(jsonPayload) + ' MsgBox(jsonPayload) + + + ' Größe in Bytes + Dim payloadSizeBytes As Integer = System.Text.Encoding.UTF8.GetByteCount(jsonPayload) + + ' Größe in Kilobytes (1 KB = 1024 Bytes) + Dim payloadSizeKb As Double = payloadSizeBytes / 1024.0 + + Console.WriteLine("📦 Größe des JSON-Payload:") + Console.WriteLine(payloadSizeBytes & " Bytes (" & Math.Round(payloadSizeKb, 2) & " KB)") + ' Anfrage senden Dim response As Chilkat.HttpResponse = http.PostJson2(API_URL & "/job-orders/init", "application/json", jsonPayload) @@ -152,12 +163,18 @@ Public Class cRelayHub Case 400 To 499 result.Success = False result.Message = "Client-Fehler" - result.Details = response.BodyStr + result.Message = "StatusCode: " & response.StatusCode + result.Details = "StatusLine: " & response.StatusLine + result.Details = "StatusText: " & response.StatusText + result.Details = "BodyStr: " & response.BodyStr Case 500 To 599 result.Success = False result.Message = "Server-Fehler" - result.Details = response.BodyStr + result.Message = "StatusCode: " & response.StatusCode + result.Details = "StatusLine: " & response.StatusLine + result.Details = "StatusText: " & response.StatusText + result.Details = "BodyStr: " & response.BodyStr Case Else result.Success = False diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb index bef43ee2..f114d8f1 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb @@ -1013,7 +1013,7 @@ Public Class cATEZ_NCTS_IN Next ncts.json &= jsonData.Emit() - Debug.WriteLine(jsonData.Emit()) + Debug.WriteLine("jsonData.Emit: " & jsonData.Emit()) Return success