Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=312678&view=findpost&p=2695956 Mon, 13 Sep 2010 12:25:33 +0000 Кириллические имена файлов и Lazarus https://forum.sources.ru/index.php?showtopic=312678&view=findpost&p=2695956
Добавлено
Цитата daesher @
Либо создавать обходные варианты с принудительным преобразованием кода из UTF8 в CP1251.
Только UTF-8 в Windows не используется, если я не ошибаюсь. Используется UTF-16 (с двойным байтом на символ).

Как только полностью перейдут на Wide character функции (Unicode), подобные проблемы отпадут.]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=312678&view=findpost&p=2693733 Fri, 10 Sep 2010 07:35:09 +0000 Кириллические имена файлов и Lazarus https://forum.sources.ru/index.php?showtopic=312678&view=findpost&p=2693733 daesher 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=312678&view=findpost&p=2690273 Mon, 06 Sep 2010 22:29:50 +0000 Кириллические имена файлов и Lazarus https://forum.sources.ru/index.php?showtopic=312678&view=findpost&p=2690273
Итак, частично проблема описана в названии. А теперь - немного конкретики. Имеется: WinXP SP3 (неюникодный язык выставлен не в Cyrillic, а в Hebrew - это важно) и Lazarus 0.9.28.2

При попытке выполнить
      if SaveDialog1.Execute then
      begin
        ShowMessage(SaveDialog1.FileName);
        memo.SaveToFile(SaveDialog1.FileName);
      end;

, где SaveDialog1.FileName содержит символы кириллицы, например, 'F:\тест.txt', происходит сбой (см. аттач, нижняя часть картинки), хотя ShowMessage отображает правильный путь (см. аттач, верхняя часть). Да, я читал обсуждение на freepascal.ru, естественно, я пробовал и UTF8Decode и UTF8ToSys, но ни одно ни другое не приводит к работе SaveToFile, поскольку у меня системная кодировка другая, в ней не отображаются кириллические символы. Файл с именем на английском (или иврите) прекрасно сохраняется безо всяких преобразований, вышеприведенным фрагментом кода.

При этом, вот такой вызов WinAPI-шной функции:
    if not CopyFileW(PWideChar(UTF8Decode(SrcName)),PWideChar(UTF8Decode(DstName)), False) then
    begin
      //
    end;

копирует файлы с любыми именами, хоть русскими, хоть ивритскими, хоть арабскими.

Внимание, вопрос: можно ли каким-либо образом заставить Лазарус понять, что имена файлов могут быть не на двух, а на гораздо бОльшем количестве языков (желательно не используя WinAPI)? Обходной путь - сохранить в файл с латинским именем, а потом переименовать его, как нужно - мне известен, хотелось бы без лишних телодвижений...

test.PNG (, : 1065) ]]> volvo877 32-битные компиляторы