FileSetDate — Функция Delphi

FileSetDate — Функция Delphi

Ниже описываются Delphi функции для работы с файлами. В таблице содержатся практически все Delphi функции для работы с файлами, как создающие, переименовывающие, удаляющие файлы и каталоги, так и Delphi функции поиска файлов, обладающих заданными характеристиками.

Работа с файлами В начало урока Работа с дополнительными формами

Одиссей, добавлено 20.08.10, 11:03:29
В таблице отсутствуют функции для записи и чтения файлов! А в остальном очень полезный материал, практически можно научиться работать с файлами, изучив данную таблицу. Автор, добавлено 20.08.10, 11:06:54
В этой таблице содержатся функции управления файлами, а функции записи и чтения можно изучить, читая соответствующие уроки, посвящённые данным вопросам. А эта страничка даже не урок, а просто справочный материал. Вадим Мошев, добавлено 9.04.12, 15:31:27
Здравствуйте. У вас, наверное, описка?
Написано function Erase (var F);
и описание: Уничтожает файл F. Перед выполнением процедуры файл должен быть закрыт процедурой CloseFile.

Наверное, вы хотели написать не function, а Procedure?
То есть, Procedure Erase (var F). Андрей, добавлено 9.04.12, 15:54:27
Вадим, спасибо за внимательность! Сейчас исправлю.

FileSetDate — Функция Delphi

Version 1 of this function takes a FileHandle parameter to indicate the file. This requires use of the FileOpen function, which is one of the low level file handling routines in Delphi.

Version 2 of this function takes a FileName parameter to define the file.

The file is searched for in the current directory.

The second parameter, FileAge is an Integer date/time representation that is used to change the last modified date/time of the file.

Типы, функции и процедуры Delphi для работы с файлами.

Содержание:

Процедуры и функции для работы с файлами.

Тип TSearchRec.

Тип TWin32FindData.

Процедуры и функции для работы с файлами

Ниже приведена таблица, содержащая стандартные процедуры и функции Delphi7 для работы с файлами и их краткое описание. Функции в таблице расположены в алфавитном порядке.

Связывает имя внешнего дискового файла с файловой переменной.

procedure AssignFile(var F; FileName: string);

F — имя файловой переменной
FileName — имя файла

Изменяет текущую директорию.

procedure ChDir(const S: string); overload;
procedure ChDir(P: PChar); overload;

Разрывает связь между файловой переменной и внешним дисковым файлом.

procedure CloseFile(var F);

Создает новую директорию.

function CreateDir(const Dir: string): Boolean;

Удаляет файл с диска.

function DeleteFile(const FileName: string): Boolean;

Определяет существует ли указанная директория.

function DirectoryExists(const Directory: string): Boolean;

Возвращает число свободных байт на указанном диске.

function DiskFree(Drive: Byte): Int64;

Drive — номер диска, где 0 = текущий диск, 1 = A, 2 = B . и т.д.

Возвращает размер указанного диска в байтах.

function DiskSize(Drive: Byte): Int64;

Drive — номер диска, где 0 = текущий диск, 1 = A, 2 = B . и т.д.

Возвращает время последней модификации файла (timestamp) в формате операционной системы. Полученное значение может быть преобразовано в формат TDateTime при помощи функции FileDateToDateTime.

function FileAge(const FileName: string): Integer;

Закрывает указанный файл.

procedure FileClose(Handle: Integer);

Создает новый файл.

function FileCreate(const FileName: string): Integer; overload;
function FileCreate(const FileName: string; Rights: Integer): Integer; overload;

Если возвращаемое значение больше 0 функция выполнена успешно и его значение соответствует handle открытого файла. -1 — произошла ошибка открытия файла.
Параметр Rights используется только для Linux. В Windows он игнорируется.

Преобразует значение времени файла (timestamp) из формата операционной системы в TDateTime.

function FileDateToDateTime(FileDate: Integer): TDateTime;

Проверяет существует ли указанный файл.

function FileExists(const FileName: string): Boolean;

