Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Корректно сравнить пути к файлам в Unicode (D2006)

Автор: AlekXL 16.5.2011, 16:02

Требуется код для сравнения путей к файлу или папке - профессиональный, корректный

Автор: Alca 16.5.2011, 18:35

Цитата

код для сравнения путей к файлу или папке

дешифруй фразу

Автор: AlekXL 17.5.2011, 03:48

Цитата(Alca @ 16.5.2011, 18:35

)

дешифруй фразу

а что тут дешифровывать? Две строки widestring, нужно их сравнить на эффективное равенство, то есть не указывают ли они на один и тот же файл.
С поддержкой любой кодировки, в какой только можно сохранить имя папки или файла в NTFS

Автор: Snowy 17.5.2011, 10:32

Для Windows можно так:

Код

function CompareFilePath(fn1, fn2: string): Boolean;
var sn1, sn2: string;
begin
  SetLength(sn1, MAX_PATH);
  SetLength(sn2, MAX_PATH);
  GetShortPathName(PChar(UpperCase(fn1)), PChar(sn1), MAX_PATH);
  GetShortPathName(PChar(UpperCase(fn2)), PChar(sn2), MAX_PATH);
  Result := CompareStr(PChar(sn1), PChar(sn2)) = 0;
  ShowMessage(PChar(sn1)+#13#10+PChar(sn2));
end;

Для линукса может не сработать - там файловые системы регистрозависимые.
Это писал на XE. Для 2006 нужно заменить функции и типы на аналогичные юникодные - под рукой щас нет старой дельфи...
Принцип основан на GetShortPathName - превращает имя файла в DOS 8.3 представление, которое не содержит национальных символов.

Автор: CodeMonkey 17.5.2011, 12:30

Для сравнения строк в Windows есть http://msdn.microsoft.com/en-us/library/dd317759(VS.85).aspx. Можно использовать её, либо любую обёртку к ней в Delphi. Специальной функции для сравнения имён файлов в Windows нет.

Потом, эквивалентны ли для вас пути C:\SomeThing\ и C:\Something\.\ ? И C:\Users\ и C:\Пользователи\ ?

P.S.

Цитата(Snowy @ 17.5.2011, 11:32

)

Принцип основан на GetShortPathName - превращает имя файла в DOS 8.3 представление, которое не содержит национальных символов.

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

Автор: CodeMonkey 17.5.2011, 13:26

P.P.S. В JCL есть несколько готовых функций для приведения файловых путей к каноническому виду/сравнению.

Автор: AlekXL 17.5.2011, 15:49

да, пролемка сложнее, чем кажется на первый взгляд
вот на ветка на http://stackoverflow.com/questions/1816691/how-do-i-resolve-a-canonical-filename-in-windows, а оттуда на http://pdh11.blogspot.com/2009/05/pathcanonicalize-versus-what-it-says-on.html
согласно последнему функция http://msdn.microsoft.com/en-us/library/aa364962(VS.85).aspx может здорово помочь, но она доступна только на Win6.0+
Если же делать вручную, то что сделать?

Цитата(CodeMonkey @ 17.5.2011, 12:30

)

Для сравнения строк в Windows есть CompareString. Можно использовать её, либо любую обёртку к ней в Delphi.

Ну, насколько я понимаю, если мы будем использовать флаг NORM_IGNORECASE, то это не везде будет верно.
Потому что регистр может иметь значение - даже на NTFS, не так ли?

Может http://msdn.microsoft.com/en-us/library/aa364952(VS.85).aspx? Сравнивая индекс и серийник тома? Но будет ли работать на каталогах(а не на файлах)?

Цитата(CodeMonkey @ 17.5.2011, 13:26

)

В JCL есть несколько готовых функций для приведения файловых путей к каноническому виду/сравнению.

а какие?

Автор: CodeMonkey 17.5.2011, 16:01

Цитата(AlekXL @ 17.5.2011, 16:49

)

Ну, насколько я понимаю, если мы будем использовать флаг NORM_IGNORECASE, то это не везде будет верно.
Потому что регистр может иметь значение - даже на NTFS, не так ли?

Верно. Очень редко это имеет значение. Но я же не говорил, что туда всегда надо передавать NORM_IGNORECASE. Если хотите это учитывать - параметры к функции надо менять.

Цитата(AlekXL @ 17.5.2011, 16:49

)

а какие?

JclFileUtils.pas, function PathCanonicalize(const Path: string): string;

Ну и вообще, среди PathXYZ много полезного.

Цитата(AlekXL @ 17.5.2011, 16:49

)

да, пролемка сложнее, чем кажется на первый взгляд

Я про эквивалентность путей не просто так спросил. Как насчёт учёта hardlink? Путь

C:\Users\Default\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Windows Explorer.lnk

ссылается на тот же файл, что и:

C:\Users\Default user\Главное меню\Programs\Accessories\Windows Explorer.lnk

И это без учёта локализованных имён. А если их считать, то и этот путь будет ссылаться на тот же файл:

C:\Пользователи\Default user\Главное меню\Programs\Accessories\Windows Explorer.lnk

Добавлено через 4 минуты и 45 секунд
Можно посмотреть в сторону открытия обоих файлов и получения их ID (вычисляется на базе физического размещения файла на диске) через http://msdn.microsoft.com/en-us/library/aa364952%28VS.85%29.aspx:

Цитата

You can compare the VolumeSerialNumber and FileIndex members returned in the BY_HANDLE_FILE_INFORMATION structure to determine if two paths map to the same target; for example, you can compare two file paths and determine if they map to the same directory.

Автор: AlekXL 17.5.2011, 17:45

Я сделал несколько тестов
Предложение Snowy с GetShortPath реализовал так:

Код


var fn1, fn2:WideString;
    sn1, sn2:WideString;
....
l:=GetShortPathNameW(Pointer(WideUpperCase(fn1)), Pointer(sn1), MAX_PATH);
 mmoLog.Lines.Add(WideFormat('GetShortPathName result=%d on 1>%s',[l,sn1]));
 l:=GetShortPathNameW(Pointer(WideUpperCase(fn2)), Pointer(sn2), MAX_PATH);
 mmoLog.Lines.Add(WideFormat('GetShortPathName result=%d on 2>%s',[l,sn2]));
 r := CompareStringW($0007f,0,Pointer(sn1),-1, Pointer(sn2),-1) = CSTR_EQUAL;
 mmoLog.Lines.Add('CompareStringW case-sens result>'+BoolToStr(r,true) );

оно не дает true на путях типа "C:\path\.\" и "C:\path\", но изменения регистра ей не помеха

Цитата(CodeMonkey @ 17.5.2011, 16:01

)

JclFileUtils.pas, function PathCanonicalize(const Path: string): string;

Режется на изменении регистра, но не на "C:\path\.\" Это чисто строко-манипулирующая функция без валидации по отношению к файловой системе

Цитата(AlekXL @ 17.5.2011, 15:49

)

Может GetFileInformationByHandle ? Сравнивая индекс и серийник тома? Но будет ли работать на каталогах(а не на файлах)?

Цитата(CodeMonkey @ 17.5.2011, 16:01

)

Добавлено через 4 минуты и 45 секундМожно посмотреть в сторону открытия обоих файлов и получения их ID (вычисляется на базе физического размещения файла на диске) через GetFileInformationByHandle:

GetFileInformationByHandle , когда ей даешь путь к файлу не режется ни на регистре, ни на '\.\'
c:\path\.\file.txt ==c:\pATh\.\fIle.txt
но когда я хочу сравнить папки, тут амба: открываю папки с флагом FILE_FLAG_BACKUP_SEMANTICS, и на любую папку выдает один и тот же индекс

Код


mmoLog.Lines.Add('----- GetFileInformationByHandle--------');
fh1:=CreateFileW(pointer(fn1),0,FILE_SHARE_READ or FILE_SHARE_WRITE, nil,
     OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS, 0);
mmoLog.Lines.Add(WideFormat('CreateFile(FILE_FLAG_BACKUP_SEMANTICS) on 1>%.8x',[fh1]) );
fh2:=CreateFileW(pointer(fn2),0,FILE_SHARE_READ or FILE_SHARE_WRITE, nil,
     OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS, 0);
mmoLog.Lines.Add(WideFormat('CreateFile(FILE_FLAG_BACKUP_SEMANTICS) on 2>%.8x',[fh2]) );
r2:=GetFileInformationByHandle(fh1, hi1);
mmoLog.Lines.Add(WideFormat(
  'GetFileInformationByHandle on 1 resulted: %d, ixHigh:%d,ixLow:%d, searial:%d',
    [Integer(r2),hi1.nFileIndexHigh, hi1.nFileSizeLow, hi1.dwVolumeSerialNumber]));

r2:=GetFileInformationByHandle(fh2, hi2);
mmoLog.Lines.Add(WideFormat(
  'GetFileInformationByHandle on 2 resulted: %d, ixHigh:%d,ixLow:%d, searial:%d',
    [Integer(r2),hi2.nFileIndexHigh, hi2.nFileSizeLow, hi2.dwVolumeSerialNumber]));
mmoLog.Lines.add('Compare volume serial and indexes:'+ BoolToStr(
  (hi1.nFileIndexHigh=hi2.nFileIndexHigh) and (hi1.nFileIndexLow=hi2.nFileIndexLow)
  and (hi1.dwVolumeSerialNumber=hi2.dwVolumeSerialNumber), true));
CloseHandle(fh1);CloseHandle(fh2);

вот сама http://rghost.ru/6767741

Цитата(CodeMonkey @ 17.5.2011, 16:01

)

Я про эквивалентность путей не просто так спросил. Как насчёт учёта hardlink?

ну, если уж пошла такая п... - такой вопрос поднялся, говорю, то да жесткие ссылки, символические ссылки, и даже там еще какие-то 6.0+ символические - и даже "Пространство имён оболочки Windows" , что бы это не значило...
Хотелось бы сделать раз и навсегда bullet-proof или около того