Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Корректно сравнить пути к файлам в Unicode (D2006), как это сделать 
:(
    Опции темы
AlekXL
Дата 16.5.2011, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 2.5.2008

Репутация: нет
Всего: 0



Требуется код для сравнения путей к файлу или папке - профессиональный, корректный
PM MAIL   Вверх
Alca
Дата 16.5.2011, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: нет
Всего: 50



Цитата

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

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


--------------------
PM WWW ICQ Skype Jabber   Вверх
AlekXL
Дата 17.5.2011, 03:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 2.5.2008

Репутация: нет
Всего: 0



Цитата(Alca @  16.5.2011,  18:35 Найти цитируемый пост)
дешифруй фразу 

а что тут дешифровывать? Две строки widestring, нужно их сравнить на эффективное равенство, то есть не указывают ли они на один и тот же файл.
С поддержкой любой кодировки, в какой только можно сохранить имя папки или файла в NTFS
PM MAIL   Вверх
Snowy
Дата 17.5.2011, 10:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484



Для 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 представление, которое не содержит национальных символов.
PM MAIL   Вверх
CodeMonkey
Дата 17.5.2011, 12:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89



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

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

P.S.
Цитата(Snowy @  17.5.2011,  11:32 Найти цитируемый пост)
Принцип основан на GetShortPathName - превращает имя файла в DOS 8.3 представление, которое не содержит национальных символов. 


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


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
CodeMonkey
Дата 17.5.2011, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89



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


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
AlekXL
Дата 17.5.2011, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 2.5.2008

Репутация: нет
Всего: 0



да, пролемка сложнее, чем кажется на первый взгляд
вот на ветка на stackOverflow, а оттуда на некий блог
согласно последнему функция GetFinalPathNameByHandle может здорово помочь, но она доступна только на Win6.0+
Если же делать вручную, то что сделать?


Цитата(CodeMonkey @  17.5.2011,  12:30 Найти цитируемый пост)
Для сравнения строк в Windows есть CompareString. Можно использовать её, либо любую обёртку к ней в Delphi.

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

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



Цитата(CodeMonkey @  17.5.2011,  13:26 Найти цитируемый пост)
В JCL есть несколько готовых функций для приведения файловых путей к каноническому виду/сравнению.
 а какие?

PM MAIL   Вверх
CodeMonkey
Дата 17.5.2011, 16:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89



Цитата(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 (вычисляется на базе физического размещения файла на диске) через GetFileInformationByHandle:

Цитата
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.



--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
AlekXL
Дата 17.5.2011, 17:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 92
Регистрация: 2.5.2008

Репутация: нет
Всего: 0



Я сделал несколько тестов
Предложение 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);


вот сама песочница 
Цитата(CodeMonkey @  17.5.2011,  16:01 Найти цитируемый пост)
Я про эквивалентность путей не просто так спросил. Как насчёт учёта hardlink? 

ну, если уж пошла такая п... - такой вопрос поднялся,  говорю, то да жесткие ссылки, символические ссылки, и даже там еще какие-то 6.0+ символические - и даже "Пространство имён оболочки Windows" , что бы это не значило...
Хотелось бы сделать раз и навсегда bullet-proof или около того
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »


 




[ Время генерации скрипта: 0.0562 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.