Форум: "Основная";
Текущий архив: 2003.12.23;
Скачать: [xml.tar.bz2];
ВнизКак узнать размер файла? Найти похожие ветки
← →
Barsky (2003-12-11 12:17) [0]Как узнать размер файла не открывая его через assignfile() и без findfirst()?
Тоесть имеется ли функция f(filename)=filesize?
← →
Плохиш_ (2003-12-11 12:20) [1]GetFileSize in RxLib ;-)
← →
Тимохов (2003-12-11 12:23) [2]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/getfilesize.asp
← →
MBo (2003-12-11 12:33) [3]FindFirst
← →
Anatoly Podgoretsky (2003-12-11 12:34) [4]MBo © (11.12.03 12:33) [3]
Принципиально против.
← →
Романов Р.В. (2003-12-11 12:48) [5]Вчера написал
function GetFileSizeE(FName: string): Integer;
var
sr: TSearchRec;
begin
Result := 0;
if FindFirst(FName, faAnyFile, sr) = 0 then
Result := sr.Size;
FindClose(sr);
end;
← →
smu (2003-12-11 14:04) [6]
> не открывая его через assignfile()
assignfile(f) не открывает файл а лишь привязывает его к переменной. А чем тебе не нравится
assignfile(f);
FileSize(f)
← →
smu (2003-12-11 14:09) [7]неточность .. открывать все-таки надо Reset(f,1); сори
← →
Kerk (2003-12-11 14:11) [8]товарищ Тимохов прав
CreateFile
потом
GetFileSize
← →
REA (2003-12-11 14:30) [9]GetFileAttributesEx еще, но там только FAT похоже
← →
me (2003-12-11 18:41) [10]function GetFileSize(const FileName : string) : Int64;
var
Handle : THandle;
FindData : TWin32FindData;
begin
Handle := FindFirstFile(PChar(FileName), FindData);
if Handle <> INVALID_HANDLE_VALUE then begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
Int64Rec(Result).Lo := FindData.nFileSizeLow;
Int64Rec(Result).Hi := FindData.nFileSizeHigh;
Exit;
end;
end;
Result := -1;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.23;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c