Wie ZLib weitgehend unabhängig von classes.pas ?

[turboPASCAL]

Ich habe mal in die ZLib geguckt, eigentlich braucht es die Streams nicht.
Man kann doch über Pointer die Daten Zuweisen.

Delphi-Quellcode:

unit
  uZippozip;

interface

const
  ZIPDLL = 'Zippozip.dll';

type
  TZAlloc    = function (opaque: Pointer; items, size: Integer): Pointer;
  TZFree     = procedure (opaque, block: Pointer);
  TOnProcess = procedure(percent: integer); stdcall;

  TZCompressionLevel = (
    zcNone,
    zcFastest,
    zcDefault,
    zcMax,
    zcLevel1,
    zcLevel2,
    zcLevel3,
    zcLevel4,
    zcLevel5,
    zcLevel6,
    zcLevel7,
    zcLevel8,
    zcLevel9
  );

procedure ZCompress(const inBuffer: Pointer; inSize: Integer;
  out outBuffer: Pointer; out outSize: Integer;
  level: TZCompressionLevel = zcDefault); stdcall;
  external ZIPDLL;  

procedure ZDecompress(const inBuffer: Pointer; inSize: Integer;
  out outBuffer: Pointer; out outSize: Integer; outEstimate: Integer = 0);
  stdcall; external ZIPDLL;

implementation

end.