Delphi 10 Sydney中Base64转JSON时斜杠被转义问题求助

首先明确：JSON规范里/被转义成\/是合法的，大部分API都能正常解析。但如果你的目标API确实要求不能转义斜杠，可以用以下两种方法解决：

方法1：通过TJSONWriter关闭斜杠转义（推荐） #

Delphi原生的TJSONWriter默认会转义/，只需修改EscapeForwardSlash属性为False，就能生成不转义斜杠的JSON：

var
  JsonObj: TJSONObject;
  StrStream: TStringStream;
  JsonWriter: TJSONWriter;
  FinalJsonStr: string;
begin
  // 先把你的TJSONSignature对象转成TJSONObject
  JsonObj := TJSON.ObjectToJsonObject(YourSignatureInstance);
  try
    StrStream := TStringStream.Create('', TEncoding.UTF8);
    try
      JsonWriter := TJSONWriter.Create(StrStream);
      try
        // 核心设置：关闭斜杠转义
        JsonWriter.EscapeForwardSlash := False;
        // 写入JSON对象并生成字符串
        JsonWriter.WriteValue(JsonObj);
        FinalJsonStr := StrStream.DataString;
      finally
        JsonWriter.Free;
      end;
    finally
      StrStream.Free;
    end;
  finally
    JsonObj.Free;
  end;
  // 此时FinalJsonStr中的Base64字符串不会有转义斜杠，可直接发送给API
end;

方法2：手动替换转义斜杠 #

如果不想修改序列化流程，也可以在生成JSON字符串后，精准替换掉\/为/：

var
  RawJsonStr: string;
  FinalJsonStr: string;
begin
  // 正常生成带转义的JSON字符串
  RawJsonStr := TJSON.ObjectToJsonObject(YourSignatureInstance).ToString;
  // 替换所有转义斜杠
  FinalJsonStr := StringReplace(RawJsonStr, '\/', '/', [rfReplaceAll]);
end;

注意：这种方法要确保你的JSON中没有其他需要保留\/的场景（比如URL中的http:\/\/），如果只有Base64里的斜杠，这个方法完全可行。

内容的提问来源于stack exchange，提问作者user644884