[ruivit]

Я заступарелся с разархивированием zip архива. В общем искал я в сети долго подобные темы и толком не нашел не чего.

Правда нашел пример кода вот.

Код:

var
  I : Integer;
begin
  // Получаем список файлов
  with CreateInArchive(CLSID_CFormatZip) do
    begin
      OpenFile(ExtractFilePath(ParamStr(0)) + 'test.zip');
      for I := 0 to NumberOfItems - 1 do
        if not ItemIsFolder[i] then
    end;
  // Распаковывает файлы 
  with CreateInArchive(CLSID_CFormatZip) do
   begin
     OpenFile(ExtractFilePath(ParamStr(0)) + 'test.zip');
     ExtractTo(ExtractFilePath(ParamStr(0)) + 'test.txt');

   end;
end;

Только к сожалению при испытание он при исполнение дает ошибку что zip файл не найден. Подскажите в чем проблема...

[Alegun]

Обратный слеш пропустил

Код:

OpenFile(ExtractFilePath(ParamStr(0)) + '\test.zip');

[ruivit]

К сожалению пишет так же, не найден zip файл...

[Alegun]

А он точно в папке программы лежит?

[ruivit]

Да он точно лежит в папке с программой.

[Alegun]

Тогда вот так ещё

Код:

(extractFileDir(ParamSTR(0))+'\test.zip')

[ruivit]

Опять точно такая же ерунда...

[ruivit]

Пишет Cannot open file "C:\test.zip". Не удалось найти указанный файл

[Alegun]

Для проверки киньте его в корень диска, а в коде так

Код:

 OpenFile('c:\test.zip')

Если такая же ошибка будет вылетать - файл найден, но не грузится.

З.Ы. Что такое CreateInArchive?

[ruivit]

Не zip файл так же не найден...

[Alegun]

Понятно, используется 7z.dll...

[ruivit]

Уф разобрался в проблеме. Оказывается все дело в моей не внимательности... Дело в том что код раз архивировал zip, а я тестовый файл архивировал в формате 7z... Все оказалась проще