VPF::TZipForge - Форум программистов

RomanEEP

Дата 17.4.2009, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: 5
Всего: 8

Возникли такие проблемы с эти компонентом:
1)Я добавляю в архив файл через поток

Код


FArchiver.AddFromStream('Folder1\Folder2\file.txt', Stream);

получается архив со структурой Folder1\Folder2\file.txt
2)функция FArchiver.FindFirst('Folder1\*', FindItem, faDirectory) возвращает False, хотя мне кажется что должна в FindItem возвратить папку Folder2. В чем проблема?

Я подумал, что нужно сперва создать подпапки и сделал так:

Код


FArchiver.AddFromString('folder1', '', faDirectory);
FArchiver.AddFromString('folder1/folder2', '', faDirectory);
FArchiver.AddFromStream('Folder1\Folder2\file.txt', Stream);

теперь функция FindFirst работает как положено!

НО если я возьму готовый архив сделанный WinRar-ом со структурой Folder1\Folder2\file.txt и выполню код

Код


FArchiver.AddFromString('folder1', '', faDirectory);
FArchiver.AddFromString('folder1/folder2', '', faDirectory);
FArchiver.AddFromStream('Folder1\Folder2\file.txt', Stream);

то теперь функции FindFirst/FindNext вернут мне 2 папки с названием folder2!

как решить эту проблему?
мне кажется я либо неправильно добавляю папку, либо неправильно сделал поиск по архиву

--------------------

Электронные экзамены

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