Путь файла и кириллица.

[Роман1971]

Столкнулся с проблемой.
При использовании компонентов выдающих пути файлов или каталогов, например TSaveDialog, невозможно воспользоваться результатом ,если в пути есть кириллица(русский текст, например каталог "Мои документы").
Как выйти из этой ситуации?

[Vadim]

Дело в том, что Лазарус работает с кодировкой UTF-8, а Windows либо win1251, либо Unicode. Надо конвертировать UTF-8 в Unicode, тогда русский путь будет корректно распознаваться.

[EmeraldMan]

Сейчас очень многих людей эта тема волнует: одни последнюю версию установили, другие с Delphi перешли. Поиском форума пользоваться не хотят...
Надо где-нибудь в видном месте большими буквами написать - Новый Lazarus и Кириллица! И там пару нужных функций

По теме:
Например, получили имя файла через OpenDialog - он сразу преобразует Win кодировку в UTF-8, которая доступна другим компонентам. Но если захотим открыть такой файл (с кириллицей) например Reset(f); то естественно ничего не получится и надо менять кодировку назад. Тут надо быть внимательным, не все меняет кодировку, TSearchRec - если находит файл, то оставляет его с системной кодировкой. Тут методом тыка надо

Пользоваться можно функциями AnsiToUTF8 и UTF8ToAnsi, но лучше SysToUTF8 и UTF8ToSys - более кросс-платформенно получается. Эти функции и вызывают первые две описанные, но только в том случае, если это необходимо.

[Павел Ишенин]

Никакого метода тыка.
1. Все что выдается и получается LCL должно быть в utf8.
2. Все что выдается и получается RTL должно быть в системной кодировке.

Перекодировать из UTF8 в системную кодировку можно следующими методами:
1. UTF8Decode - если надо получить WideString из UTF8 строки
2. UTF8ToAnsi - если надо получить AnsiString из UTF8 строки
3. UTF8ToSys - тоже что UTF8ToAnsi, но более избирательно. Проверяет перед перекодировкой необходимость этого
4. UTF8ToConsole - если надо вывести UTF8 строку в консоль например WriteLn(UTF8ToConsole(...)).

соответственно есть и обратные методы
1. UTF8Encode
2. AnsiToUTF8
3. SysToUTF8

Добавлено спустя 1 минуту 52 секунды:
Кроме того, все эти неудобства временные. Пока fpc не поддерживает ansi-строки произвольной кодировки как это умеет delphi 2009.

[Brainenjii]

Прошёл год... ^_^ "неудобства временные" продолжаются? По-крайней мере у меня (fpc-2.4.0, lazarus 23544, логин в кириллице) при попытке войти в мои документы проект ругается юникодовыми символами ^_^ Как обойти?

[eevee]

Ждем-с FPC 3.0.0 наверное

[dunin]

Кусок рабочего кода:

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

function winux(Text: String = ''): String;
begin
  {$IFDEF UNIX}
    Result:= Text;
  {$ENDIF}
  {$IFDEF WINDOWS}
    Result:= Utf8ToAnsi(Text);
   {$ENDIF}
end;
...
procedure TMainForm.FormShow(Sender: TObject);
begin
  LabelMess('Загружаем профиль: '+LastProfile);

  LoadBasePathXML(Base, BaseMenuFile);
  if not FileExists(Base.DatabaseName)
    then
      if Mess(
        'Файл базы данных не найден. Возможно файл настроек еще не создан'+#13#13+
        'Окрыть диалог поиска/создания файла Базы данных?',
        MB_YESNOCANCEL + ICONWARNING) = IDYES
          then begin
            if OpenDialog.Execute
              then Base.DatabaseName:= winux(OpenDialog.FileName); // < СЮДА ОБРАЩАЮ ВНИМАНИЕ!!!!
          end;
...

Возможно кому-нибудь чем-нибудь поможет...

[alexs]

сть комплект функций - UTF8ToSys и подобные. Именно для этого и предназначены.

[Brainenjii]

Ммм... Тут проблема в другом - логин в кириллице... Поэтому "Мои документы" или "Рабочий стол" лежат в папке c кириллицей в пути... И ошибка возникает во время работы диалога... Нажимаешь на "Мои документы" слева - и ошибка... Дескать, не найден путь C:\Documents and settings\<крякозябры>

[Brainenjii]

Ап ^_^ Вот документально потверждение (не фотошоп ^_^)
http://imglink.ru/pictures/04-02-10/a12 ... b5ec2c.png - если выбрать "Мои документы" с панельки слева
http://imglink.ru/pictures/04-02-10/ee4 ... 90f0b8.png - если активировать выпадающий список "Папка" сверху

[Vadim]

Brainenjii
Воспроизвёл Вашу ситуацию:

Файл благополучно открылся:

В коде открытия написал вот что:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  If od.Execute Then
  Begin
    label1.Caption:=od.FileName;
    memo1.Lines.LoadFromFile(UTF8ToSys(od.FileName));
  end;
end;

[alexs]

Brainenjii
скорее всего перед открытием окна выбора файла - присвоили свойству FileName или ещё какому начальное значение - не в той кодировке. Просто надо внимательным быть насчёт кодировок.

[dunin]

Не совсем то, что у Brainenjii, но близко... а может именно то...

На самом деле не Dialog не работает. Немного в другом проблема

Причем, если НЕ кириллица, то все ОК.

Вопрос:
Чем можно ChDir заменить?

Добавлено спустя 7 минут 40 секунд:

...
Вопрос:
Чем можно ChDir заменить?

Не... по ночам вредно кодировать. Моцк медленно соображает... проблема решается так:

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

ChDir(Utf8ToAnsi(ExtractFileDir(SaveDialog.FileName)));

зы. Пошел спать...

[v-t-l]

Только не

Utf8ToAnsi

, а Utf8ToSys - так кроссплатформенее

[dunin]

Из той же оперы...

Подскажите как правильно переименовать файл из латиницы в кириллицу. ОС - Виндус. Надо что-то вроде этого

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

MoveFile(PChar('123.TMP'), PChar(UTF8ToAnsi('Абра козябра.txt')));

Только чтобы работало.

Спасибо.