Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Вниз

Как получить размер файла? Ессно, винапишной функцией GetFileSize   Найти похожие ветки 

 
Диман   (2001-11-19 10:06) [0]

Указанная функция почему-то возвращает всегда либо 0 либо 65535 (возвращает в WORD, если DWORD - тогда 4 гига - это вроде как размер файла такой!). Ясно что глюк. Залез в СДК там писано такое - в СЛУЧАЕ ОШИБКИ возвращается максимальное значение. Пробовал всяко разно вызывать - результат один. Подскажите кто знает!


 
wHammer   (2001-11-19 11:06) [1]

Можно и без WinApi, с помощью потоков, например так:

var
In : TFileStream;
SizeIn : cardinal;
begin
In := TFileStream.Create(пишу по памяти, посмотри в хелпе пар-ры);
SizeIn := In.что-то вроде Size
In.Free;
end;


 
paul_shmakov   (2001-11-19 11:17) [2]

2 Диман:
покажи, как вызываешь (код, включая открытие файла)


 
Polevi   (2001-11-19 11:36) [3]

var
FileSize,FileSizeHigh:Cardinal;
fHandle:THandle;
begin
fHandle:=CreateFile(PChar(FileName),GENERIC_READ or GENERIC_WRITE,
0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if fHandle<>INVALID_HANDLE_VALUE then
FileSize:=GetFileSize(fHandle,@FileSizeHigh);


 
Диман   (2001-11-20 07:14) [4]

Ура! Заработала! Огромное спасибо что не оставили в беде.



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

Форум: "WinAPI";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.014 c
6-66328
evgen32
2001-10-29 08:56
2002.01.21
дата и время


1-66231
Oleg Fomicheff
2001-12-31 05:26
2002.01.21
ComboBox: проверка уникальности элементов


4-66398
Delfin
2001-11-21 12:39
2002.01.21
Как в IE получить доступ к строке адреса


1-66293
BFG
2002-01-04 21:18
2002.01.21
Mortal Combat 4


1-66281
Грифон
2001-12-29 09:43
2002.01.21
TDriveComboBox





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский