VPF::уровень сжатия zlib - Форум программистов

klyaksa

Дата 31.10.2013, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

Не пойму проблему.
cs:=TZCompressionStream.Create(level, dest);
E2250 There is no overloaded version of 'Create' that can be called with these arguments
Хотя есть же
constructor Create(compressionLevel: TCompressionLevel; dest: TStream); overload;

п.с. XE5

Illusion Dolphin

Дата 31.10.2013, 22:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 36
Всего: 63

Дайте больше кода, а именно объявление переменных level и dest
P.S. у меня компилится:

Код



uses
  ..., System.ZLib;

procedure TForm11.FormCreate(Sender: TObject);
var
  cs: TZCompressionStream;
  level: TCompressionLevel;
  dest: TStream;
begin
  cs:=TZCompressionStream.Create(level, dest);
end;

end.

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

klyaksa

Дата 31.10.2013, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

было в ХЕ

Код


type
  TCompress = class
  {* Компрессор потока. На вход подается поток src, на выход dest.
   Сжимаются Size байт из входящего в исходящий поток.}
    private
      cs: TCompressionStream;
    public
      constructor Create(src, dest:TStream; size: LongWord; level: TZCompressionLevel = zcFastest);
      {* Все действие выполняется в конструкторе. После создания, сразу уничтожить
      Пример: TCompress.Create(src, dest, size).Free;}
  end;

...

constructor TCompress.Create;
begin
  cs:=TCompressionStream.Create(dest, level);
  cs.Write(size,SizeOf(size));
  cs.CopyFrom(src,Size);
  cs.Free;
end;

в ХЕ5 стало ругаться на   cs:=TCompressionStream.Create(dest, level);
пробовал менять местами аргументы в TCompressionStream.Create  как в System.ZLib constructor Create(compressionLevel: TCompressionLevel; dest: TStream); overload; все равно ошибка

в хе5 только еще Z добавлена

вот так  только работает, без параметра сжатия

Код


constructor TCompress.Create;
begin
  cs:=TZCompressionStream.Create(dest);
  // cs:=TZCompressionStream.Create(level, dest);
  cs.Write(size,SizeOf(size));
  cs.CopyFrom(src,Size);
  cs.Free;
end;

Это сообщение отредактировал(а) klyaksa - 31.10.2013, 22:18

klyaksa

Дата 31.10.2013, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: нет

Проблема найдена: путаница между TCompressionLevel и TZCompressionLevel
В cs:=TZCompressionStream.Create(level, dest); level: TCompressionLevel, а не TZCompressionLevel. В коде сказано что эта версия устарела.

Есть еще TZCompressionStream.Create(dest: TStream;
compressionLevel: TZCompressionLevel; windowBits: Integer);

Что это за windowBits?

Illusion Dolphin

Дата 31.10.2013, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 36
Всего: 63

windowBits описан тут http://www.zlib.net/zlib_tech.html

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »