Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.07.2011, 14:08   #1
JonMagon
Форумчанин
 
Регистрация: 07.04.2011
Сообщений: 152
Восклицание Распаковка ZipMaster

Всем привет! Вообщем скачал я ZipMaster, все вроде нормально, только я не пойму как распаковать архив с помощью ZipMaster. Может кто подскажет?
Зарание спасибо за ответ.
JonMagon вне форума Ответить с цитированием
Старый 17.07.2011, 14:37   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,833
По умолчанию

http://www.delphizip.org/zipmaster-190/help
p51x вне форума Ответить с цитированием
Старый 17.07.2011, 14:54   #3
JonMagon
Форумчанин
 
Регистрация: 07.04.2011
Сообщений: 152
По умолчанию

ну вот
Цитата:
Applies to

TZipMaster component



Declaration

function Extract: Integer;



Description

Extracts all files specified in the FSpecArgs property from the archive specified by the ZipFileName property.

If you don't specify any FSpecArgs, then all files will be extracted to ExtrBaseDir



The Extract method can also test the integrity of files in an archive.



If you set the ExtrTest option of ExtrOptions, then ALL files in the archive will be tested.

This will cause them to be extracted, but not saved to the hard disk. Their CRC will be verified, and results will go to the SuccessCnt property, and the OnMessage event handler.



Returns 0 on success otherwise an ErrCode
Что это значит?
Я тут не вижу команды на примере Extract, вот все указал туда, а что дальше...?
JonMagon вне форума Ответить с цитированием
Старый 17.07.2011, 15:25   #4
JonMagon
Форумчанин
 
Регистрация: 07.04.2011
Сообщений: 152
По умолчанию

Вообщем поковырял тут нашел вроде что-то
Код:
procedure TForm1.UnzipToText(filename : string);
begin
  if not ZipMaster1.{Unz}Busy then
  begin
    ZipMaster1.ZipFileName:= 'resource.zip';
    if ZipMaster1.Count > 0 then
    begin
      ZipMaster1.Password:='password';
      Stream1 := ZipMaster1.ExtractFileToStream(filename);
      Stream1.Position := 0;      // reset to the beginning of the stream
      Stream1.SaveToFile('dg.txt');
      StaticText1.Caption:='File Size: '+ IntToStr(Stream1.Size);
    end
    else
      StaticText1.Caption:='resource.zip not found or empty';
  end;
end;


//Пример вызова функции
procedure TForm1.BtnPic3Click(Sender: TObject);
begin
  UnzipToText('eye.txt);
end;
Работает, но вот только как использовать эту функцию если не знаешь названия файла?
JonMagon вне форума Ответить с цитированием
Старый 17.07.2011, 15:45   #5
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,833
По умолчанию

Если вы не знаете название файла, что вы будете распаковывать?
p51x вне форума Ответить с цитированием
Старый 17.07.2011, 15:53   #6
JonMagon
Форумчанин
 
Регистрация: 07.04.2011
Сообщений: 152
По умолчанию

всмысле? архив я буду распаковывать
я не знаю имена файлов, который находятся в архиве...
JonMagon вне форума Ответить с цитированием
Старый 17.07.2011, 15:54   #7
JonMagon
Форумчанин
 
Регистрация: 07.04.2011
Сообщений: 152
По умолчанию

Допустим я же не знаю, что там в архиве напихнуто, а человек выбрал другой совсем архив, и как он должен распаковаться?
JonMagon вне форума Ответить с цитированием
Старый 17.07.2011, 20:42   #8
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

ни разу не юзал zipmaster, работаю с zipforce
ну попробуй типа этого
Код:
 UnzipToText('*.*);
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Старый 17.07.2011, 21:10   #9
JonMagon
Форумчанин
 
Регистрация: 07.04.2011
Сообщений: 152
По умолчанию

да, но тогда массив заносится в Stream1, и сохраняется в один не читаемый файл
JonMagon вне форума Ответить с цитированием
Старый 18.07.2011, 07:28   #10
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

тогда делай так
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Распаковка приложения Анатолий88 Софт 6 28.06.2011 20:44
проблема з zipmaster і dbf rokko Общие вопросы Delphi 1 02.03.2011 19:14
Работа с Zipmaster dmitriegorovih Компоненты Delphi 0 09.04.2010 20:50
Пару вопросов о ZipMaster Marsik Компоненты Delphi 0 11.11.2009 17:22