Кодировка Текста

[designer999]

Здравствуйте

Как перекодировать русский текст "мой русский текст" в такой формат что указан ниже, и что это за формат. Похож на Utf8, но все функции для переобразования в Utf8 не дают такого результата(

Консонантно-вокалические алфавиты — буквы обозначают как гласные, так

Может конечно вопрос окажется смешным, но всё же как можно сделать преобразование, пол дня пробую и не какого результата. Буду благодарен за помощь.

[xwicked]

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

Здравствуйте

Как перекодировать русский текст "мой русский текст" в такой формат что указан ниже, и что это за формат. Похож на Utf8, но все функции для переобразования в Utf8 не дают такого результата(

Консонантно-вокалические алфавиты — буквы обозначают как гласные, так

Может конечно вопрос окажется смешным, но всё же как можно сделать преобразование, пол дня пробую и не какого результата. Буду благодарен за помощь.

Вам нужно получить такие же каракули или вычислить какая кодировка даёт именно такие каракули или Вы хотите, чтобы их не было - чтобы был нормальный текст, вместо них?

[Serge_Bliznykov]

я тоже, честно говоря, не понимаю, зачем Вам получать "кракозябры" ?...

впрочем, Вы правы, это действительно UTF-8, если её смотреть в кодировке windows-1251 (ANSI) даёт именно такой эффект.

смотрите пример. demo.rar

[designer999]

xwicked нужно получить, так как я отправляю через HTTP запрос в базу данных ресурса(специально посмотрел в базе что русский текст в таком виде и оформляться)

сам ресурс выводит эти данные с такой кодировкой

<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />

то есть если отправить в таком стиле (каракулями), то отобразится на ресурсе правильно, но как переделать русский текст в каракули с помощью delphi?

[designer999]

опять подымаю данную тему., проблема та же почти.

на ресурсе кодировка charset=utf-8, но ресурс русский, и все данные в базе хранятся в таком виде Консонантн

и тот же вопрос как можно русский текст переделать в такие иероглифы в Delphi 2010 и выше ?

в обратную сторону получается AnsiToUTF8(UTF8Decode(str)), а вот из русского в иероглифы UTF8ToAnsi(UTF8Decode(str)) почему то не хочет.(

[ZuBy]

UtfToString или UtfToWideString

[designer999]

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

UtfToString или UtfToWideString

нет не помогает:


я так понял это делается с помощью AnsiToUtf8, но с текстом так и нечего не происходит, хотя на delphi 7 говорят работает((((((, вообщем проблема актуальная

[ZuBy]

const
  s: UTF8String = 'Консонантн';

  Caption := UTF8ToWideString(UTF8Decode(s));

Caption = Консонантн

[designer999]

ZuBy в нормальный текст я знаю как перевести, а вот на оборот как, этот вопрос меня интересует.

[ZuBy]

Попробуй

uses 
  .., WideStrUtils;

function AnsiToUtf8Ex(const S: AnsiString; const cp : integer): UTF8String;