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 :thumb:
werde mir die in den kommenden 1-2 tagen mal anschauen... :pale:
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:

Zitat von stho (Beitrag 1039017)

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.