Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Блокировка файла 
:(
    Опции темы
korob2001
Дата 27.8.2005, 10:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61



Привет!!!!
Решил написать ActiveX DLL, всё для того же альбома. В нём есть методы: AlbumOpen и AlbumClose, первый вызывается при загрузке формы, а второй при выгрузке.
Беда в том, что пока приложение использующее данный DLL, запущено, то можно спокойно удалить файлы альбома. Мне же нужно сделать так: пока приложение запущено, эти файлы нельзя удалить или переименовать, т.е. заблокировать их на время работы программы. Когда форма выгружается, она вызывает метод AlbumClose, который должен снять блокировку.
Как это реализовать?

Файл открывается таким образом:
Код

Open sAlbumPath For Binary As fileNumAlbum


Насколько я знаю, есть функции Lock и Unlock, но они что-то не работают smile((
Пытался сделать так:
Код

Open sAlbumPath For Binary As fileNumAlbum
Lock ( fileNumAlbum )

а в закрывающем методе:
Код

Unlock ( fileNumAlbum )
Close fileNumAlbum



--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
bom
Дата 27.8.2005, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6



Цитата(korob2001 @ 27.8.2005, 10:35)
файлы альбома

Имеется в виду один файл
Цитата
Open sAlbumPath For Binary As fileNumAlbum
?
Если да, то его и так не получится удалить, пока он не закрыт.
Добавлено @ 11:32
...и программа, открывшая его - работает.
PM MAIL   Вверх
korob2001
Дата 27.8.2005, 11:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61



Вообще-то 2 файла открываются одновременно, второй открывается в режиме Random. Мне их оба нужно заблокировать.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Akina
Дата 27.8.2005, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



А про lock в команде open ты забыл?

OPEN "......" FOR ...... LOCK ...... AS #.....


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
korob2001
Дата 27.8.2005, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61



Akina - большое спасибо, на самом деле я и не знал, что файл можно заблокировать при открытии. Помог такой вариант:
Код

Open sAlbumPath For Binary Lock Read Write As fileNumAlbum



--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0462 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.