Возвращает файловые аттрибуты заданного файла как строку бит. Возвращаемое значение полностью соответствует полю Attr в TSearchRec..

function FileGetAttr(const FileName: string): Integer;

Возвращает время последней модификации файла (timestamp) в формате операционной системы. Используйте её для файла, заданного его handle.

function FileGetDate(Handle: Integer): Integer;

Возвращает TRUE если файл можно открыть только для чтения.

function FileIsReadOnly(const FileName: string): Boolean;

Открывает указанный файл в режиме, заданном при помощи одной из констант File open mode.

function FileOpen(const FileName: string; Mode: LongWord): Integer;

Если возвращаемое значение больше 0 функция выполнена успешно и его значение соответствует handle открытого файла. -1 — произошла ошибка открытия файла.

Читает указанное число байт из файла в буфер. Перед этим файл должен быть открыт при помощи функции FileOpen или FileCreate.

function FileRead(Handle: Integer; var Buffer; Count: Integer): Integer;

Handle — хендл файла, возвращаемый функциями FileCreate или FileOpen
Buffer — буфер
Count — размер буфера

Возвращаемое значение — действительное количество полученных байт. Оно может быть меньше размера буфера.

Ищет файл в указанных папках.

function FileSearch(const Name, DirList: string): string;

Name — короткое имя файла
DirList — список директорий для поиска. Для Windows директории для поиска в списке отделяются друг от друга точкой с запятой, а в Linux — двоеточием.

Возвращаемое значение — полное имя файла. Если файл не найден — пустая строка.

Перепозиционирует позицию чтения/записи в открытом файле. Перед этим файл должен быть открыт при помощи функции FileOpen или FileCreate.

function FileSeek(Handle, Offset, Origin: Integer): Integer; overload;
function FileSeek(Handle: Integer; const Offset: Int64; Origin: Integer): Int64;overload;

Handle — хендл файла, возвращаемый функциями FileCreate или FileOpen
Offset — указывает число байт смещения от Origin, куда будет перепозизиционирована точка.
Origin — определяет три варианта позиционирования:
0 — смещение задается относительно начала файла;
1 — смещение задается относительно текущей позиции;
2 — смещение задается относительно конца файла.

Если FileSeek выполнена успешно, она возвращает новую позицию точки чтения/записи; иначе она возвращает -1.

Устанавливает файловые аттрибуты заданного файла.

function FileSetAttr(const FileName: string; Attr: Integer): Integer;

Значение Attr формируется комбинацией соответствующих констант файловых аттрибутов как показано ниже:

Возвращаемое значение — 0; иначе — код ошибки.

Примечание: Значения констант файловых аттрибутов приведены в описании TSearchRec.

Примечание: FileSetAttr доступна только для Windows.

Устанавливаетвремя последней модификации файла (timestamp) в формате операционной системы.

Для Windows:
function FileSetDate(Handle: Integer; Age: Integer): Integer; overload;

Cross-platform:
function FileSetDate(const FileName: string; Age: Integer): Integer; overload;

Handle — handle файла для изменения (Этот синтаксис доступен только для Windows.);
FileName — имя файла;
Age — устанавливаемое время модификации в формате операционной системы. Используйте функцию DateTimeToFileDate для перевод времени из формата TDateTime в формат операционной системы.

Возвращаемое значение — 0; иначе — код ошибки.

Разрешает использовать файл только для чтения.

function FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean;

Записывает содержимое буфера в текущую позицию в файле.

function FileWrite(Handle: Integer; const Buffer; Count: Integer): Integer;

Handle — хендл файла, возвращаемый функциями FileCreate или FileOpen
Buffer — буфер
Count — число байт, передаваемых файлу из буфера

Возвращаемое значение — действительное количество записаных байт или -1 в случае ошибки.

Освобождает память, выделенную под функцию FindFirst и прерывает последовательность FindFirst/FindNext.

Ищет первый файл с заданными аттрибутами в указанной папке.

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;

