[Помогите!] Юникод в XE5

[NebesaBag]

Здравствуйте.
Есть проект на D7, в котором имеются Edit с заполненным русским текстом.
Начал переносить код на XE5(в дальнейшем под андроид написать есть желание приложение), но тк в версиях Delphi 9+ есть поддержка юникода, то возникла проблема.
Русский текст при записи из компонента в переменную, при перекодировании StrToHex, выдаёт совсем другие значения, не совпадающие со значениями в D7.

Utf8Decode/Encode пробовал, не помогло.

Есть способы решить данную проблему?)

[Sinyss]

Цитата: в дальнейшем под андроид написать есть желание приложение

Хочешь писать под андроид - пиши на Java.

[NebesaBag]

Надеюсь тут появятся комментарии по теме)

[Dinmaite]

Много раз ведь говорили. Хотите ответ? Кидайте свой код.
Ибо не ясно какую конкретно функцию вы использовали.

[NebesaBag]

Извиняюсь, вот код:

data.Add('login='+LabeledEdit1.Text);
data.Add('password='+LabeledEdit2.Text);

IdHTTP1.Post('http://site.ru/index.php', data);

Логин может быть на двух языках. Данный образец кода в 7 делфи работает без сбоев. В XE5 посылает совсем другие байты у логина(думаю из-за поддержки юникода).

[Рэйзор]

Раз у Вас стоит XE5 то можно воспользоваться последними исправлениями в инди и использовать TIdMultipartFormDataStream вместо TStringList
пример:

   data := TIdMultipartFormDataStream.Create;
   data.AddFormField('login', LabeledEdit1.Text, 'utf-8');

Если нужно убрать quoted-printable, то надо установить тип содержимого:

      data.AddFormField('login', LabeledEdit1.Text, 'utf-8').ContentTransfer := '8bit';

[NebesaBag]

Цитата: Сообщение от Z.Рэйзор Раз у Вас стоит XE5 то можно воспользоваться последними исправлениями в инди и использовать TIdMultipartFormDataStream вместо TStringList

Подскажите как вывести подобное showmessage(String(StrToHex(data[0]))); ?
Чтобы я мог проверить что записано в данной ячейке.

[Рэйзор]

Цитата: Сообщение от NebesaBag Подскажите как вывести подобное showmessage(String(StrToHex(data[0]))); ? Чтобы я мог проверить что записано в данной ячейке.

это поток, из него так просто не вытащить уже.
Я давно на делфи не писал - так что не знаю, мб и можно.
И по поводу функции StrToHex - мб стоит использовать AnsiStrToHex : [Ссылки могут видеть только зарегистрированные пользователи. ]

[NebesaBag]

StrToHex я использую лишь для того чтобы без снифера сразу видеть правильность данных.
Увы, с TIdMultipartFormDataStream вместо "login=1&pass=2" шлётся много других не нужных параметров.
Возможно есть способ решения проблемы без этого компонента?

[Рэйзор]

Цитата: Сообщение от NebesaBag StrToHex я использую лишь для того чтобы без снифера сразу видеть правильность данных. Увы, с TIdMultipartFormDataStream вместо "login=1&pass=2" шлётся много других не нужных параметров. Возможно есть способ решения проблемы без этого компонента?

Эти данные будут нормально обработаны любым веб сервером.

Есть вариант в виде моего старого компонента:

[Ссылки могут видеть только зарегистрированные пользователи. ]

компонент визуальный - после установки искать во вкладке Internet

примеры:
[Ссылки могут видеть только зарегистрированные пользователи. ]

Использовать TStringList не стоит - так как там проблемы со склейкой.
Лучше просто строку передавать со склейкой через & как в одном из примеров:

s := HTTP.Post('http://zt.am/', 'user=ololoev&pass=123456');

[NebesaBag]

Спасибо, только я боюсь что Ваш компонент также будет получать юникодные значения русских символов, что в итоге не приведёт к успешной авторизации(

Сейчас вопрос в том как можно без юникодных обработок получить русские символы, подобно Д7

[Рэйзор]

Цитата: Сообщение от NebesaBag Спасибо, только я боюсь что Ваш компонент также будет получать юникодные значения русских символов, что в итоге не приведёт к успешной авторизации( Сейчас вопрос в том как можно без юникодных обработок получить русские символы, подобно Д7

в том то и дело, что он специально для этого и был написан.
никаких обработок не нужно.
Там везде AnsiString используется.
+ возможность инициализации с нужным экземпляром класса TEncoding