Проблема с кодировкой (перенёс utf8toansi из 7 в XE)

[Ship_1]

Здравствуйте!
Собственно, в заголовке практически вся проблема. Раньше программа "собиралась" в D7, потом "допиливалась" в XE, теперь начал её переделывать вчистую в XE и наткнулся на эту проблему. Получаю страницу с сайта, в D7 кириллицу к нормальному виду приводила utf8toansi, а тут ни с ней, ни без неё нормального текста нет... Чем справиться?

[Shouldercannon]

var
  HTTP: TIdHTTP;
  SS: TStringStream;
  s: String;
begin
  try
    HTTP := TIdHTTP.Create(nil);
    HTTP.ConnectTimeout := 5000;
    SS := TStringStream.Create('');
    try
      HTTP.Get(URL, SS);
      SS.Position := 0;
      s := Utf8ToAnsi(RawByteString(SS.DataString));
    except
    end;
  finally
    FreeAndNil(HTTP);
    FreeAndNil(SS);
  end;
end;

[GoldenEagle88]

А чем работаешь со стр?Synapse,Indy ?

[Ship_1]

Shouldercannon, класс! Сработало! Хитрый способ.
GoldenEagle88, Indy.

[Alex11223]

Так ansi-то вам зачем? ХЕ ж поддерживает юникод везде.

[Ship_1]

Да фиг знает чего там передаётся со страницы, но перенесённый с D7 код в обоих случаях крякозябры выдавал (и при utf8toansi, и без этого). А способ, который предложил Shouldercannon выдаёт нормальную кириллицу.

[Alex11223]

Это неправильное решение, просто в Дельфи 7 не было других вариантов (без сторонних контролов типа TNT). Оно не будет работать если в настройках ОС стоит не русская локаль, ну и кроме кириллицы существуют другие символы, которые сломаются.
+ Дельфи все равно наверняка конвертирует это в Юникод перед выводом.

Наверно надо Utf8ToString или DecodeUtf8
http://docwiki.embarcadero.com/RADSt...rsion_Routines

[Shouldercannon]

Сообщение от Alex11223

Это неправильное решение, просто в Дельфи 7 не было других вариантов (без сторонних контролов типа TNT). Оно не будет работать если в настройках ОС стоит не русская локаль, ну и кроме кириллицы существуют другие символы, которые сломаются.
+ Дельфи все равно наверняка конвертирует это в Юникод перед выводом.

Наверно надо Utf8ToString или DecodeUtf8
http://docwiki.embarcadero.com/RADSt...rsion_Routines

Полностью английская версия Win 10. Всё прекрасно работает, даже символ.
По приведённой Вами ссылке в коде присутствует Utf8ToAnsi

s := Utf8ToAnsi(RawByteString(SS.DataString));

[Alex11223]

Что "даже символ"? � это "неизвестный символ" https://ru.wikipedia.org/wiki/%D0%A1...BE%D0%BB%D1%8B

В смысле "присутствует"? Там список функций, если надо конвертировать в ANSI, то конечно нужно использовать эту функцию. А если надо просто вывести UTF-8 в современной Дельфи, то скорее всего достаточно просто Utf8ToString или DecodeUtf8. Какой смысл конвертировать Юникод в ANSI и обратно в Юникод?

А в "полностью английской" вин10 в региональных настройках локаль точно не русская стоит? (тот пункт, где написано про старые/не Юникод программы)

[Shouldercannon]

Сообщение от Alex11223

Что "даже символ"? � это "неизвестный символ" https://ru.wikipedia.org/wiki/%D0%A1...BE%D0%BB%D1%8B

В смысле "присутствует"? Там список функций, если надо конвертировать в ANSI, то конечно нужно использовать эту функцию. А если надо просто вывести UTF-8 в современной Дельфи, то скорее всего достаточно просто Utf8ToString или DecodeUtf8. Какой смысл конвертировать Юникод в ANSI и обратно в Юникод?

А в "полностью английской" вин10 в региональных настройках локаль точно не русская стоит? (тот пункт, где написано про старые/не Юникод программы)

Теперь с нормальными символами.