VPF::как разархивировать строку - Форум программистов

kometa_triatlon

Дата 10.5.2006, 16:08 (ссылка)

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

Загрузка ...

Опытный

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

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

Встала проблема такая, что не могу разархивировать сжатую отроку.
Пакую я ее так:

Код


function TForm1.ArchiveString(StrToArchive: string): string;
var
  Str_new, s: string;
  Stream_AD, NewStream:  TStringStream;
  CompresStr: TCompressionStream;

begin
    NewStream  := TStringStream.Create(Str_new);
    Stream_AD  := TStringStream.Create(StrToArchive);
    CompresStr := TCompressionStream.Create(clMax, NewStream);
    CompresStr.CopyFrom(Stream_AD, Stream_AD.Size);
    CompresStr.Free;
    s := NewStream.DataString;

    NewStream.free;
    Stream_AD.free;

    Result := s;
end;

А как сделать обратно, не знаю smile

Ковырялся очень долго с TDecompressionStream, но ничего не вышло, постоянно ругается.

Код


function TForm1.DearchiveString(ArchivedStr: string): string;
var
  Str_new, s: string;
  Stream_AD, NewStream:  TStringStream;
  CompresStr: TDecompressionStream;

begin
    NewStream  := TStringStream.Create(Str_new);
    Stream_AD  := TStringStream.Create(ArchivedStr);
    CompresStr := TDecompressionStream.Create(Stream_AD);
  //  CompresStr.CopyFrom(Stream_AD, Stream_AD.Size);

  //  s := NewStream.DataString;
    CompresStr.Read(s, CompresStr.Size);

    CompresStr.Free;
    NewStream.free;
    Stream_AD.free;

    Result := s;
end;

Что здесь неправильно?

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

Всё очень просто: сказки обман,
Солнечный остров скрылся в туман,
Замков воздушных не носит земля,
Кто-то ошибся, ты или я.
--------------
Программирование - самое большое удовольствие, которое вы можете получить, будучи одетым.

Snowy

Дата 10.5.2006, 16:44 (ссылка)

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

Загрузка ...

Эксперт

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

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

Буквально неделю назад вопрос обсуждался.
Необходимо сохранять длину исходной строки.
Не зная этой длины, не распакуешь.

Добавлено @ 16:46
http://forum.vingrad.ru/index.php?showtopic=94375

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