В проекте я использую TIdHTTP для вызова веб-сервера.
Веб-сервер — это тестовое приложение asp.net, которое возвращает следующий json:
{
"message":"test ÀÈÉÌÒÙàèéìòù"
}
Ответ, который я получаю в Delphi, представляет собой некодированную строку:
{"message":"test ÃÃÃÃÃÃà èéìòù"
}
вот как я использую TIdhttp:
Result := '';
IdHTTP := TIdHTTP.Create;
IdHTTP.Request.MethodOverride := 'ForwardCommand';
IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
IdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode := sslmClient;
IdSSLIOHandlerSocketOpenSSL.SSLOptions.SSLVersions:= [sslvTLSv1_2];
IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
IdHTTP.HandleRedirects := True;
IdHTTP.Response.ContentEncoding := 'UTF-8'; // I tried this but it seems not enough!
try
url := 'testappUrl';
try
IdHTTP.ConnectTimeout := 2000;
IdHTTP.ReadTimeout := 4000;
Response := IdHTTP.Get(url);
ShowMessage(response);
except
on E:Exception do
begin
response := StringReplace(E.Message,#10,' ',[rfReplaceAll]);
response := StringReplace(response,#13,' ',[rfReplaceAll]);
response := '{"errormessage": "'+response+'"}';
end;
end;
Result := response;
finally
IdHTTP.Free;
end;
пожалуйста, скажите мне, как я могу увидеть ответ правильно. Есть ли способ принудительно кодировать, чтобы символы с акцентом читались правильно?
Спасибо.
Можете ли вы опубликовать полный ответ сервера (включая заголовки HTTP)?
@AmigoJack afaik Indy автоматически выполняет декодирование в Delphi UnicodeString на основе предоставленного сервером ContentEncoding.
@mjn Но это, безусловно, недостаточно умно, чтобы сделать это для каждого типа MIME application/json
в соответствии с RFC 4626 § 3 - за это отвечает реализующий клиент, но UnDiUdin даже не знает, что HTTP-ответ (и его кодировка) не может быть создан при отправке запроса - он, скорее всего, новичок в JSON.
решение, представленное в принятом ответе, сработало. Спасибо за участие в обсуждении
@AmigoJack В настоящее время в GitHub Инди есть ветка http-json-charset, чтобы исправить это.
Попробуйте использовать принудительную кодировку TStringStream
(UTF-8).
Протестируйте этот код, чтобы получить ответ:
var
ts:TStringStream;
begin
...
ts := TStringStream.Create(string.Empty, TEncoding.UTF8);
IdHTTP1.Get('url', ts);
ShowMessage(ts.DataString);
or
ShowMessage(ts.ToString);
...
Обратите внимание, что в настоящее время в GitHub Инди есть ветка http-json-charset, чтобы исправить это, чтобы JSON правильно декодировался как UTF-8, когда Get()
возвращает string
.
Вы должны прочитать
.Response.ContentEncoding
после выполнения.Get()
и действовать в соответствии с ним. Но даже если это не так'UTF-8'
JSON по стандарту должен быть в кодировке UTF-8. Скорее всего, сервер явно не отправляет кодировку иTIdHttp
думает, что это какой-то ANSI.