a:=eRead(inBuf,Length(inBuf));
      if a<=0 then begin
        Result:=a;
        exit;
      end;
      InBufSize:=a;
      Result:=DecodeTo(buf,ASize);

function TMCPFingro.DecodeTo(var Buf; ASize: integer): integer;
var
  status:integer;
begin
    //* We are now decompressing from inbuf to outbuf */

    FZRec.next_in := @InBuf;

    FZRec.next_out := @Buf;
    FZRec.avail_in := InBufSize;
    FZRec.avail_out:= ASize;

    status := inflate(FZRec, Z_PARTIAL_FLUSH);

    if (status = Z_OK) or (status = Z_STREAM_END) then begin
        //* Successful decompression */
        InBufSize:=FZRec.avail_in;
        if InBufSize>0 then begin
          move(FZRec.next_in^,InBuf,InBufSize);
        end;
        Result := PtrInt(FZRec.next_out) - PtrInt(@Buf);

        if (status = Z_STREAM_END) then begin
            //* Turn off compression too */
            DoneDecoder;
            DecodeMode:=false;
        end;
    end else

    if (status = Z_BUF_ERROR) then begin
        //* Full buffers? Maybe we need more output space.. */
        Result:=0;
    end else begin
        Result:=0;
    end;
end;

procedure TMCPFingro.DoneDecoder;
begin
  if CanTranslate then begin
    inflateEnd(FZRec);
    CanTranslate:=false;
  end;
end;

procedure TMCPFingro.InitDecoder;
begin
  if CanTranslate then exit;
  {$IFNDEF FPC}
  FZRec.zalloc := zcalloc;
  FZRec.zfree := zcfree;
  {$ENDIF}
  CanTranslate:=inflateInit_(FZRec, zlib_version, sizeof(FZRec))>=0;
  
end;