json - Delphi 7 - 字符集 REST JSON

Question

在 Delphi 7 和 Indy 9.00.10 中，我使用带有 JSON 的 REST API。我使用 TidHTTP 组件创建一个 GET 请求，如下所示。

IdHTTP1.HandleRedirects := True;
IdHTTP1.ReadTimeout     := 5000;
IdHTTP1.Request.Accept  := 'application/json';
IdHTTP1.Request.AcceptCharSet  := 'UTF-8';
IdHTTP1.Request.AcceptLanguage := 'sv';
IdHTTP1.Request.ContentType    := 'application/json';
Memo1.Text := IdHTTP1.Get('http://api.arbetsformedlingen.se/af/v0/platsannonser/7088149');

我尝试了几种字符集，但无法纠正响应中的瑞典字符，例如 å,ä,ö。

• å 变为 à¥
• ä 变为 ä
• ö 变为 ¶

我在这里做错了什么？

Answer 1

在 Delphi 7 System 单元中，有一个 UTF8ToAnsi() 函数。像这样使用:

  Memo1.Text := UTF8ToAnsi(IdHTTP1.Get('http://api.arbetsformedlingen.se/af/v0/platsannonser/7088149'));

结果在 Delphi 7 中是正确的。