Path — имя папки и маска имен файлов для поиска, включая wildcard characters. (Например, ‘.\test\*.*’ задает все файлы в текущей папке.)
Attr — аттрибут, указывающий включать в поиск специальные файлы в дополнение к нормальным. Аттрибуты можно комбинировать, складывая значения. Например, (faReadOnly + faHidden).
F — возвращаемый параметр. Результат работы функции.

Возвращаемое значение — 0, если файл найден; иначе — код ошибки.

Возвращает имя следующего файла с параметрами, предварительно заданными функцией FindFirst.

F — возвращаемый параметр. Результат работы функции.

Возвращаемое значение — 0, если файл найден; иначе — код ошибки.

Создает новую папку, включая родительские папки, если они до этого не существовали, и родительские папки.

function ForceDirectories(Dir: string): Boolean;

Возвращает полное имя рабочей папки.

function GetCurrentDir: string;

Возвращает имя рабочей папки.

procedure GetDir(D: Byte; var S: string);

D — номер диска, где 0 = текущий диск, 1 = A, 2 = B, 3 = C . и т.д.
S — возвращаемый параметр. Результат работы процедуры.

Удаляет существующую пустую папку.

function RemoveDir(const Dir: string): Boolean;

Изменяет имя файла.

function RenameFile(const OldName, NewName: string): Boolean

Назначает рабочую папку.

function SetCurrentDir(const Dir: string): Boolean;

Тип TSearchRec

TSearchRec содержит информацию о файле, найденом при помощи функции FindFirst или FindNext.

Тип TSearchRec определяет информацию о файле, найденую путем вызова функции FindFirst или FindNext. Если файл найлен, поля параметров TSearchRec изменяются в соответствии с найденным файлом.

Attr — представляет файловые аттрибуты файла. Проверяйте параметр Attr на следующие константы аттрибутов или их значения чтобы узнать какие аттрибуты назначены данному файлу.

В Windows константы аттрибутов полностью соответствуют файловым аттрибутам DOS.

Примечание:
Константа faReadOnly из модуля SysUtils имеет то же самое имя, что и константа из модуля Db, определенная в типе TFieldAttribute. Если в своих исходниках вы одновременно используете модули SysUtils и Db, то, чтобы исключить неопределенность, необходимо конкретно указывать из какого модуля вы используете значение константы faReadOnly. В Delphi это записывается так: SysUtils.faReadOnly.

Чтобы проверить файл на определенный аттрибут, комбинируйте значение поля Attr с соотвтствующей константой при помощи оператора AND. Если файл имеет этот аттрибут, результат будет больше 0. Например, если найденый файл является скрытым, то следующие выражения дадут значение TRUE:

Time содержит время последнего изменения файла. Оно может быть преобразовано в формат TDateTime при помощи функции FileDateToDateTime.

Size содержит размер файла в байтах.

Name содержит короткое имя файла с расширением.

FindHandle is an internal handle used to track find state.

FindData (только для Windows) содержит дополнительную информацию, такую как время создания файла, время последнего доступа, а так же длинное и короткое имя файла. См. тип TWin32FindData.

FileSetDate — Функция Delphi

Увжаемые программисты! Объясните, пожалуйста, почему не работает следующая процедура по установке времени создания файла — вроде бы писалась строго по справке. Заранее спасибо!

Procedure SetFileDateEx(FileName:String; fFileDate:TDateTime);
Var
F:Cardinal;
FileTime: TFileTime;
SystemTime: TSystemTime;
Begin
If FileExists(FileName) Then
Begin
F:=FileOpen(FileName,GENERIC_WRITE);
DateTimeToSystemTime(fFileDate,SystemTime);
SystemTimeToFileTime(SystemTime,FileTime);
SetFileTime(F,@FileTime,nil,nil);
FileClose(F);
ZeroMemory(@FileTime,SizeOf(@FileTime));
End
Else
MessageBoxEx(0,»Файл по указанному адресу не найден»,»Ошибка»,MB_IconError,0);
End;

А GetLastError не пробовали ?

