Embarcadero и UTF8Encode

[eclipse_99]

Здравствуйте! В Delphi XE столкнулся с такой проблемой, что многие функции перекодирования работают не так как в старом добром Delphi 7. Конкретно интересует функция UTF8Encode. Если раньше всё нормально работало так ShowMessage(UTF8Encode('Привет')) и равнялось Привет , то сейчас этого не происходит... как было 'Привет', так и остаётся. Кто поможет разобраться?

[Аватар]

Привет и раньше было, только твой любимый D7 (и мой тоже) его не понимал

[eclipse_99]

Сообщение от Аватар

Привет и раньше было, только твой любимый D7 (и мой тоже) его не понимал

И как быть? У меня есть страничка в которой присутствует русскоязычный текст. Мне его нужно перевести в кракозябры UTF8, чтобы потом эту страничку WebBrowser отображал понятным для всех виде.

[min@y™]

У меня есть страничка в которой присутствует русскоязычный текст. Мне его нужно перевести в кракозябры UTF8, чтобы потом эту страничку WebBrowser отображал понятным для всех виде.

дай посмотреть.

[eclipse_99]

Сообщение от min@y™

дай посмотреть.

А что смотреть то? Например: есть любой текст на русском языке, его хотелось бы видеть в UTF8Encode виде. Как самый простой вариант, как было в D7, это ShowMessage(UTF8Encode('Привет')); Но текст в сообщении так и выглядит "Привет".

Вот наглядные примеры:
Мой комбайн на D7



А это на DXE8

[min@y™]

есть любой текст на русском языке

в какой кодировке текст?

[eclipse_99]

Сообщение от min@y™

в какой кодировке текст?

Набранный вручную, я так понимаю, будет в Windows 1251? Так?

[min@y™]

Так?

ты ошибаешься.

[Vapaamies]

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

Если раньше всё нормально работало так ShowMessage(UTF8Encode('Привет')) и равнялось Привет , то сейчас этого не происходит... как было 'Привет', так и остаётся. Кто поможет разобраться?

Теперь в Delphi каждая строка хранист свою кодировку, а VCL ее учитывает, поэтому всё просто работает. Нужно выкинуть все костыли Delphi 7 и наслаждаться жизнью.

Если же по каким-то причинам хочется узнать фактическую кодировку строки, нужно вызвать StringCodePage(MyString).

[eclipse_99]

StringCodePage показывает что у меня код текста 1200, т.е. Unicode. Затем попытался перевести в utf8

procedure TForm1.btn1Click(Sender: TObject);
type
  // The code page for ANSI-Cyrillic is 1251
  CyrillicString = type AnsiString(1251);
var
  U8: UTF8String;
  C: CyrillicString;
begin
  U8 := edt1.Text;
  ShowMessage(U8 + #13 + IntToStr(StringCodePage(U8))); // показывает 65001
  C := U8;
  ShowMessage(C + #13 + IntToStr(StringCodePage(C))); // показывает 1251
  c:= UTF8Encode(c);
  ShowMessage(C + #13 + IntToStr(StringCodePage(C))); // показывает 65001 так же Привет
end;

Не пойму в чём подвох!?