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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> I7zOutArchive (sevenzip.pas) и работа с потоковыми, и работа с потоковыми данными 
V
    Опции темы
lollollollol
Дата 12.3.2013, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Доброго времени суток!

У меня такая проблема:

Код

var
...
OutArchive: I7zOutArchive;
begin
...
        OutArchive := CreateOutArchive(CLSID_CFormatZip);
        try
          Stream.Position:=0;
          Stream.SetMemPointer(Pointer(@GenA.files),size);
          Stream.SetPointer(Pointer(@GenA.files),size);
OutArchive.AddStream(Stream[id],soReference,faReadOnly,DateTimeToFileTime(Now),DateTimeToFileTime(Now),name,False,True);

          SetCompressionLevel(OutArchive, 4);
          SetCompressionMethod(OutArchive, mzDeflate);
          Stream.Position:=0;
          Stream.SetMemPointer(Pointer(@GenA.files),size);
          Stream.SetPointer(Pointer(@GenA.files),size);
          OutArchive.SaveToStream(Stream);
          size:=Stream.GetSize;
          OutArchive.SaveToFile('C:\12225.zip');

Мне нужно запаковать в зип арзив один файл, который находится в масиве байт (array of byte)
Вначале я устанавливаю указать Tstream на начало массива в котором содержится файл,
затем пытаюсь загрузить поток в OutArchive, запаковать, и сохоанить для проверки результата.

Но проблема в том что такой вариант пакует только первые 170-180 байт.
Если загрузить файл, (OutArchive.AddFile) то всё работает отлично.


Помогите запаковать файл из потока, не загружая его с диска


Спасибо

Добавлено через 10 минут и 33 секунды
Попытался загрузить файл в поток Stream.LoadFromFile, но проблема осталась прежней. 
Вероятно я неправильно пытаюсь передать потоковые данные. Смущает что нигде не требуется указать длину данных. 
PM MAIL   Вверх
lollollollol
Дата 12.3.2013, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Или может быть возможно загрузить пустой файл, а потом записать новый буфер, и указать нвый размер? я не могу найти подходящих методов
PM MAIL   Вверх
lollollollol
Дата 12.3.2013, 18:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Кто работал, прошу помочь.

Моя цель: Имеется массив байт-это файл.
Данный файл нужно запаковать в архив. В архиве этот файл должен быть один, с заданым мною именем. Но сам архив должен быть тоже в виде Tstream или простого массива байт.

То есть запаковать файл который находится в памяти, и оставить архив в памяти, без сохранения на диск.

Приведённый выше код сделал бы это, еслибы получилось агрузить файл не с диска, и из потока.

Если кто может помочь, очень прошу.


Для решения возможны варианты сторонных dll, ругих модулей или компонентов, но главное условие - работа без сохранения на диск, возможность запаковать один файл с указаным именем в архив.
PM MAIL   Вверх
Чучмек
Дата 13.3.2013, 09:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 14
Всего: 41
И в чем проблема?
Код

type
 TMMStream=class(TCustomMemoryStream);
var
 i7zOut:I7zOutArchive;
 ms:TMMStream;
begin
ms:=TMMStream.Create;
ms.SetPointer(m,length(m)*sizeOf(m[0])); 
i7zOut:=CreateOutArchive(CLSID_CFormatZip);
//i7zOut.SetPropertie
i7zOut.AddStream(ms,...);
i7zOut.SaveToFile(filename);
ms.free;
end;





--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
lollollollol
Дата 13.3.2013, 15:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Поменял тип TMemoryStream на TCustomMemoryStream, теперь архив создаётся, записыватся в файл.
А вот при попытке сделать OutArchive.SaveToStream(Stream[id]);  получаю ошибку.
PM MAIL   Вверх
lollollollol
Дата 13.3.2013, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Если создать две разные перемнные, то всё ок. Но я хотел сохранить снова в ту, с которой брал. Чтобы не создавать много копий в памяти.

И ещё момент, компилятор ругается
[Warning] Unit1.pas(2161): Constructing instance of 'TMMStream' containing abstract method 'TStream.Write'


Это сообщение отредактировал(а) lollollollol - 13.3.2013, 15:47
PM MAIL   Вверх
Чучмек
Дата 13.3.2013, 17:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 14
Всего: 41
Цитата(lollollollol @  13.3.2013,  15:23 Найти цитируемый пост)
А вот при попытке сделать OutArchive.SaveToStream(Stream[id]);  получаю ошибку. 

Цитата(lollollollol @  13.3.2013,  15:39 Найти цитируемый пост)
[Warning] Unit1.pas(2161): Constructing instance of 'TMMStream' containing abstract method 'TStream.Write'

Сопоставь одно с другим.



--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Чучмек
Дата 13.3.2013, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 14
Всего: 41
Переопредели в TMMStream абстрактный метод  Write
Код

type
 TMMStream=class(TCustomMemoryStream)
   function Write(const Buffer; Count: Longint): Longint; override;
  end;
...
{ TMMStream }

function TMMStream.Write(const Buffer; Count: Integer): Longint;
begin
move(buffer,(PAnsiChar(Memory)+Position)^,count);
Position:=Position+count;
result:=count;
end;

Только учти, что если сжатый файл больше несжатого (Position+count>length(m)*sizeOf(m[0]) получишь AV



--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
lollollollol
Дата 13.3.2013, 19:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Stream[id] Эт просто у меня массив переменных, array of TMemoryStream

В каких случаях сжатый может быть больше несжатого? Сейчас он стабильно меньше на 15-30%


Спасибо за помощь, всё получилось!  хотел поставить тебе плюс, но нельзя. Если кто поставит за меня, буду благодарен:)

Это сообщение отредактировал(а) lollollollol - 13.3.2013, 19:38
PM MAIL   Вверх
Чучмек
Дата 13.3.2013, 19:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 14
Всего: 41
1. Сжимается маленький файл 
2. Файл содержит уже сжатую информацию. mp3 например.

Добавлено через 3 минуты и 32 секунды
Заполни массив случайными числами.


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
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.0508 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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