| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как деархивировать zip file?

ShotGun ©   (2005-09-27 09:59:00) 

Архивацию проделываю нормально. С помощью ZipForge.

А вот деархивацию

with ZipForge1 do
begin
   FileName := edit1.Text;
   OpenArchive(fmOpenReadWrite);
   BaseDir := DBPath1 + '\Upload\';
   ZipForge1.ExtractFiles;
   CloseArchive;
end;

Не работает собака... :) Ни кто не может подсказать почему?

---

ShotGun   (2005-09-27 10:26:00) [1]

НУ что никто не может помочь?

---

ShotGun   (2005-09-27 10:15:00) [2]

Еще какой валидный...

---

dmitry501   (2005-09-27 10:11:00) [3]

ShotGun ©   (27.09.05 10:06) [3]
Смотрел...и? Валидный путь?

---

ShotGun   (2005-09-27 10:10:00) [4]

аааааааауууууууууу.... кто-нибудь...

---

ShotGun   (2005-09-27 10:06:00) [5]

Смотрел...


> И зачем писать
> ZipForge1.ExtractFiles;
> если выше
> with ZipForge1 do
> ?


Могу убрать, если вам мешает... Мне например нет, лишь бы заработало... пихнул просто ... ))

---

dmitry501   (2005-09-27 10:01:00) [6]

В отладчике BaseDir смотрели?
И зачем писать
ZipForge1.ExtractFiles;
если выше
with ZipForge1 do
?

---

ShotGun   (2005-09-27 10:00:00) [7]

Да кстати edit1.text содержит путь к существующему файлу... То есть ремарки типа "А может имя файла не правильно указано" не предлагать

---

Наверх