>Игорь Шевченко Благодарю Вас за то, что Вы откликнулись на мой вопрос. Но к сожалению, я не умею использовать результат GetLastError.
Если вызвать GetLastError сразу же после вызова процедуры SetFileDateEx, то возвращаемое значение равно 5-ти. Что это означает?

К этому файлу у вас нет доступа (скорее всего, это происходит не после SetFileTime, а после FileOpen)

А писать надо так:

if NOT SetFileTime(F,@FileTime,nil,nil) then
RaiseLastWin32Error;

Но чем это можно объяснить? Например, я создаю файл D:\1.txt и хочу изменить дату его создания, вызвав процедуру:

Чем может быть обусловлена такая ошибка в этом случае?

Попробуйте Сначала закрыть файл, а уже потом изменить его дату

>я не умею использовать результат GetLastError
SysErrorMessage(GetLastError)

Если вопрос стоит тольок в том, чтобы обьяснить — на мой взгляд, проблема в этом параметре GENERIC_WRITE при открытии файла. Скорее всего, если поставить просто fmOpenWrite, то всё будет работать. Однако, мне также неясно зачем использовать столько перекодировок из формата в формат? В общем-то, по-моуму, можно написать и проще, хотя бы так:
F:=FileOpen(FileName,fmOpenWrite);
If FileSetDate(f, DateTimeToFileDate(fFileDate)) <> 0 then Showmessage(«Ошибка!»);
FileClose(F);

Хочу ещё раз поблагодарить всех тех, кто откликнулся на мой вопрос!

>Cobalt Если делать именно так, то возвращается ошибка «Неверный дескриптор». Но всё равно, спасибо за помощь!

Но я никак не могу понять, почему постоянно отказано в доступе абсолютно к любому файлу именно при вызове SetFileTime. К сожалению, замена Generic_Write на fmOpenWrite ни к чему не привела..

Функция FileSetDate представляет собой функцию Delphi и сама использует функцию SetFileTime, т. е. если работает она, то и другая обязана работать. На самом деле, на мой взгляд, проще использовать уже готовую функцию, чем придумывать новую. Другое дело, что SetFileTime позволяет изменять то, что первая не может изначально (при желании можно исправить).
Насчёт Generic_Write и fmOpenWrite. Да, в помощи действительно сказано, что файл должен обязательно открыт с доступом GENERIC_WRITE, но там не сказано, что параметр fmOpenWrite функции FileOpen автоматически подразумевает открытие с таким доступом. А вот указание GENERIC_WRITE непосредственно не передаёт этот параметр функции API, которая и открывает на самом деле файл. Просто несовпадение помощи по функциям API и собственно Delphi.
Но вот последняя часть — лично у меня простая замена лишает все проблемы. Если этого не происходит, то это уже проблема чего-то другого. Например, несовпадение версий.

Да проблемы, возможно, это и решает — ошибок не возникает, но ведь и даты не изменяются!

Начнём с того, какой именно параметр тебе надо изменить?
При написании SetFileTime(F,@FileTime,@FileTime,@FileTime) изменяются время создания и время изменения. Время последнего доступа, естественно, устанавливается на текущий момент (т. к. ,собственно, сама процедура доступ и осуществляет). Так что именно она не меняет? Первый параметр отвечает за время создания файла, которое вполне корректно меняется, что и отображается в свойствах файла. Кстати, а где ты смотришь изменения?

Меня интересует изменение времени создания файла. Я вызываю
SetFileTime(F,@FileTime,nil,nil) и далее смотрю, внесены ли
изменения либо непосредственно в Windows, либо вызовом
функции FileAge. Ни то, ни другое не отображает никаких
изменений. Может, дело в операционной системе? Моя — WinXP.

Я во всём разобрался и ещё раз хочу сказать всем СПАСИБО!

Delphi FileSetDate ошибочен

Я хочу изменить обновленную дату файла. Поэтому для этого я использую следующий код.

Интересно, что даты не совпадают с обоими файлами.

Если я использую устаревший метод FileAge он отлично работает

File1 date: 24-05-2020 11:34:36|| File2 date: 24-05-2020 11:34:36

