在Delphi中解析包含另一个jsonstring的字符串数组的JSON字符串

编程问答 2022-11-01

问题描述

所以我正在与该网络服务器交谈，它正在向我返回一个像这样的json条目：

{
 "result": [
  [],["{\"success\": \"true\",\"Message\":\"User 1 has been deleted.\"}"]
 ]
}

{"result":[[],\"Message\":\"User 1 has been deleted.\"}"]]}

我很难从中得到好处。 看着它，我制作了一个jsonobject，拉出result的值并将其制成一个数组，然后将第一个数组的第二个条目拉为另一个数组，然后取出该jsonstring并将其转换为另一个jsonarray，然后取出值。 但是由于某种原因，第一个jsonarray声称有两个值，两个值都是空的。我敢肯定，在那之后，我的方法中还存在其他错误。

我可以帮忙熨烫这个东西吗？

procedure DeleteUser;
var
 aJSON,aResult : String;
 aJsonResponse  : TJsonObject;
 aResultArrayA  : TJsonArray;
 aResultArrayB  : TJsonArray;
 aResultArrayC  : TJsonArray;
 aParsed        : TJsonValue;
 i              : Integer;
Begin
 aresult := '{"result":[[],\"Message\":\"User 1 has been deleted.\"}"]]}';
 aJsonResponse := TJsonObject.ParseJSONValue(aResult) as TJsonObject;
 if not (aJsonResponse is TJsonObject) then
    raise Exception.Create('InvalidResponse');
 aResultArrayA := aJsonResponse.getValue('result') as TJsonArray;
 if aResultArrayA.Count <= 0 then  //is 2
    raise Exception.Create('InvalidResponse');
 aJSON := aResultArrayA.Items[0].Value; // is ''
 aJSON := aResultArrayA.Items[1].Value; // is ''
 aResultArrayB :=  aResultArrayA.Items[0] as TJSONArray;
 if aResultArrayB.Count <= 0 then // is 0
    raise Exception.Create('InvalidResponse'); //raises here
 aJSON := aResultArrayB.Items[0].Value;
 aJSON := aResultArrayB.Items[1].Value;
 aResultArrayC := TJSONObject.ParseJSONValue(aResultArrayB.Items[1].Value) as TJSONArray;
 for aParsed in aResultArrayC do begin
    aJson := aJson + aParsed.GetValue<string>('success') + ' ';
    aJson := aJson + aParsed.GetValue<string>('message') + ' ';
 end;
end;

谢谢大家。

解决方法

我真的认为使用JSON的最佳方法是序列化和反序列化。是的，在某些情况下最好使用解析，但请注意以下几点：

uses ...,Rest.Json;

  TMyArray = ARRAY of ARRAY of string;
  //class for deserialization outer JSON object
  TMyParse = CLASS
    private
      FResult:TMyArray;
    procedure SetResult(const Value: TMyArray);
    public
      property result:TMyArray read FResult write SetResult;
  END;

  //class for deserialization inner JSON object
  TMyInnerParse = class
    private
      FSuccess:Boolean;
      FMessage:string;
      procedure SetMessage(const Value: String);
      procedure SetSuccess(const Value: Boolean);
    public
      property success:Boolean read FSuccess write SetSuccess;
      property message:String read FMessage write SetMessage;
  end;

procedure DeleteUser;
var
  OuterObj: TMyParse;
  InnerObj: TMyInnerParse;
  aResult: String;
  i,j: Integer;
Begin
 aResult := '{"result":[[],["{\"success\": \"true\",\"Message\":\"User 1 has been deleted.\"}"]]}';
 try
 OuterObj := TJson.JsonToObject<TMyParse>(aResult);
 if Length(OuterObj.result) > 0 then
 for i := 0 to Length(OuterObj.result) - 1 do
   if length(OuterObj.result[i]) > 0 then
   for j := 0 to Length(OuterObj.result[i]) - 1 do
    begin
      try
        InnerObj := TJson.JsonToObject<TMyInnerParse>(OuterObj.result[i][j]);
        //Do your work with result,that in InnerObj now
      finally
        if assigned(InnerObj) then
           FreeAndNil(InnerObj);
      end;
    end;
 finally
    if assigned(OuterObj) then
       FreeAndNil(OuterObj);
 end;
end;

procedure TMyParse.SetResult(const Value: TMyArray);
begin
  FResult := value;
end;

procedure TMyInnerParse.SetMessage(const Value: String);
begin
  FMessage := value;
end;
procedure TMyInnerParse.SetSuccess(const Value: Boolean);
begin
  FSuccess := value;
end;
这段代码中的

For周期很糟糕，但这是显示如何解决问题的最快方法。并且正在工作。

我不知道第一个空数组中可以包含哪些信息，这可能是导致异常的原因。将此代码作为工作示例，而不是完整的解决方案，因为缺乏信息。

它已在Delphi 10.1上进行了测试： Result from Delphi 10.1

P.S。在这种情况下，使用数组是非常古老的编码方式。但是前段时间，我遇到了序列化/反序列化TList和TObjectList的问题。我将尝试使用它们，并返回结果。

P.P.S。它试图使用TList，但是我的尝试失败了。也许有人可以在上面的代码中描述如何实现它。

,

在system.JSON中找到了这些功能，它们只是为我点击了。

/// <summary>Finds a JSON value and returns reference to it. </summary>
/// <remarks> Raises an exception when a JSON value could not be found. </remarks>
property P[const APath: string]: TJSONValue read GetValueP;{ default;}
property A[const AIndex: Integer]: TJSONValue read GetValueA;


var
 aSuccess,aMessage : String
 aJSON : TJSONObject;
begin
  var aJSON:= TJSONObject.ParseJSONValue('{"result":[[],\"Message\":\"User  has been deleted.\"}"]]}');
    aSuccess := TJSONObject.ParseJSONValue(aJSON.P['result'].A[1].A[0].AsType<String>).P['success'].AsType<String>;
    aMessage := TJSONObject.ParseJSONValue(aJSON.P['result'].A[1].A[0].AsType<String>).P['Message'].AsType<String>;
end;

请注意，这需要异常处理，如果所有这些函数都找不到指定的属性，则会抛出异常。

delphidelphi-10.3-riojsonparsing