ExtractFilePath UNICODE?

[McLion]

Привет,

использую следующий путь к программе, но сейчас переименовал папку на русский язык и ничего не идет, одни вопросики. Как я понимаю эта функция не понимает Unicode. Как заставить ее это понимать?

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

ExtractFilePath(Application.ExeName)

Пасиб!

[slyubez]

Почитай здесь, включая нижележащие сообщения:
viewtopic.php?p=85411#p85411

[McLion]

Да уже все перепробовал... не идет и все!

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

INI := TIniFile.Create(SysToUTF8(ExtractFilePath(Application.ExeName)) + 'Config.ini');
и
INI := TIniFile.Create(ExtractFilePath(SysToUTF8(Application.ExeName)) + 'Config.ini');


[ssadragon]

Так попробуй
INI := TIniFile.Create(ProgramDirectory + 'Config.ini');
ProgramDirectory в модуле FileUtil

[McLion]

Так попробуй
INI := TIniFile.Create(ProgramDirectory + 'Config.ini');

ProgramDirectory это что за функция? Она работает и под Линукс и Мак?

[ssadragon]

Забыл перекодировку
И надо не SysToUTF8 а UTF8ToSys, т.е. так
INI := TIniFile.Create(UTF8ToSys(ProgramDirectory) + 'Config.ini');

ProgramDirectory это что за функция? Она работает и под Линукс и Мак?

Ну по идее должна. Просто она делает то же что и вы делали

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

{------------------------------------------------------------------------------
  function ProgramDirectory: string;
------------------------------------------------------------------------------}
function ProgramDirectory: string;
var
  Flags: TSearchFileInPathFlags;
begin
  Result:=ParamStrUTF8(0);
  if ExtractFilePath(Result)='' then begin
    // program was started via PATH
    {$IFDEF WINDOWS}
    Flags:=[];
    {$ELSE}
    Flags:=[sffDontSearchInBasePath];
    {$ENDIF}
    Result:=SearchFileInPath(Result,'',GetEnvironmentVariableUTF8('PATH'),':',Flags);
  end;
  // resolve links
  Result:=GetPhysicalFilename(Result,pfeOriginal);
  // extract file path and expand to full name
  Result:=ExpandFileNameUTF8(ExtractFilePath(Result));
end;     

[McLion]

Не идет и все .... даже с этим не хочет:

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

function GetCurrentDirUTF8: String;

Директорию правильно отображает, узнает русский буквы, но ini создает в папке с крокосябами. Может Create виноват?

[ssadragon]

но ini создает в папке с крокосябами.

всмысле? Внутри файла крокозябры

[McLion]

Программа лежит в директории: D:\привет
Все правильно распознается, но как только прогу закрываю создается директория D:\привеÑ
и в ней лежит Config.ini

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

procedure TMainForm.SettingsSave();
var
  INI: TIniFile;
begin
  INI := TIniFile.Create(ProgramDirectory + 'Config.ini');
  try
    try
      // Code
    except
      //...
    end;
  finally
    INI.Free;
  end;
end;


[slyubez]

{$H+} в сорце есть?

[McLion]

{$H+} в сорце есть?

Ага...

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

{$mode delphi}{$H+}

[ssadragon]

McLion
Прочтите еще раз
viewtopic.php?p=85505#p85505

[slyubez]

ИМХО, надо поэкспериментировать. Если каталог создается с таким именем, это означает, что метод создания INI-файла принимает ANSI-строку, и именно в виде ANSI ее нужно передавать, а не в UTF8.

[McLion]

McLion
Прочтите еще раз
viewtopic.php?p=85505#p85505

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

INI := TIniFile.Create(UTF8ToSys(ProgramDirectory) + 'Config.ini');

Вообще не работает, одни ????? кругом!

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

ИМХО, надо поэкспериментировать. Если каталог создается с таким именем, это означает, что метод создания INI-файла принимает ANSI-строку, и именно в виде ANSI ее нужно передавать, а не в UTF8.

SysToANSI или как?

[ssadragon]

А если поставить {$mode objfpc}{$H+}
И нет ли у вас -dEnableUTF8RTL и/или -FcUTF8 ?