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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> уровень сжатия 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
PM MAIL   Вверх
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
PM MAIL WWW ICQ   Вверх
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
PM MAIL   Вверх
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?
PM MAIL   Вверх
Illusion Dolphin
Дата 31.10.2013, 23:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



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


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Google
  Дата 23.7.2019, 14:04 (ссылка)  





  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0771 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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