[httpClient] Check if json response content

exilon · Oct 10, 2023 · 8d0ef7e · 8d0ef7e
1 parent 915da47
commit 8d0ef7e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Quick.HttpClient.pas b/Quick.HttpClient.pas
@@ -380,7 +380,9 @@ constructor THttpRequestResponse.Create(aResponse: IHTTPResponse; const aContent
 begin
   fStatusCode := aResponse.StatusCode;
   fStatusText := aResponse.StatusText;
-  if aContent <> '' then fResponse := TJSONObject.ParseJSONValue(aContent) as TJSONObject;
+  if ((aContent <> '') and
+      (aContent.StartsWith('{') or (aContent.StartsWith('[')))
+      ) then fResponse := TJSONObject.ParseJSONValue(aContent) as TJSONObject;
   //if response is not json, get as json result
   if fResponse = nil then
   begin