VPF::Проблема с ZLib - Форум программистов

Ak47black

Дата 28.4.2007, 13:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Вообшем гдето это уже было, но мне мой код удобней и всетаки мне интересно узнать где у меня ошибка,

Код


unit CompressUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ZLib, ZlibConst;

function ComressStreamIn(TextIn: String): String;
function DecomressStreamIn(TextIn: String): String;  

implementation

function ComressStreamIn(TextIn: String): String;
var
  comprStream : TCompressionStream;
  aSource, aTarget : TStringStream;
begin
  aSource:= TStringStream.Create(TextIn);
  aTarget:= TStringStream.Create('');
  comprStream := TCompressionStream.Create( clMax, aTarget );

  try
    comprStream.CopyFrom( aSource, aSource.Size );
    comprStream.CompressionRate;
  finally
    comprStream.Free;
    aSource.Free;
    Result:= aTarget.DataString;
    aTarget.Free;
  end;
end;

function DecomressStreamIn(TextIn: String): String;
var
  decompStream : TDecompressionStream;
  nRead : Integer;
  buffer : array[0..1023] of Char;
  aSource, aTarget : TStringStream;
begin
  aSource:= TStringStream.Create(TextIn);
  aTarget:= TStringStream.Create('');
  decompStream := TDecompressionStream.Create( aSource );
  try
    repeat
      nRead:=decompStream.Read( buffer, 1024 );
      aTarget.Write( buffer, nRead );
    until nRead = 0;
   finally
     decompStream.Free;
     aSource.Free;
     Result:= aTarget.DataString;
     aTarget.Free;
   end;
end;

Вродебы все нормально, но где ошибка?
Что-бы некопировать приклепляю сразу весь проект>

Присоединённый файл ( Кол-во скачиваний: 5 )

Zcompress.rar 10,96 Kb

Snowy

Дата 28.4.2007, 13:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Цитата(Ak47black @ 28.4.2007, 13:24

)

Вродебы все нормально, но где ошибка?

Да практически везде.

Ak47black

Дата 28.4.2007, 13:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Ну например где ?

MetalFan

Дата 28.4.2007, 14:00 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

стринг - это стринг...
а бинарные данные после сжатия - уже не стринг ;) "не, не айс!"

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

There are always someone smarter than you...

Ak47black

Дата 28.4.2007, 14:09 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

MetalFan, вообшето да. сори туплю.

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