Проблема : Win32, Кодировка, русский язык

[EmeraldMan]

Проверил...
Лучше использовать директиву {$codepage utf8}, а не преобразовывать в UTF-8 с BOM.
В Windows работает без разницы, однако в Ubuntu ругался как раз на символ BOM. Интересно ругался - в принципе компилировался, однако если визуально настраивать событие например у обычного Button - OnClick, то не создавал событие, а кричал на этот символ. Т.е. для кросс-компиляции не годится преобразование с BOM.
К слову, в версии Ubuntu преобразования в UTF-8 с BOM пока нет.

[Sergei I. Gorelkin]

ВОМ для utf-8 считается Microsoft-специфичной сущностью, в отличие от BOM для utf-16. Хотя... кто ругался-то? Lazarus?

[EmeraldMan]

Ага, именно он и ругался... но при этом компилировался, просто события новые не хотел добавлять (например onClick).

[bigcrown]

Всем доброго времени суток!
Проблема на самом деле банальна, но с подвохом...
Вобщем, в лазарус, скажем,

Код: Выделить всё

MessageBox(0,0,'Русь',0);

выдаст сообщение с абракадаброй вместо русского слова. Проблема обходится, если использовать функцию перевода кодировок

Код: Выделить всё

MessageBox(0,0,PChar(UTF8ToAnsi('Русь')),0);

В современном Лазарус UTF8ToANSI не помогает - кракозябры остаются - скрин прикладываю во вложении.

Как мне сделать MessageBox с русскими буквами?

непомогает.jpg

[bigcrown]

Вот так:

Код: Выделить всё

MessageBoxW(0, PWideChar(UTF8ToUTF16('Я победил кракозябры!')), PWideChar(UTF8ToUTF16('Заголовок')), MB_OK+MB_TASKMODAL);

В uses добавить модуль LazUTF8.

[alexs]

Использовать Application.MessageBox - это просто правильная обёртка над системным MessageBox. Не нужно будет извращаться с перекодировками

[delphius]

Вот так:

Код: Выделить всё

MessageBoxW(0, PWideChar(UTF8ToUTF16('Я победил кракозябры!')), PWideChar(UTF8ToUTF16('Заголовок')), MB_OK+MB_TASKMODAL);

В uses добавить модуль LazUTF8.

А почему тогда, например, не вот так?

Код: Выделить всё

program project1;
   uses JwaWinUser;
begin
     MessageBoxW(0, PWideChar(UTF8Decode('Я победил кракозябры!')), PWideChar(UTF8Decode('Заголовок')), MB_OK+MB_TASKMODAL);
end.

Под чистым fpc компилится, не тянет за собой LazUtils...

[iskander]

А почему тогда, например, не вот так?
КОД: ВЫДЕЛИТЬ ВСЁ
program project1;
   uses JwaWinUser;
begin
     MessageBoxW(0, PWideChar(UTF8Decode('Я победил кракозябры!')), PWideChar(UTF8Decode('Заголовок')), MB_OK+MB_TASKMODAL);
end.


Под чистым fpc компилится, не тянет за собой LazUtils...

Хм, а почему тогда, например, не вот так?

Код: Выделить всё

program project1;
   uses Windows;
begin
     MessageBoxW(0, Pointer(UTF8Decode('Я победил кракозябры!')), Pointer(UTF8Decode('Заголовок')), MB_OK+MB_TASKMODAL);
end.

Под чистым fpc компилится, не тянет за собой JwaWinUser...

[delphius]

Хм, а почему тогда, например, не вот так?

Тем более))) я просто исходил из предыдущих условий использования Jedi

[iskander]

я просто исходил из предыдущих условий использования Jedi

А можно поинтересоваться насчёт предыдущих условий использования Jedi?

[delphius]

А можно поинтересоваться насчёт предыдущих условий использования Jedi?

Без понятия) все было в контексте решений других участников беседы)

[iskander]

Без понятия)

Вот так обычно всегда и есть.

[delphius]

Вот так обычно всегда и есть.

Можно заливать на прод