Главная страница
    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
1-66227
Mis
2002-01-02 18:17
2002.01.21
Sleep


1-66238
~(;_;)~
2001-12-28 14:48
2002.01.21
Как сделать какой-то файл, скажем – «C: Test.cnf» заблокированным?!


14-66362
J_S
2001-11-22 21:45
2002.01.21
http://delphi.mastak.com/prikol/prayer.htm


6-66329
atmospheric
2001-10-16 18:55
2002.01.21
SHARE ??


7-66384
Sergiu
2001-10-04 10:35
2002.01.21
Как задавить хинты в TTreeView???





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