1 / 1 / 2
Регистрация: 23.01.2013
Сообщений: 113
1

Распаковка lzma

30.04.2017, 22:29. Показов 665. Ответов 0
Метки нет (Все метки)

В практически единственной теме на весь инет процедура распаковки не работает.



Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure LZMAdecompress(InStream, OutStream: TStream; Count: Int64);
const
  BufferSize = 1024*1024;
var
  Decoder: TLZMADecoderStream;
  Buffer: TBytes;
  BytesRead, BytesToRead: Integer;
begin
  Decoder := TLZMADecoderStream.Create(InStream, nil);
  try
    SetLength(Buffer, BufferSize);
    repeat
      BytesToRead := Min(Count, BufferSize);
      BytesRead := Decoder.Read(Buffer, BytesToRead);
      OutStream.Write(Buffer, BytesRead);
      dec(Count, BytesRead);
    until Count=0;
  finally
    Decoder.Free;
  end;
end;


Delphi
1
2
3
4
5
6
7
 cccc:=Tmemorystream.Create;
 ffff:=Tmemorystream.Create;
 
 cccc.LoadFromFile('1.exe.lzma');
 lzmadecompress(cccc,ffff,cccc.Size);
 
 showmessage(inttostr( ffff.Size ) );
Возвращает Размер распакованного = пакованного

Кто может , люди добрые помогите с распаковкой.

(xe8 у меня, если важно )
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2017, 22:29
Ответы с готовыми решениями:

Распаковка строчки
Пожалуйста помогите мне решить эту задачу на Delphi Задача 4"Распаковка строчки" Будем...

Распаковка из exe
Добрый день! Подскажите пожалуйста, как создать программу которая могла бы упаковать 2 любых файла...

Распаковка PCK на Delphi
Добрый день уважаемые программисты. Возникла такое задание, разархивировать файл из игры с...

Распаковка и запаковка псевдоархива
В общем есть псевдоархив, всю структуру я наметил в hex редакторе. Сначала идет хедер архива,...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2017, 22:29

Распаковка exe на delphi
Здравствуйте, есть exe файл, пытался распакавать через universal extractor 1.6.1, не вышло, но она...

Распаковка ресурса | Delphi 7
Нужно чтобы ресурс-файл распаковался в 'Appdata' ExtractRes('EXEFILE', 'arj', '%appdata%' + 'ivan'...

Распаковка Zip в память
Всем привет. Собственно надо шифровать кое какую часть передаваемой инфы,решил я сделать это через...

Создание и распаковка псевдоархивов
Подскажите пожалуйста каким образом можно запаковать несколько файлов в один, и чтобы он имел...

'Упаковка' и 'Распаковка' строки
Нужно составить две функции которые будут упаковывать\распаковывать строку Упаковка...

Sevenzip распаковка архива с паролем
Нужно распаковать архив .zip с паролем. Как это сделать? (sevenzip - компонент)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.