Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c