Как преобразовать строку в JSON и из JSON с экранированными/специальными символами с помощью DBXJSON?

У меня возникли проблемы с преобразованием строки с экранированными символами в и из TJsonString. (Я использую Delphi XE 2, обновление 4, исправление 1).

ПРИМЕЧАНИЕ. Я знаком с SuperObject, но мои требования состоят в том, чтобы использовать блок DBXJSON.

Похоже, что TJSONString неправильно экранируется при возврате представления JSON с помощью метода ToString().

Что (если что-нибудь) Я делаю неправильно и как правильно преобразовать строку со специальными символами в/из ее правильного представления JSON?

Возможно, я что-то пропустил, но ни один из следующих вопросов Q & As, как представляется, прямо не затрагивал:

Разбор текста с экранированным текстом НЕИСПРАВНОСТИ:

Разбор текста ESCAPED (INVALID) (текст для проверки с помощью JSONLint):

Я заметил, что единственный специальный символ TJSONString, кажется, правильно обрабатывает двойную кавычку (").

Ответы

Ответ 1

Вы можете попытаться определить свой собственный тип TJSONString и вывести строки json. Например:.

uses
  DBXJSON;

type
  TSvJsonString = class(TJSONString)
  private
    function EscapeValue(const AValue: string): string;
  public
    constructor Create(const AValue: string); overload;
  end;

{ TSvJsonString }

constructor TSvJsonString.Create(const AValue: string);
begin
  inherited Create(EscapeValue(AValue));
end;

function TSvJsonString.EscapeValue(const AValue: string): string;

  procedure AddChars(const AChars: string; var Dest: string; var AIndex: Integer); inline;
  begin
    System.Insert(AChars, Dest, AIndex);
    System.Delete(Dest, AIndex + 2, 1);
    Inc(AIndex, 2);
  end;

  procedure AddUnicodeChars(const AChars: string; var Dest: string; var AIndex: Integer); inline;
  begin
    System.Insert(AChars, Dest, AIndex);
    System.Delete(Dest, AIndex + 6, 1);
    Inc(AIndex, 6);
  end;

var
  i, ix: Integer;
  AChar: Char;
begin
  Result := AValue;
  ix := 1;
  for i := 1 to System.Length(AValue) do
  begin
    AChar :=  AValue[i];
    case AChar of
      '/', '\', '"':
      begin
        System.Insert('\', Result, ix);
        Inc(ix, 2);
      end;
      #8:  //backspace \b
      begin
        AddChars('\b', Result, ix);
      end;
      #9:
      begin
        AddChars('\t', Result, ix);
      end;
      #10:
      begin
        AddChars('\n', Result, ix);
      end;
      #12:
      begin
        AddChars('\f', Result, ix);
      end;
      #13:
      begin
        AddChars('\r', Result, ix);
      end;
      #0 .. #7, #11, #14 .. #31:
      begin
        AddUnicodeChars('\u' + IntToHex(Word(AChar), 4), Result, ix);
      end
      else
      begin
        if Word(AChar) > 127 then
        begin
          AddUnicodeChars('\u' + IntToHex(Word(AChar), 4), Result, ix);
        end
        else
        begin
          Inc(ix);
        end;
      end;
    end;
  end;
end;

Пример использования:

procedure Test;
var
  LText, LEscapedText: string;
  LJsonString: TSvJsonString;
  LJsonPair: TJsonPair;
  LJsonObject: TJsonObject;
begin
  LText := 'c:\path\name' + #13 + #10 + 'Next Line';
  LJsonString := TSvJsonString.Create(LText);
  LJsonPair := TJsonPair.Create('MyString', LJsonString);
  LJsonObject := TJsonObject.Create(LJsonPair);
  try
    LEscapedText := LJsonObject.ToString;
    //LEscapedText is: c:\\path\\name\r\nNext Line
  finally
    LJsonObject.Free;
  end;
end;

И вот как следует синтаксический анализ:

//AText := '{"MyString":"c:\\path\\name\r\nNext Line"}';
function Parse(const AText: string): string;
var
  obj: TJSONValue;
begin
  obj := TJSONObject.ParseJSONValue(AText);
  try
    Result := obj.ToString;
    //Result := {"MyString":"c:\path\name
   //Next Line"}
  finally
    obj.Free;
  end;
end;

Ответ 2

Мы только столкнулись с этой прекрасной проблемой, где наши обратные слэши не избежали (но наши двойные кавычки были, очевидно, лол)...

Решением было прекратить использование TJSONObject.ToString() и использовать TJSONObject.ToJSON(). Это дает вам правильно экранированную строку, в отличие от читаемого человеком формата, который возвращает ToString().

Надеюсь, это поможет кому-то :)