[M.A.D.M.A.N.]

Вот этот пост читай http://www.delphisources.ru/forum/sh...7&postcount=13
Я тебе пример понаписал в самом низу.

[DrGeorg]

Сообщение от M.A.D.M.A.N.

Я дописал, глянь мой пост. У меня вроде работает нормально, по крайней мере вход до сжатия совпадает с выходом после распаковки.
Если из памяти, то надо как-то так передавать параметр: integer(ptr^).

А что хранится в переменных source, dest?

[M.A.D.M.A.N.]

Адреса так передаются.

[DrGeorg]

Сообщение от M.A.D.M.A.N.

Код:

lzocompress(foo[0], bar[0], 11)

Выдает ошибку: Too many actual parameters

[M.A.D.M.A.N.]

Мой inc файл подруби, у меня все норм работает.

[DrGeorg]

Сообщение от M.A.D.M.A.N.

Код:

lzodecompress(bar[0], foo[0]);

Ну у меня тоже все работает, тока как туда MyFile.lzo подставить?

[M.A.D.M.A.N.]

Код:

var
  ms, ms2: TMemoryStream;
  zs: TCompressionStream;
begin
  ms :=  TMemoryStream.Create;
  ms2 := TMemoryStream.Create;
//  zs := TCompressionStream.Create(ms2, zcMax);
  try
    ms.LoadFromFile('чото-там');
//    zs.CopyFrom(ms, ms.Size);
    ms2.Size := 1024*1024*10;

    ms2.Size := lzocompress(Byte(ms.Memory^), Byte(ms2.Memory^), ms.Size);
    ms2.SaveToFile('C:\qqq.lz');
  finally
    ms2.Free;
    ms.Free;
  end;

Думаю дальше разберешься как что делать.

кстати, zLib уделывает этот алгоритм по степени сжатия, но проигрывает в скорости.

LZO - 634 КБ (649 747 байт)
zLib - 448 КБ (458 752 байт)

[DrGeorg]

Спасибо, конечно, но меня больше lzodecompress интерресует!..
Кстат у LZO тоже есть степени сжатия, но они прямо пропорциональны скорости...

[M.A.D.M.A.N.]

Ну ДЕкомпресс аналогично вызывается. Я надеюсь ты сам сможешь написать, тем более, что примеров накидал тебе более чем достаточно.

З.Ы. В этой реализации не вижу где настраивается степень сжатия.

[DrGeorg]

Сообщение от M.A.D.M.A.N.

З.Ы. В этой реализации не вижу где настраивается степень сжатия.

http://yadi.sk/d/trb9HmQC4MM2m
Там в консоли надо ввести параметр:
zlop -7 или -8 или -9 "Путь\Имя Файла.расш"
или
zlop "Путь\Имя Файла.расш"
Поймешь разницу!
Да кстат, а откуда взялся класс TCompressionStream?
Я просто профан в области создания классов

Код:

var
  ms, ms2: TMemoryStream;
begin
  ms :=  TMemoryStream.Create;
  ms2 := TMemoryStream.Create;
  try
    ms.LoadFromFile('C:\qqq.lzo');
    ms2.Size := 1024*1024*10;
 
    ms2.Size := lzodecompress(Byte(ms.Memory^), Byte(ms2.Memory^), ms.Size);
    ms2.SaveToFile('C:\qqq.txt');
  finally
    ms2.Free;
    ms.Free;
  end;

Ошибка: пишет - Too many actual parameters

[M.A.D.M.A.N.]

Потому, что ф-я принимает 2 параметра. Странно, что ты не заметил.

[DrGeorg]

Да я и так пытался:

Код:

var
  ms, ms2: TMemoryStream;
begin
  ms :=  TMemoryStream.Create;
  ms2 := TMemoryStream.Create;
  try
    ms.LoadFromFile('C:\qqq.lzo');
    ms2.Size := 1024*1024*10;
  
    ms2.Size := lzodecompress(Byte(ms.Memory^), Byte(ms2.Memory^));
    ms2.SaveToFile('C:\qqq.txt');
  finally
    ms2.Free;
    ms.Free;
  end;

Но компилит...
Правда ошибка: Access violation at address

http://forum.sources.ru/index.php?showtopic=38911

[DrGeorg]

Сообщение от Alegun

З.Ы.
Это основной алгоритм сжатия архиватора 7Zip.

Тока почему-то 7-Zip не берет архив LZO!!!

[Alegun]

Оффтоп:

Сообщение от DrGeorg

Тока почему-то 7-Zip не берет архив LZO...

потому как LZO и 7Zip слегка различаются заголовками

LZO HEX: 4C 5A 4F 00 0D 0A 1A
ASCII: Й L Z O .

7Zip HEX: 37 7A BC AF 27 1C 1A
ASCII: 7 z пг п

пг - псевдографика

если его заменить, то откроет

[M.A.D.M.A.N.]

Потому, что в 7зип используется LZMA. LZMA - это разновидность LZ алгоритма (т.е. алгоритм LZ лежит в основе).