Zlibのふくらませるの例

Question

...

私は利用可能なリソースのすべてを調べて、これを見つけることができました：

procedure ZDecompress(const inBuffer: Pointer; inSize: Integer; 
    out outBuffer: Pointer; out outSize: Integer; outEstimate: Integer); 
var 
    zstream: TZStreamRec; 
    delta: Integer; 
begin 
    FillChar(zstream, SizeOf(TZStreamRec), 0); 

    delta := (inSize + 255) and not 255; 

    if outEstimate = 0 then outSize := delta 
    else outSize := outEstimate; 

    GetMem(outBuffer, outSize); 

    try 
    zstream.next_in := inBuffer; 
    zstream.avail_in := inSize; 
    zstream.next_out := outBuffer; 
    zstream.avail_out := outSize; 

    ZDecompressCheck(InflateInit(zstream)); 

    try 
     while ZDecompressCheck(inflate(zstream, Z_NO_FLUSH)) <> Z_STREAM_END do 
     begin 
     Inc(outSize, delta); 
     ReallocMem(outBuffer, outSize); 

     zstream.next_out := PChar(Integer(outBuffer) + zstream.total_out); 
     zstream.avail_out := delta; 
     end; 
    finally 
     ZDecompressCheck(inflateEnd(zstream)); 
    end; 

    ReallocMem(outBuffer, zstream.total_out); 
    outSize := zstream.total_out; 
    except 
    FreeMem(outBuffer); 
    raise; 
    end; 
end; 

この手順はインフレのためのものとします。任意の提案コード&あなたは同じ目的のためのマスターで???

Answer 1

を使用すると、system.ZLib;

 TWadItem = Class 
       private 


         _UncompressedData:TMemoryStream; 
         _CompressedData:TMemoryStream; 

        public 

        public 

        Procedure Pack; 
        procedure unpack; 
... 

procedure TWadItem.Pack; 
var 
    lz:TZCompressionStream; 
begin 
    if _CompressedData<>nil then exit; 
    if _UnCompressedData=nil then exit; 
    if _Uncompresseddata.Size<1 then exit; 
    _CompressedData:=TMemoryStream.Create; 
    _UnCompressedData.Seek(0,0); 


    lz:=TZCompressionStream.Create(TCompressionLevel.clMax,_CompressedData); 
    lz.CopyFrom(_UnCompressedData,_UnCOmpressedData.Size); 
    LZ.Free; 
    _UnCompressedData.free; 
    _UnCompressedData:=NIL; 

end; 
procedure TWadItem.unpack; 
var 
    lz:TZDeCompressionStream; 
    buff:TBytes; 
begin 
    if _UnCompressedData<>nil then exit; 
    if _CompressedData=nil then exit; 

    _UnCompressedData:=TMemoryStream.Create; 

    lz:=TZDeCompressionStream.Create(_CompressedData); 
    _unCompressedData.CopyFrom(lz,0); 
    LZ.Free; 

    _CompressedData.Seek(0,0); 

    _unCompressedData.Seek(0,0); 
    // _unCompressedData.SaveToFile(ExtractFilePath(ParamStr(0))+'Decompress.bmp'); 
    _unCompressedData.Seek(0,0); 
    //freeandNIl(_CompressedData); 
    _CompressedData.Free; 
    _CompressedData:=NIL; 

end; 
constructor TWadItem.create; 
begin 
     self._UncompressedData:=nil; 
     self._CompressedData:=nil; 
end; 

function TWadItem.CreateBitmap: TBitmap; 
begin 
    result:=TBitmap.Create; 
    self.ReadToBitmap(result); 
end; 

function TWadItem.CurrentlyCompressed: Boolean; 
begin 
     result:=false; 
     if self._CompressedData<>nil then result:=true; 
     if self._UncompressedData<>nil then result:=False; 

end; 

destructor TWadItem.destroy; 
begin 
    try 
     _UncompressedData.Free; 
    except 
      on exception do begin end; 
    end; 
    try 
     _CompressedData.Free; 
    except on exception do begin end; 
    end; 

end; 

procedure TWadItem.AssignFromBitmap(FromBMP: TBitmap); 
begin 
     UnPack; 
     if _UnCompressedData=nil then 
     begin 
     _UnCompressedData:=TMemoryStream.Create; 
     _UnCompressedData.Clear; 
     end; 
     _UncompressedData.SetSize(0); 
     _UnCompressedData.Seek(0,0); 
     FromBMP.SaveToStream(_UnCompressedData); 

end;