Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Вниз

Проблемка с доступом к файлу на CD   Найти похожие ветки 

← →
DLL   (2004-06-07 22:39) [0]

Нужно узнать размер файла на CD. Есть такой код:

var ...
   F:File of byte;
begin
    ...
    AssignFile(F,filename);
    Reset(F);
    TabGrid[i]:=IntToStr(Trunc(FileSize(F)));
    CloseFile(F);
    ...
end;

Но выходит ошибка в строке Reset(F): "File access denied". Может кто-нибудь знает в чем может быть загвоздка? Помогите плыз.

---

← →
YuRock   (2004-06-07 22:54) [1]

Советую использовать апишную GetFileSize - она даст тебе размер.
Предварительно надо открыть файл ч-з OpenFile или CreateFile, причем желательно в совместном режиме (OF_SHARE_DENY_NONE)

---

← →
DLL   (2004-06-07 22:57) [2]

спасибо, попробую

---

← →
Palladin ©   (2004-06-07 23:35) [3]

А можно не заморачиватся, а просто выставить перед Reset, FileMode=0;

---

← →
DLL   (2004-06-08 00:06) [4]

Все, получилось с апишными функциями. Спасибо, YuRock.
Palladin, а что дает FileMode=0?

---

← →
Palladin ©   (2004-06-08 00:18) [5]

абсолютно тоже самое что и OpenFile с OF_READ...
справка законом еще не запрещена...

---

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

Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.048 c