Текущий архив: 2007.06.17;
Скачать: CL | DM;

Вниз

GetFileSize   Найти похожие ветки 

← →
unnamed777   (2007-05-22 10:43) [0]

GetFileSize не может получить доступ к уже открытому файлу, как ещё можно узнать рзмер файла?

---

← →
Сергей М. ©   (2007-05-22 10:50) [1]

Открыть его средствами TFileStream и прочитать св-во TFileStream.Size

---

← →
Loginov Dmitry ©   (2007-05-22 10:56) [2]

> Открыть его средствами TFileStream и прочитать св-во TFileStream.Size


Если файл кем-то уже открыт в монопольном режиме, то даже такой подход не сработает.

---

← →
Loginov Dmitry ©   (2007-05-22 10:58) [3]

Можно FindFirst заюзать, но и он не всегда сможет определить размер файла (в таких случаях в качестве размера файла возвращается 0).

---

← →
Плохиш ©   (2007-05-22 11:00) [4]

FindFirstFile

---

← →
Anatoly Podgoretsky ©   (2007-05-22 19:17) [5]

> Loginov Dmitry  (22.05.2007 10:58:03)  [3]

С чего бы это, он же не обращается к файлу, а только к записи каталога

---

← →
Loginov Dmitry ©   (2007-05-22 20:25) [6]

> С чего бы это, он же не обращается к файлу, а только к записи
> каталога


Заметил данное явление при работе с табличками Paradox. Программа каждые 5 секунд (в отдельном потоке) сканирует все db-файлы, и если размер их уменьшился, то фиксирует это в логе. Так вот иногда в лог запысывается, что db-файл имеет нулевой размер. Получается, что функция поиска в некоторых случаях не может определить истинный размер файла, и возвращает 0. Подозреваю, что это происходит, когда файл открыт, и в момент выполнения поиска в него производится запись.

---

← →
Джо ©   (2007-05-23 02:26) [7]

> [6] Loginov Dmitry ©   (22.05.07 20:25)
> > С чего бы это, он же не обращается к файлу, а только к
> записи
> > каталога
>
>
> Заметил данное явление при работе с табличками Paradox.
> Программа каждые 5 секунд (в отдельном потоке) сканирует
> все db-файлы, и если размер их уменьшился, то фиксирует
> это в логе. Так вот иногда в лог запысывается, что db-файл
> имеет нулевой размер. Получается, что функция поиска в некоторых
> случаях не может определить истинный размер файла, и возвращает
> 0. Подозреваю, что это происходит, когда файл открыт, и
> в момент выполнения поиска в него производится запись.

Возможно, ты неправильно используешь FindFirst & FindNext. Приведя конкретный код, в этом можно было бы попробовать разобраться. Пока только есть некоторые подозрения.

---

← →
Loginov Dmitry ©   (2007-05-23 09:14) [8]

> Возможно, ты неправильно используешь FindFirst & FindNext.


Шютник :)


> Приведя конкретный код, в этом можно было бы попробовать
> разобраться


Ну разбирайся :)


function BuildDBFileList(APath: string; AFileNames: TStrings; var ADateList: TFileDateList;
 var ASizeList: TFileSizeList): Integer;
var
 SR: TSearchRec;
begin
 AFileNames.Clear;
 ADateList := nil;
 ASizeList := nil;
 
 if FindFirst(APath + "*.db", faAnyFile, SR) = 0 then
 try
   repeat
     if FileExists(APath + SR.Name) then
     begin
       AFileNames.Add(SR.Name);
       SetLength(ADateList, Length(ADateList) + 1);
       SetLength(ASizeList, Length(ASizeList) + 1);

       ADateList[High(ADateList)] := FileDateToDateTime(SR.Time);
       ASizeList[High(ASizeList)] := SR.Size;
     end;
   until FindNext(SR) <> 0;
 finally
   FindClose(SR);
 end;
 Result := AFileNames.Count;
end;

---

← →
Джо ©   (2007-05-23 13:08) [9]

> [8] Loginov Dmitry ©   (23.05.07 09:14)
>       ASizeList[High(ASizeList)] := SR.Size;

Попробуй вот так, сразу учтя файлы, размер которых не больше 2 Гб:

function GetLongFileSize (AFileName: string): Int64;
var
 SR: TSearchRec;
begin
 if FindFirst(AFileName,faAnyFile,SR) = 0 then
 begin
   Result := MakeInt64(SR.FindData.nFileSizeHigh,
     SR.FindData.nFileSizeLow);
   FindClose (SR);
 end
 else
   Result := -1;
end;


---

← →
Джо ©   (2007-05-23 13:10) [10]

> не больше 2 Гб:

больше 2 Гб.

---

← →
Loginov Dmitry ©   (2007-05-23 13:17) [11]

Размер табличек не превышает 30 МБайт

---

Страницы: 1 вся ветка

Текущий архив: 2007.06.17;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.019 c