如何将JSONObject保存为UTF8编码的json文件Rad Studio/Delphi

Question

我使用Rad studio 11。我从json文件（文件是UTF8编码）读取信息并转换为jsonobject。 然后我对此 jsonobject 进行更改并希望保存到 json 文件。信息已成功写入文件，但文件具有 Windows-1251 编码。需要做什么才能使文件编码为UTF8？它需要我，因为 json 文件包含俄语符号（在 Windows-1251 编码中它看起来像“？”）。

我从这样的文件中读取：

var inputfile:TextFile;
str:string;
...
if OpenDialog1.Execute then  begin
  AssignFile(inputfile, OpenDialog1.FileName);
  reset(inputfile);

  while not Eof(inputfile) do
  begin
    ReadLn(inputfile, str);
    str1 := str1+UTF8ToANSI(str);
  end;

  closefile(inputfile);
end;

我像这样转换为 Jsonobject：

LJsonObj:=TJSONObject.ParseJSONValue(str1) as TJSONobject;

尝试像这样保存 JsonObject：

var   
  listStr: TStringList;
  Size: Integer;
  I: Integer;
  
...
  
  Size := Form3.LJsonObj.Count;
  liststr := TStringList.Create;

  try
    listStr.Add('{');

    if Size > 0 then
      listStr.Add(LJsonObj.Get(0).ToString);
   
    showmessage(LJsonObj.Get(0).ToString);

    for I := 1 to Size - 1 do
    begin
      listStr.Add(',');
      listStr.Add(ANSITOUTF8(LJsonObj.Get(I).ToString));
    end;

    listStr.Add('}');
    // Form1.filepath-is path of file,form1.filename-name of file without file extension 
    listStr.SaveToFile(Form1.filepath+'\'+form1.filename+'.json');
  finally
    listStr.Free;
  end;

Answer 1

为什么要使用旧式 Pascal 文件 I/O 来读取文件？为什么要在 UTF-8 和 ANSI 之间转换？ 您正在使用 Delphi 的 Unicode 版本，您根本不应该处理 ANSI。

无论如何：

• 读取文件时，请考虑使用

  TStringList.LoadFromFile()

  或

  TFile.ReadAllText()

  代替。两者都允许您指定 UTF-8 作为源编码。

• 写入文件时，请考虑使用

  TStringList.SaveToFile()

  或

  TFile.WriteAllText()

  代替。 两者都允许您指定 UTF-8 作为目标编码。

例如：

var
  inputfile: TStringList;
  str1: string;
  ...
begin
  ...
  inputfile := TStringList.Create;
  try
    inputfile.LoadFromFile(OpenDialog1.FileName, TEncoding.UTF8);
    str1 := inputfile.Text;
  finally
    inputfile.Free;
  end;
  ...
end;

...

var   
  listStr: TStringList;
  ...
begin
  ...
  listStr.SaveToFile(Form1.filepath + '\' + form1.filename + '.json', TEncoding.UTF8);
  ...
end;

var
  str1: string;
  ...
begin
  ...
  str1 := TFile.ReadAllText(OpenDialog1.FileName, TEncoding.UTF8);
  ...
end;

...

var
  listStr: TStringList;
  ...
begin
  ...
  TFile.WriteAllText(listStr.Text, TEncoding.UTF8);
  ...
end;

请注意，您实际上并不需要使用

TStringList

来手动构建 JSON 语法。

TJSONObject

有

ToString()

和

ToJSON()

方法来为你处理这个问题。 但是，如果您确实想手动构建自己的 JSON 语法，请考虑使用

TJSONObjectBuilder

或

TJsonTextWriter

来实现此目的。

Answer 2

无需循环 JSONObject。只需使用：

TFile.WriteAllBytes(Form1.filepath+'\'+form1.filename+'.json',TEncoding.UTF8.GetBytes(LJsonObj.ToJSON))

Answer 3

如何让 SaveToFile 或 WriteToFile 函数工作？ 我是 Rad Studio 的新手，正在努力保存到 json 文件。当我使用任何选项时，我会收到类似 [dcc32 Error] Unit3.pas(136): E2003 Undeclared identifier: 'WriteToFile'

的错误