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-файлами. Классы / Илья Хохлов