[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