[hilaryon]

В общем давно известная проблема, когда дельфи приложение запускается на винде с английской или другой локалью и пытается подгружать данные с Ansi файлов с русским текстом и получает заместо нормальных букв - знаки вопроса (???? ??) кракозябры такие

Возможно кто-то придумал как решить? На других конференциях нашел способ чтобы ресурсы которые уже в программе отображались нормально на юникод шрифтах (Tahoma) с чарсетом RUSSIAN_CHARSET

Код:

  SetThreadLocale(1049);
  Application.Initialize;

я так понимаю что он пытается при загрузке данных из файлов, представить в cp_1252 данные если в реестре стоит это значение

Вариант исправления локали в реестре не подходит, хотя работает

Код:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1251"="c_1251.nls"
"1252"="c_1251.nls"

перезагрузится после исправления

не буду же я каждому пользователю объяснять кто пользуется английской виндой что делать?

В общем прошу кто сталкивался с такой проблемой и нашел решение, подмогнуть
Как заставить программу игнорировать настройки реестра и кодировать в соответствии с CP_1251

[poli-smen]

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

В общем давно известная проблема, когда дельфи приложение запускается на винде с английской или другой локалью и пытается подгружать данные с Ansi файлов с русским текстом и получает заместо нормальных букв - знаки вопроса (???? ??) кракозябры такие

Где получает? Подробнее пожалуста.

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

Возможно кто-то придумал как решить? На других конференциях нашел способ чтобы ресурсы которые уже в программе отображались нормально на юникод шрифтах (Tahoma) с чарсетом RUSSIAN_CHARSET

Желательно что-бы все элементы управления на форме имели в свойстве Font.Charset:=RUSSIAN_CHARSET. Особенно это актуально было в WindowsNT4, но начиная с Windows2000 эта проблема вроде была решена.

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

Код:

  SetThreadLocale(1049);
  Application.Initialize;

я так понимаю что он пытается при загрузке данных из файлов, представить в cp_1252 данные если в реестре стоит это значение

Кто пытается?

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

Как заставить программу игнорировать настройки реестра и кодировать в соответствии с CP_1251

Кто, в каком случае и что кодирует-то?

[hilaryon]

Программа в процессе работы берет данные из текстового файла (текст на русском языке) при их выводе получается черти что

[hilaryon]

Программа в процессе работы берет данные из текстового файла (текст на русском языке) при их выводе получается черти что

1.png

на картинке все данные чтобы были подгружены с файлов получились вот такие, а все что были назначены в программе заранее остались нормальными

[poli-smen]

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

Программа в процессе работы берет данные из текстового файла (текст на русском языке) при их выводе получается черти что

У элементов управления которые отображают крякозябры установлено значение Font.Charset:=RUSSIAN_CHARSET ?
Какая версия Delphi?
Стандартные компоненты используются?

[hilaryon]

Сообщение от poli-smen

У элементов управления которые отображают крякозябры установлено значение Font.Charset:=RUSSIAN_CHARSET ?
Какая версия Delphi?
Стандартные компоненты используются?

Да, RUSSIAN_CHARSET, уже по разному пробовал, и шрифты менял и чарсеты...

Пробовал на XE3 и XE5, результат однозначно тот же самый. компоненты используются разные, но вывод одинаково паршивый хоть в стандартных хоть в alphaskins

[hilaryon]

2.png

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

[poli-smen]

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

Да, RUSSIAN_CHARSET, уже по разному пробовал, и шрифты менял и чарсеты...

Пробовал на XE3 и XE5, результат однозначно тот же самый. компоненты используются разные, но вывод одинаково паршивый хоть в стандартных хоть в alphaskins

Сделай небольшой пример где эта проблема проявляется (только без дополнительных компонентов) - я посмотрю у себя на английской Windows.

[hilaryon]

Пример.zip

увы не скомпилированный, так как размер архива тут не подходит, протестил сейчас тоже его на компе где стоит в реестре настройка
"1251"="c_1252.nls"

2013-12-16_134454.png

готовый проект можно скачать на моем сайте посмотреть как будет тоже http://hiki-soft.ru/download/

[hilaryon]

есть подозрение что в дельфи это не решаемо ( скорее всего обладателям такой винды придется фиксить все самостоятельно, менять реестр, ставить шрифты или еще что-то ( хотя очень печально, ведь часть текста она может выводить по русски что называется, но загружаемый текст зачем то кодирует через настройки системы

[poli-smen]

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

Вложение 4148

К сожалению мне так и не удалось найти англоязычную Windows (как только найду - сразу же проверю), тем не менее в этом примере у элементов управления я почему то вижу что Font.Charset имеет значение DEFAULT_CHARSET, а не RUSSIAN_CHARSET. Если всё же установить RUSSIAN_CHARSET разве проблема не пропадает?

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

увы не скомпилированный, так как размер архива тут не подходит, протестил сейчас тоже его на компе где стоит в реестре настройка
"1251"="c_1252.nls"

Скомпилированный и не нужен был - только исходники.

[hilaryon]

в этом примере я не стал менять ничего, это к сожалению не помогает (

[Freeman]

Проблема больше похожа на известную ошибку unattend-установки Windows, которая в Windows XP решалась переключением темы туда-сюда: на любую другую, потом снова на ту, что была. Видел в интернетах, что и в Windows 7 проблема наличествует, но как решается, не знаю. Насколько помню, передергивание темы уже не помогает.

Хотя, если это уже Unicode VCL, проблема может быть и в самой программе.

[poli-smen]

Так как мне не удалось найти компьютер с установленной англоязычной Windows, скачал вместо этого (чтобы не устанавливать) Windows PE (Hiren's BootCD 15.2) и как оказалась эта бага действительно имеет место быть - если не указать явно, то программа всегда считает, что файлы содержащие "простой" ansi-текст имеют кодировку соответствующие локализации Windows.
Чтобы нормально загружался ansi-текст как русскоязычный не зависимо от локализации Windows нужно указывать явно кодировку 1251:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  cp1251: TMBCSEncoding;
begin
  cp1251 := TMBCSEncoding.Create(1251);
  try
    Memo1.Lines.DefaultEncoding := cp1251;
    Memo1.Lines.LoadFromFile('1.txt');
  finally
    cp1251.Free;
  end;
end;

Естественно объект cp1251 можно создать один раз, а использовать много раз. Фактически достаточно всего один раз присвоить в DefaultEncoding в каждый Memo (и т.п.), после чего можно объект cp1251 вообще уничтожить.

Теперь о том почему я считаю эту фичу багом.
Во-первых непонятно с чего это вдруг язык ansi-текстов зависит от локализации Windows, а не например от настроек "Язык и региональные стандарты". Я например лет 5 сидел под англоязычной Windows 2000 создавая при этом нормальные русскоязычные текстовые файлы в ansi кодировке.
Во-вторых по непонятной причине нет никакой возможности задать (в настройках или однократным вызовом процедуры) кодовую страницу по-умолчанию для ansi-текста. Всякий раз если не указать явно, будет вызываться API-функция GetACP которая возвращает язык локализации Windows. Вызов SetMultiByteConversionCodePage(1251) устанавливает кодовую страницу по-умолчанию похоже только для RawByteString.

[hilaryon]

Честно говоря я не надеялся, что кто-то сможет найти решение, облазил кучу форумов, я думаю не я один скажу Вам за это исследование спасибо!

Сейчас же бегу тестить полученный вариант!

Еще нужно будет прикрутить автоматическое протыкивание кодировки по всем элементам всех форм, так как программа у меня насчитывает аж 22 формы