Со временем я собрал некоторые функции в некоторых единицах из www. (Я не помню, изменил ли я некоторые из них).

Возможно, это могло бы помочь случайному (я использовал это для изменения «Блокнот Puvananthiran delphi» для обновления файла, загруженного в соответствии с последней датой изменения).

Вывести и изменить дату создания или изменения файла

Как изменить дату создания/изменения файла
Как изменить дату создания/изменения файла (желательно приведите фрагмент кода)?

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

Как узнать дату и время создания графического файла?
подскажите пожалуйста как сверить время и дату создания графического файла? точнее сверить я могу я.

Вывести название файла, дату его создания и автора
Через ListView вывожу содержимое папки. Необходимо выводить название файлов, дату создания и.

От текущей даты вычесть дату создания файла
Добрый день. Нужно создать программу, в которой открываются файлы. И нужно сделать что то ввиде.

Предупреждение Delphi — W1002 Символ ‘FileSetDate’ является специфическим для платформы

Когда я компилирую свое приложение под Delphi 2006, я получаю следующее предупреждение [Предупреждение Паскаля] — W1002 Символ ‘FileSetDate’ относится к платформе

Что я должен сделать, чтобы подавить это предупреждение?

3 ответа

Хотя ответ DR устраняет предупреждение, оно не является правильным решением.

Вы должны использовать независимую от платформы версию FileSetDate:

Также в SysUtils.

1) В опциях проекта вы можете выбрать сообщения компилятора, которые вы хотите видеть. Если вас не волнует независимость от платформы, вы можете просто отключить предупреждение о платформе.

2) Другой способ — отключить предупреждение для определенной части кода:

Полный список параметров приведен в справочном файле Delphi в разделе ‘$ WARN’

3) Последний способ — добавить

но это опасно, потому что все предупреждения будут подавлены.

4) Кроме того, как уже предлагалось в других ответах, вы можете просто переключиться на независимый от платформы вариант FileSetDate , который работает с именами файлов (т.е. строками), но, насколько я понимаю, это был не ваш вопрос.

FileSetDate Routine

Description

(Please provide a description in your own words. It is illegal to use the wording from the Delphi Help.)

Technical Comments

(Known issues / Documentation clarifications / Things to be aware of)

Examples

(Please provide links to articles/source code that show how to use this item.)

See Also

(Please provide links to items specifically related to this item.)

User Comments/Tips

(Please leave your name with your comment.)

FileSetDate — Функция Delphi

Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда — alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Форум программистов > Delphi > Общие вопросы Delphi Дата и время изменения файла

