Как определить время создания DBF файла?

← →
amb1 (2005-12-28 08:43) [0]

Есть DBGrid, к которому "присоединяются" разные DBF файлы.
Необходимо, чтобы показывалось время создания "присоединенного" файла.
Как определить время создания DBF файла?

← →
Brother © (2005-12-28 09:04) [1]

Что значит присоединяются? Подргужаются из файла или что?

А узнать время создания файла, блин, ну это ваще смешно...
в смысле просто, сам догадаешься?

← →
AMB1 (2005-12-28 09:16) [2]

Да, наверное, просто. Но, попробовал:
var
DtFile : TDate;
begin
DtFilet := TDate.Create(Self);
DtFilet := dbgResult.DataSource.DataSet.???
... что-то не получается.
И где ни пытался, найти свойство подгруженного файла, - не нашел.
Как ни стыдно, но догадаться не могу.

← →
Kot_ (2005-12-28 11:14) [3]

Пользователь как-то выбирает какую базу загружать?
Там и смотри имя бд.

← →
Desdechado © (2005-12-28 11:22) [4]

дату создания файла можно вычитать из его свойств в файловой системе NTFS
в DBF в заголовке хранится только дата последней модификации

← →
AMB1 (2005-12-28 11:34) [5]

> Desdechado

но. как все-таки, добраться до этих свойств?

> Kot_

Да. Пользователь выбирает какую базу загружать.

← →
begin...end © (2005-12-28 11:37) [6]

> Desdechado © (28.12.05 11:22) [4]

А в FAT32 -- нельзя?

> AMB1 (28.12.05 11:34) [5]

FindFirstFile, WIN32_FIND_DATA.ftCreationTime.

← →
Digitman © (2005-12-28 13:39) [7]

> Как ни стыдно, но догадаться не могу

время создания "BF файла" ничем не отличается от времени создания любого иного файла

← →
AMB1 (2005-12-28 13:58) [8]

В результате общих усилий :о) получилось следующее:
var
Dt:string;
Begin
Dt := DateTimeToStr(FileDateToDateTime(FileAge(Table.TableName)));

Всем спасибо!

> AMB1 (28.12.05 09:16) [2]
> Да, наверное, просто. Но, попробовал:
> var
> DtFile : TDate;
> begin
> DtFilet := TDate.Create(Self);

Это что за порнография? Иди изучай теорию.

begin...end © (28.12.05 11:37) [6]
> А в FAT32 -- нельзя?
AFAIK, FAT32 имеет всего одну дату (дату последней модификации), а NTFS - три (создания, модификации и простого доступа)

> AMB1 (28.12.05 13:58) [8]

Этот код определяет время последнего изменения файла, а Вам требовалось узнать время его создания. Непонятно, почему проигнорировано сообщение [6] -- ведь там есть ответ на Ваш вопрос. Код может быть примерно таким:

var FD: TWin32FindData; FT: TFileTime; ST: TSystemTime; DT: TDateTime; H: Cardinal; begin H := FindFirstFile(путь_к_файлу, FD); if H <> INVALID_HANDLE_VALUE then begin Windows.FindClose(Handle); FileTimeToLocalFileTime(FD.ftCreationTime, FT); FileTimeToSystemTime(FT, ST); DT := SystemTimeToDateTime(ST); ShowMessage(DateTimeToStr(DT)) end end

> Desdechado © (28.12.05 15:38) [10]

Нет.

Как определить время создания DBF файла? Найти похожие ветки