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

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

Размер файла [D7, WinXP]

Страницы:   < 1 2 >

Logs ©   (2004-12-06 19:01:00) 

Здравствуйте! Подскажите пожалуйста такую вещь. Пишу
function file_size(path:string):integer;
var
f:HFile;
begin
f:=_lopen(PChar(path),of_read);
file_size:=_lseek(f,o,file_end);
_lclose(f);
end;
end;
компилятор не опнимает

Ошибка такая: компилятор не понимает "_lseek". Что делать??

---

begin...end   (2004-12-06 19:46:00) [21]

> [4] Logs   (06.12.04 19:26)

> А то этот слишком глючный.

И в чём глючность?

---

Fay   (2004-12-06 19:29:00) [22]

2 Logs   (06.12.04 19:26) [4]
Сам ты глючный. Слишком.

---

Logs   (2004-12-06 19:26:00) [23]

А другого способа нет?
А то этот слишком глючный.

---

Fay   (2004-12-06 19:20:00) [24]

Для файлов размером до 4Gb можно так
function File_Size(s : string) : DWORD;
var
 h : DWORD;
begin
 h := CreateFile('c:\boot.ini', 0, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
 if h = INVALID_HANDLE_VALUE then RaiseLastOsError;
 try
   Result := GetFileSize(h, nil);
   if Result = INVALID_FILE_SIZE then RaiseLastOsError;
 finally
   CloseHandle(h);
 end;
end;

---

Logs   (2004-12-06 19:13:00) [25]

> ить ошибку в написании функции.
>
> Кстати, а чем не устраивают CreateFile/GetFileSize?

А как ими пользоваться?

---

begin...end   (2004-12-06 19:07:00) [26]

> Logs   (06.12.04 19:01)

> Ошибка такая: компилятор не понимает "_lseek". Что делать??

Исправить ошибку в написании функции.

Кстати, а чем не устраивают CreateFile/GetFileSize?

---

Страницы:   < 1 2 >

Наверх