DELPHI РАЗМЕР ФАЙЛА

В Delphi существует несколько способов получить размер файла. Один из них - использование компонента TFileStream.

var fs: TFileStream; fileSize: Int64;begin fs := TFileStream.Create('C:\path\to\file', fmOpenRead or fmShareDenyNone); try fileSize := fs.Size; finally fs.Free; end; ShowMessage(Format('File size: %d bytes', [fileSize]));end;

В этом примере мы создаем экземпляр TFileStream для файла, открываем его в режиме только для чтения и без блокировки других процессов. Затем мы получаем размер файла с помощью метода Size и сохраняем его в переменную fileSize.

Еще один способ получить размер файла - использование функции GetFileSize.

var hFile: THandle; fileSize: Int64;begin hFile := CreateFile('C:\path\to\file', GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0); if hFile = INVALID_HANDLE_VALUE then begin RaiseLastOSError; Exit; end; try fileSize := GetFileSize(hFile, nil); if fileSize = INVALID_FILE_SIZE then RaiseLastOSError; finally CloseHandle(hFile); end; ShowMessage(Format('File size: %d bytes', [fileSize]));end;

В этом примере мы используем функцию CreateFile для открытия файла и получения дескриптора файла. Затем мы получаем размер файла с помощью функции GetFileSize и сохраняем его в переменную fileSize.

Также можно использовать стандартную функцию FileSize:

var fileSize: Int64;begin fileSize := FileSize('C:\path\to\file'); ShowMessage(Format('File size: %d bytes', [fileSize]));end;

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

Delphi - Сохранение данных в текстовый файл и компонент SaveDialog

Создание теста на Delphi кратко и по теме

Размер файла, калибровки, последствия ошибки при выборе прошивки!

Урок на делфи 63. FTP - отправка, загрузка, удаление файла.

Генератор файлов на Delphi

Программирование в Delphi Урок 10. Работа с Ini-файлами. Классы / Илья Хохлов

Реклама
Новое
Реклама