Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

Подскажите, как из fat32 считать информацию о файле?   Найти похожие ветки 

 
Cosinus   (2002-07-15 15:27) [0]

Извините за наверное, как вам покажется глупый вопрос, но все же, не подскажите, как узнать размер текстового файла? По-моему было что-то для прямого считывания из fat32, или я не прав?
Заранее благодарен, Владислав.


 
anatol   (2002-07-15 15:35) [1]

Ni4egi s4itivat" iz fat32 ne nado. Vot primer cac uznat" razmer
liubogo tipa faila:

function GetFileSize(FileName: string): Int64;
var
SearchRec: TSearchRec;
Res: Integer;
begin
Result := 0;
try
Res := FindFirst(FileName, faAnyFile, SearchRec);
try
if Res <> 0 then
Result := 0
else
Result := SearchRec.Size;
finally
SysUtils.FindClose(SearchRec);
end;
except
Result := 0;
end;
end;


 
valery_f   (2002-07-15 15:35) [2]

А как насчет FileSize (дельфийская ф-я) или GetFileSize (WinAPI) ?


 
Cosinus   (2002-07-15 15:42) [3]

Спасибо. А насчет FileSize, то она не работает для текстовых файлов. GetFileSize по-моему тоже.


 
Digitman   (2002-07-15 15:50) [4]

>>Cosinus

Скажи на милость, где, из каких источников ты почерпнул утверждение о том, что текст.файл с т.з. упомянутых тобой ф-ций неким образом отличается от файлов с иным содержимым ? EXE, например ?


 
Poirot   (2002-07-15 15:53) [5]


> Спасибо. А насчет FileSize, то она не работает для текстовых
> файлов. GetFileSize по-моему тоже.

Ну это ещё как посмотреть... т.е. как открыть... bin или txt


 
Digitman   (2002-07-15 15:54) [6]

Если ты о
Note: FileSize can"t be used on a text file.

то почему сразу FAT32 ? А если файл на томе с NTFS ? Или с HPFS ? Тогда как ?



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

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

Наверх




Память: 0.45 MB
Время: 0.006 c
3-85386
Олеся
2002-09-05 04:32
2002.09.26
Сортировка


3-85419
BAY
2002-09-06 15:03
2002.09.26
ODBC для InterBase6


3-85400
michael_b
2002-09-05 15:06
2002.09.26
Слышал, что Borland начиная с delphi 7 не поддерживает SQL-links


7-85732
Nimbus
2002-07-11 00:08
2002.09.26
Как программно перерисовать всё содержимое SysTray


7-85734
yxz
2002-07-15 21:12
2002.09.26
Смерть мастадаю! (





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский