Чем заменить DirectoryExists (платформо-независимую бы)?

← →
Olivka © (2003-09-23 09:40) [0]

сабж

← →
Calm © (2003-09-23 09:43) [1]

IMHO, такого не бывает.
Файловые системы же разные. Как может быть одна функция?

← →
Olivka © (2003-09-23 09:51) [2]

Ну хорошо. На одной машине НТ, она не работает. Чем бы заменить?

← →
ЮЮ © (2003-09-23 09:51) [3]

В CLX, судя по справке, она тоже есть
А вот в VCL, судя по ней же она есть в двух модулях. Очевидно следует попробовать из другого модуля для получения платформо-независимости

← →
Olivka © (2003-09-23 10:02) [4]

Функция DirectoryExists из Filectrl просто вызывает эту же функцию из SysUtils.

← →
Palladin © (2003-09-23 10:11) [5]

Для ленивых...
function DirectoryExists(const Directory: string): Boolean; {$IFDEF LINUX} var st: TStatBuf; begin if stat(PChar(Directory), st) = 0 then Result := ((st.st_mode and __S_IFDIR) = __S_IFDIR) else Result := False; end; {$ENDIF} {$IFDEF MSWINDOWS} var Code: Integer; begin Code := GetFileAttributes(PChar(Directory)); Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0); end; {$ENDIF}

← →
pasha_golub © (2003-09-23 10:40) [6]

Как это на НТ она может не работать? Может руки?

← →
Olivka © (2003-09-23 10:42) [7]

Это мы уже видали :)
что с того - не работает!

← →
Olivka © (2003-09-23 10:56) [8]

Не работает, почему-то на одной из машин. Не знаю! :)

← →
PVOzerski © (2003-09-23 11:00) [9]

Не должно бы так быть... Там же одни и те же API-функции задействованы - что на NT, что на 9x. Может, на той "одной машине" стоит NTFS, а у вас не те привилегии доступа к папке?

← →
Плохиш_ (2003-09-23 11:00) [10]

Там действительно NTFS, каталога действитель нет (собственно и нужно реагировать на его наличие/отсутствие) и машина запущена под правами Администратора.

2[11]:И что же выдает функция?

← →
Плохиш_ (2003-09-23 11:12) [13]

> Ну хорошо. На одной машине НТ, она не работает.

А в чём выражается не работает?

Чем заменить DirectoryExists (платформо-независимую бы)? Найти похожие ветки