monazilla

gzip.pasって自作して使ってるけど、どっかにアプできる場所ある?
中身はこんなのだけど
> TGzipDecompressStream = class(TStream)
〜
> public
> constructor Create( dest: TStream );
> function Write(const Buffer; Count: Longint): Longint; override;
> function Read(var Buffer; Count: Longint): Longint; override;
> function Seek(Offset: Longint; Origin: Word): Longint; override;
> destructor Destroy; override;
> property Header: TGZipRecord read FHeader;
> end;

> procedure gzDecompress( in_stream: TStream; var dest:TGzipRecord );
> procedure gzCompress( const src:TGzipRecord; out_stream: TStream );