VPF::Зависает DecompressStream из Zlib - Форум программистов

E_v_g

Дата 8.2.2008, 05:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

Использую библиотеку Zlib. При распаковке потока процедурой DecompressStream программа зависает на цикле в этой процедуре.

Код


procedure DecompressStream(aSource, aTarget: TStream); 
var decompStream : TDecompressionStream; 
           nRead : Integer; 
          buffer : array[0..1023] of Char; 
begin 
   decompStream := TDecompressionStream.Create( aSource ); 
  try 
    repeat 
      nRead:=decompStream.Read( buffer, 1024 ); 
      aTarget.Write( buffer, nRead ); 
    Until nRead = 0; 
  finally 
   decompStream.Free; 
  End; 
End;

в программе:

Код


  Image1.Picture.Bitmap.SaveToStream(m);
  m1 := TMemoryStream.Create;
  m.Position := 0;
  ComressStream(m, m1, clDefault);
  m.Free;
  ...........
  m := TMemoryStream.Create;
  m1.Position := 0;
  DecompressStream(m1, m);
  m.Free;
  m1.Free;

Почему так?

Rrader

Дата 8.2.2008, 11:36 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

http://articles.org.ru/cn/showdetail.php?cid=5008

Это сообщение отредактировал(а) Rrader - 8.2.2008, 11:44

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

Let's do this quickly!
Rest in peace, Vit!

E_v_g

Дата 12.2.2008, 02:07 (ссылка)

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

Загрузка ...

Шустрый

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

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

Rrader, спасибо!

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