Wie ZLib weitgehend unabhängig von classes.pas ?

[stho]

naja, die classes will ich ja nicht nutzen...
danke für die .pas datei von dir die du angehangen hast
werde mir die in den kommenden 1-2 tagen mal anschauen...
aber so auf den ersten blick sehen einige funktionen redefiniert aus.
Naja, aber vielen dank schonmal dafür...
sobald ich eine passende lösung gefunden habe (vielleicht doch eine kleine TStream-klasse?) werde ich sie hier posten...

[himitsu]

Zitat von stho:

vielleicht doch eine kleine TStream-klasse?

Theoretisch, von den Methoden und Feldern her, könnte man schon etwas gleich aufbauen.

Aber es wird und kann niemals kompatibel zu anderen TStream-Nachfahren sein, da es laut RTTI immer einen unterschiedlichen Ursprung haben wird.

[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.