Delphi 7 - 字符集 REST JSON

Question

使用 Delphi 7 和 Indy 9.00.10 我正在使用 REST API 和 JSON。我像这样使用 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.

Delphi 7 - 字符集 REST JSON

Delphi 7 - Charset REST JSON

delphi

rest

json

indy

character-encoding