Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с GetFileSize [D7, WinXP]


_Sh_ ©   (2004-04-25 07:26:00) 

Есть такой кусок кода:

...
H:=CreateFile (PChar (FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, 0);
if H <> INVALID_HANDLE_VALUE then
begin
FileSize:=Windows.GetFileSize (H, nil);
...

Файл FileName существует, имеет размер примерно в 200 Кб. и никем не открыт. Тем не менее, функция GetFileSize возвращает значение 0 (а должна бы: две с лишним сотни). При этом GetLastError также равно 0.

В чём может быть проблема? Это я что-то делаю не так? Подскажите, пожалуйста, а то я совсем не знаю что делать.


_Sh_   (2004-04-26 07:02:00) [1]

Прошу прощения, проблема оказалась совсем в другом месте.


Игорь Шевченко   (2004-04-26 00:40:00) [2]

Dakis ©   (25.04.04 23:23)

Можно узнать, чем может помочь использование
> не Pchar(FileName) , а @FileName[1]

именно в этомслучае ?


Dakis   (2004-04-25 23:23:00) [3]

А попробуй не Pchar(FileName) , а @FileName[1]
именно 1, а не 0


Игорь Шевченко   (2004-04-25 17:54:00) [4]

Можно глупый вопрос: с каким-либо другим файлом этот же код нормально работает ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо