FoxZip – класс для работы с ZIP-архивами в Visual FoxPro (исправленный).

Позволяет создавать и распаковывать файлы архивов ZIP-формата. Реализован в виде Visual Class Library, использует библиотеку zlib (http://www.winimage.com/zLibDll/) Библиотека ZLIB (версии 1.1.4) находится внутри класса (т.е. наличие DLL-библиотеки не требуется). Толчком к созданию класса послужило решение http://www.foxclub.ru/sol/index.php?act=view&id=293 Изменения: 1. Решена проблема с русскими именами файлов 2. Добавлено свойство AlertReplacingFile (по умолч. - .T.), управляющее выдачей сообщения о наличии существующего файла

Подробное описание см. в файле FoxZip.rtf из архива. Пример использования класса

SET CLASSLIB TO foxzip.vcx

_SCREEN.AddObject.( 'fz', 'foxzip') && добавляем объект FoxZip

_SCREEN.fz.ZipOpen('c:winntwin.zip') && открываем ZIP-файл

_SCREEN.fz.ZipFile('c:winntwin.ini') && добавляем файл

_SCREEN.fz.ZipFile('c:winntwinhelp.exe') && добавляем второй файл

_SCREEN.fz.ZipClose && закрываем ZIP-файл

_SCREEN.fz.UnZip('c:winntwin.zip', 'c:winnt111') && декомпрессия созданного ZIP-файла в несуществующий каталог

_SCREEN.fz.IncludePath = .T. && включать пути

_SCREEN.fz.ZipOneFile('c:winntwelcome.exe') && компрессия одного файла с созданием одноименного ZIP-файла

_SCREEN.fz.UnZip('c:winntwelcome.zip', 'c:winnt111') && декомпрессия нового ZIP-файла в уже созданный новый каталог и с созданием подкаталога winnt

_SCREEN.fz.ClearDlls = .T.

_SCREEN.fz.removeobject('fz')

Автор: Кирпичев Алексей

Автор публикации

не в сети 2 месяца

admin

Комментарии: 1Публикации: 123Регистрация: 10-12-2000

Вложенные файлы

#	Название	Тип файла	Размер
1	440foxzip	.zip	39,53 КБ

Система