Wie ZLib weitgehend unabhängig von classes.pas ?

[himitsu]

Ist es sdenn wirklich so schwer?

- erstmal alles kopieren > ZLib.pas und die ZLib/*.obj
(und die ZLib.pas vielleicht noch umbennenn)
- dann die unerwünschten Units rauslöschen (SysUtils und Classes)
- und nun alles löschen, welches nicht mehr unterstützt wird, also alles was mit Streams zu tun hat

- TBytes nicht löschen, sondern die Deklaration kopieren
TBytes = array of Byte;
- und die beiden Exceptions auch noch ersetzen
z.B. durch System.Error(reRangeError);

und schon läuft es

[stho]

Ja, leider IST es so schwer
Ich habe mich schon dran versucht alles unnötige raus zu löschen, jedoch erkennt er TFileStream in benutzung der ZLib nicht mehr als einen Nach-Nachfolger von TStream an >___<

[turboPASCAL]

Na und dann schreibt man sich mit Hilfe der Classes.pas eine kleine TStream-Klasse.
Ist eigentlich alles nur eine Geduld und Fleiss Frage aber nicht wirklich schwer zu
realisieren.

[himitsu]

Zitat von stho:

Ja, leider IST es so schwer

Ich sagte doch ... löschen ... eine eigene "kompatible" TStream-Klasse zu schreiben geht halt nicht.

Oder du mußt doch die Classes nutzen.

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