Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Распаковать/определить тип архива, delphi 
:(
    Опции темы
F1nder
Дата 27.2.2010, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.2.2010

Репутация: нет
Всего: нет
Вообщем есть программа(база данных) написанная на делфи которая берет и распаковывает свои файлы своим же архиватором, мне необходимо распаковать массово все эти файлы (программа распаковывает по одному),  винрар и др.. архиваторы эти архивы не берут, один такой архив прикрепил, если кто сможет помочь пару баксов не пожалею....  

Это сообщение отредактировал(а) F1nder - 28.2.2010, 16:02
PM MAIL   Вверх
F1nder
Дата 27.2.2010, 21:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.2.2010

Репутация: нет
Всего: нет
и непосредственно сам модуль архиватора 

Это сообщение отредактировал(а) F1nder - 28.2.2010, 16:03
PM MAIL   Вверх
AntonN
Дата 27.2.2010, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18
 smile 

Присоединённый файл ( Кол-во скачиваний: 14 )
Присоединённый файл  11.doc 274,50 Kb


--------------------
user posted image
PM MAIL WWW   Вверх
F1nder
Дата 28.2.2010, 11:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.2.2010

Репутация: нет
Всего: нет
AntonN, подскажите теперь пож. чем распаковать более 1000 таких файлов, можно в личку с wmz кошельком
 
PM MAIL   Вверх
AntonN
Дата 28.2.2010, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18
Могу без лички и wmz - файл упакован zlib'ом без какой либо обработки. Грузишь его в Tstream, распаковываешь, сохраняешь обратно на диск. Примеров в сети море, вот на вскидку:
Код

uses SyncObjs,zlib;

procedure DecompressStream(inpStream, outStream: TMemoryStream);
var 
  InpBuf, OutBuf: Pointer; 
  OutBytes, sz: Integer;
begin 
  InpBuf := nil; 
  OutBuf := nil; 
  sz     := inpStream.Size - inpStream.Position; 
  if sz > 0 then  
    try 
      GetMem(InpBuf, sz);
      inpStream.Read(InpBuf^, sz); 
      DecompressBuf(InpBuf, sz, 0, OutBuf, OutBytes); 
      outStream.Write(OutBuf^, OutBytes); 
    finally 
      if InpBuf <> nil then FreeMem(InpBuf); 
      if OutBuf <> nil then FreeMem(OutBuf);
    end;
  outStream.Position := 0;
end;

procedure TGD_UnPack_Memory(var _in:TMemoryStream);
var _out:TMemoryStream;
begin
   _out := TMemoryStream.Create;
   _in.Position:=0;
   DecompressStream(_in, _out);
  _in.Position:=0;
  _out.Position:=0;
  _in.CopyFrom(_out, _out.Size);
  _in.Position:=0;
   _out.Free;
end;



--------------------
user posted image
PM MAIL WWW   Вверх
F1nder
Дата 28.2.2010, 15:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.2.2010

Репутация: нет
Всего: нет
спасибо за помощь, но возник еще вопрос - как эти архивы распаковать с помощью  PHP (стандартный zlib для РНР декомпресить отказывается)
PM MAIL   Вверх
AntonN
Дата 28.2.2010, 15:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18
Написать консольную утилиту на дельфи и запускать в пхп. Или расширение для ПХП написать.
правда работать будет только под виндой


--------------------
user posted image
PM MAIL WWW   Вверх
F1nder
Дата 28.2.2010, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.2.2010

Репутация: нет
Всего: нет
прийдется все перепаковать под РНР так как распаковывать нужно на сервере, еще раз благодарю...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0805 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.