| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Упаковка на лету.

puky ©   (2003-07-12 19:04:00) 

Как упаковать файл в памяти?
Пишу так:

    ZDest := NewMemoryStream;
    NewZLibCStream( Zipper, clMax, ZDest, nil );

    ofs.seek( 0, spBegin );
    Stream2Stream( Zipper, ofs, ofs.size );

    zipper.free;

    ofs.seek( 0, spBegin );
    ZDest.seek( 0, spBegin );
    Stream2Stream( ofs, ZDest, ofs.size );

    ZDest.free;

В результате пустой стрим.

---

puky   (2003-07-13 09:40:00) [1]

У меня пример MemoryStream to WriteFileStream работает,
но если заменить WriteFileStream на MemoryStream - перестает работать. Как я понял, это связано с отсутствием метода записи.

---

Vladimir Kladov   (2003-07-12 22:40:00) [2]

Это отрывок рабочего кода, здесь работа идет именно с потоками. По крайней мере, если на месте Mstrm здесь был бы поток, пополнящийся на ходу, то получилось бы как раз сжатие на лету.

function TfmMain.SaveCompressed(const Filename: String; SL: PStrList): Boolean;
var CStrm, FStrm, MStrm: PStream;
   Size: DWORD;
   C: Char;
begin
 FStrm := NewWriteFileStream( Filename );
 if FStrm.Handle = 0 then
 begin
   ShowMessage( 'Can not write to file ' + Filename );
   FStrm.Free;
   Result := FALSE;
   Exit;
 end;
 MStrm := NewMemoryStream;
 SL.SaveToStream( MStrm );
 Size := MStrm.Size;
 C := '*';
 FStrm.Write( C, 1 );
 FStrm.Write( Size, Sizeof( Size ) );
 CStrm := NewCompressionStream( clDefault, FStrm, nil );
 MStrm.Position := 0;
 Stream2Stream( CStrm, MStrm, Size );
 MStrm.Free;
 CStrm.Free;
 FStrm.Free;
 Result := TRUE;
end;


Для декомпрессии так же надо использовать NewDecompressionStream.

---

puky   (2003-07-12 21:58:00) [3]

Может надо добавить в zlib.pas?

procedure PackStream(Var sSrc: PStream);
var
 UnknownPtr :pointer;
 NewSize    :integer;
begin
 sSrc.Position := 0;
 try
   CompressBuf( sSrc.Memory, sSrc.Size, UnknownPtr, NewSize );
   sSrc.size := 0;
   sSrc.Write( UnknownPtr^, NewSize );
   sSrc.Seek( 0, spBegin );
 finally
   FreeMem( UnknownPtr, NewSize );
 end;
end;

procedure UnPackStream(Var sSrc: PStream);
var
 UnknownPtr :pointer;
 NewSize    :integer;
begin
 sSrc.Seek( 0, spBegin );
 try
   DeCompressBuf( sSrc.Memory, sSrc.Size, 0, UnknownPtr, NewSize );
   sSrc.size := 0;
   sSrc.Seek( 0, spBegin );
   sSrc.Write( UnknownPtr^, NewSize );
   sSrc.Seek( 0, spBegin );
 finally
   FreeMem( UnknownPtr, NewSize );
 end;
end;


---

Наверх