From 7d95e67308ee0abcce5c7bd66265146d3dfefd74 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Sun, 30 Mar 2025 11:35:03 +0300
Subject: useful helper JsonReply moved to the core

---
 src/mir_app/src/MHttpResponse.cpp | 27 +++++++++++++++++++++++++++
 src/mir_app/src/mir_app.def       |  5 +++++
 src/mir_app/src/mir_app64.def     |  5 +++++
 3 files changed, 37 insertions(+)

(limited to 'src')

diff --git a/src/mir_app/src/MHttpResponse.cpp b/src/mir_app/src/MHttpResponse.cpp
index ccfd81e34c..4a27d794df 100644
--- a/src/mir_app/src/MHttpResponse.cpp
+++ b/src/mir_app/src/MHttpResponse.cpp
@@ -33,6 +33,33 @@ MHttpResponse::~MHttpResponse()
 	mir_free(szResultDescr);
 }
 
+/////////////////////////////////////////////////////////////////////////////////////////
+
+JsonReply::JsonReply(MHttpResponse *pReply)
+{
+	if (pReply == nullptr) {
+		m_errorCode = 500;
+		return;
+	}
+
+	m_errorCode = pReply->resultCode;
+	if (m_errorCode != 200)
+		return;
+
+	m_root = json_parse(pReply->body);
+	if (m_root == nullptr) {
+		m_errorCode = 500;
+		return;
+	}
+
+	m_errorCode = (*m_root)["status"]["code"].as_int();
+}
+
+JsonReply::~JsonReply()
+{
+	json_delete(m_root);
+}
+
 /////////////////////////////////////////////////////////////////////////////////////////
 // MHttpResponse helpers for Pascal
 // declared only in m_netlib.inc
diff --git a/src/mir_app/src/mir_app.def b/src/mir_app/src/mir_app.def
index 1dd24ecab3..045183f86f 100644
--- a/src/mir_app/src/mir_app.def
+++ b/src/mir_app/src/mir_app.def
@@ -998,3 +998,8 @@ Proto_CanDeleteHistory @1118 NONAME
 ?getConn@MWebSocket@@QBEPAXXZ @1129 NONAME
 ?Chat_GetStatus@@YGPAUSTATUSINFO@@PAUSESSION_INFO@@PBUUSERINFO@@@Z @1130 NONAME
 ?SetBirthday@Contact@@YGXIHHH@Z @1131 NONAME
+??0JsonReply@@QAE@PAUMHttpResponse@@@Z @1132 NONAME
+??1JsonReply@@QAE@XZ @1133 NONAME
+?data@JsonReply@@QBEAAVJSONNode@@XZ @1134 NONAME
+?error@JsonReply@@QBEHXZ @1135 NONAME
+??BJsonReply@@QBE_NXZ @1136 NONAME
diff --git a/src/mir_app/src/mir_app64.def b/src/mir_app/src/mir_app64.def
index 5e7b681246..097f6a94fa 100644
--- a/src/mir_app/src/mir_app64.def
+++ b/src/mir_app/src/mir_app64.def
@@ -998,3 +998,8 @@ Proto_CanDeleteHistory @1118 NONAME
 ?getConn@MWebSocket@@QEBAPEAXXZ @1129 NONAME
 ?Chat_GetStatus@@YAPEAUSTATUSINFO@@PEAUSESSION_INFO@@PEBUUSERINFO@@@Z @1130 NONAME
 ?SetBirthday@Contact@@YAXIHHH@Z @1131 NONAME
+??0JsonReply@@QEAA@PEAUMHttpResponse@@@Z @1132 NONAME
+??1JsonReply@@QEAA@XZ @1133 NONAME
+?data@JsonReply@@QEBAAEAVJSONNode@@XZ @1134 NONAME
+?error@JsonReply@@QEBAHXZ @1135 NONAME
+??BJsonReply@@QEBA_NXZ @1136 NONAME
-- 
cgit v1.2.3