Регистрация Поиск по форуму Расширенный поиск К странице. Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда — alarforum@yandex.ru 02.06.2009, 16:34 #1 02.06.2009, 16:45 #2 02.06.2009, 19:12 #3 24.11.2009, 13:20 #4 может и не вкурил , но не думаю, что это возможно в принципе, т.к. теги одни и те же 24.11.2009, 13:25 #5 Serge_Bliznykov нет. это РАЗНЫЕ «тэги»! пример в студию, самому интересно. щас ищу upd-2 ——- нашел тоже, сенкс и + to Serge_Bliznykov нет. это РАЗНЫЕ «тэги»! во вложении рабочий код. консольная программка. Отображает данные по файлу, имя которого ей передано в качестве командной строки. писал давно. как раз изучал данный вопрос. Поэтому написано сумбурно. но код — РАБОЧИЙ! ____________________ ещё добавлю. есть такой супер пакет JEDI! и там, в модуле JclFileUtils, среди множества полезных функций, есть и такие, уже готовые функции: GetFileLastWrite(. ) GetFileLastAccess(. ) GetFileCreation(. ) Delphi FileSetDate is erroneous I want to modify the updated date of a file. So I use the following code to do it. Interestingly the dates are never the same on both the files. If I use the deprecated method FileAge it works fine File1 date: 24-05-2020 11:34:36|| File2 date: 24-05-2020 11:34:36 1 Answer 1 Over time I have collected some functions in some units from www. (I do not remember if I’ve changed some of them). Perhaps this could be of help to chance (I used this for change the «Puvananthiran delphi notepad» for updated the file loaded according to the last modification date).` Илон Маск рекомендует:  Что такое код absread Понравилась статья? Поделиться с друзьями: Вам также может быть интересно Обучение программированию Эффект pазвивающегося флага Scrontch’s Flag Designer Design Your Flag! Generates Scalable Vector Graphics (SVG). This App requires Обучение программированию Язык sql SQL-Урок 1. Язык SQL. Основные понятия. Для того, чтобы начать изучать SQL нам нужно Обучение программированию Язык с C++ с нуля Этот самоучитель создан для тех, кто хочет освоить основы программирования на Обучение программированию Эффект горящей надписи Простой огненный текст в Фотошопе Конечный результат: Ресурсы урока: Шаг 1 Создайте новый документ Обучение программированию Язык xml documents type definitions (dtd) Язык XML — практическое введение . Documents Type Definitions (DTD) В XML- документах DTD Обучение программированию Языки и грамматики простейший компилятор ГРАММАТИКА ЯЗЫКОВ ПРОГРАММИРОВАНИЯ Описанию грамматики языка предшествует описание его алфавита. Алфавит любого языка состоит Обучение программированию Эффект ледяной надписи Ледяной текст в Фотошопе Конечный результат: Ресурсы урока: 1. Создание фона Шаг 1 Создайте Обучение программированию Язык xml dom совместимые анализаторы XML-анализаторы в java XML как набор байт в памяти, запись в базе или текстовый Обучение программированию Языки описания пользовательских интерфейсов Языки описания пользовательских интерфейсов Язык описания интерфейсов Язык описания интерфейсов (IDL), используемый OMG определяет Обучение программированию Эффект линзы (watcom c) Эффект линзы (watcom c) Просветляющие покрытия от ZEISS Высококачественные линзы требуют высоколассного подхода: защита, Обучение программированию Язык xml xml в microsoft internet explorer 5 0 Основы XML для начинающих пользователей Введение в правильную разметку XML означает Extensible Markup Language, Обучение программированию Языки программирования Языки программирования Язык программирования — искусственный (формальный) язык, предназначенный для записи программ для исполнителя Обучение программированию Эффект пламени По-настоящему яркие ролики: эффект огня для видеомонтажа Как поразить зрителей с первых кадров? Самый Обучение программированию Язык xml введение Язык xml введение XML технологии и средства разработки Gupta Team Developer: XML технологии (Часть Обучение программированию Якоря HTML Что такое ссылка якорь в HTML и как ее сделать? Когда мы имеем дело Обучение программированию Эффект разбитого текста Создаем эффект разрушающегося текста при помощи Stipplism В сегодняшнем уроке мы создадим эффект разрушающегося Обучение программированию Язык xml использование java xml обработчиков Java XML J ava Development Kit поставляется с двумя парсерами XML: DOM и SAX, Обучение программированию Яндекс — крупнейшая поисковая система русскоязычного Интернета! Поисковые системы интернета – Полный список всех поисковых систем Чтобы увеличить посещаемость вашего сайта, Обучение программированию Эффект скручивания Как добиться эффекта скручивания? Люди добрые помогите! Как сделать так чтобы здание скрутилось вокруг Обучение программированию Язык xml описание технологии Синтаксис и основные понятия языка XML, создание валидных документов Понятие о языке XML XML Обучение программированию Ячейка заголовка 17 Таблицы 17.1 Введение в таблицы Таблицы представляют отношения между данными. Авторы определяют эти Обучение программированию Эффективное использование gnu make Эффективное использование gnu make Создание данного текста не имело своей целью дать полное описание Обучение программированию Язык xml практическое введение Описание данных с помощью XML Если вы программируете на Java, за последние пару лет Обучение программированию Эффективный копирайтинг, как писать копирайтинг Как написать эффективный продающий текст. Часть первая. Подготовка Грамотно написанный продающий текст позволяет превращать 24.11.2009, 13:36 #6