Конференция VBStreets

**Mongoose** » 17.02.2005 (Чт) 19:12

Здравствуйте. Пишу программу - каталогизатор mp3 файлов на различных носителях. Помогите пожалуйста с такими вопросами:
1) Можно ли заблокировать файл в Windows на чтение т.е. чтобы во время выполнения моей программы другие не могли его читать/писать
2) Подскажите, как можно достаточно быстро проверить целостность файла размером около 500мб
3) Файл на 2/3 текст - реально ли его сжать хотя бы на треть за не слишком большой промежуток времени (1-2 минуты)?

**_Мика_** » 17.02.2005 (Чт) 19:33

1. open <<файл>> for input as #1 - заблокировать
Close #1 - разблокировать
2. чето я не понял вопроса!
3. есть куча разных методов арзивирования (LZW, HUFFMAN) просто надо немного поискать!

**Mongoose** » 17.02.2005 (Чт) 19:46

1. Его всё равно можно открыть (только что проверил на текстовом файле)
2. Надо проверить не пытался ли кто-нибудь что-нибудь подправить в базе данных без ведома моей программы. Просто нужен быстрый алгоритм для больших файлов.
3. Я нашёл несколько примеров на VB,но они сжимают этот файл в течение 7 минут минимум. Для меня это слишком медленно. Нужно уложиться в минуту, или не сжимать вообще.

**_Мика_** » 17.02.2005 (Чт) 19:49

7 минут!!

какого размера файл то??

А, на столько, быстрого алгоритма на VB нет! :wink:

**Mongoose** » 17.02.2005 (Чт) 19:52

Я же написал - около 600 мб

**Amed** » 17.02.2005 (Чт) 21:09

2) Использовать хеши? Насчёт быстроты подсчёта, правда, не уверен... Поищите по форуму фразу MD5, - несколько топиков были с алгоритмами хеширования..

**skiperski** » 17.02.2005 (Чт) 21:22

ff = FreeFile()
Open "file_name_with_full_path" For Input Lock Read As #ff

**KiloGraf** » 17.02.2005 (Чт) 21:42

Ух-ты, Lock Read... Руль! Не знал. А штука прикольная!

**KDima** » 18.02.2005 (Пт) 13:55

KiloGraf писал(а):Ух-ты, Lock Read... Руль! Не знал. А штука прикольная!

Я с другом валил сервак прогой на QB в 2 строчки!
Мы блокировали VC, стоявший на шаре и бедных юзеров выбивало, когда файл был прикрыт

Lock Read Write!

**KDima** » 18.02.2005 (Пт) 13:58

3. есть куча разных методов арзивирования (LZW, HUFFMAN) просто надо немного поискать![/quote]

**vvs_adm** » 18.02.2005 (Пт) 14:17

Абсолютный Архиватор : Shift+Del
Абсолютный разархиватор пока в разработке...

**_Мика_** » 18.02.2005 (Пт) 14:45

vvs_adm писал(а):Абсолютный Архиватор : Shift+Del
Абсолютный разархиватор пока в разработке...

ПРИКОЛЬНО

я столько ржал!!!

Конференция VBStreets

Блокировка файла и его сжатие

Блокировка файла и его сжатие

Кто сейчас на конференции