+ initial implementation

fcl/tests/testz.pp

@@ -0,0 +1,36 @@
+Program testz;
+
+{$linklib z}
+
+uses Classes,zstream;
+
+Var F : TFileStream;
+    C : TCompressionStream;
+    D : TDeCompressionStream;
+    I,J : longint;
+     
+begin
+   Writeln ('Start Writing');
+   F:=TFileStream.Create('ztest.dat',FMCreate); 
+   Writeln ('Created filestream');
+   C:=TCompressionStream.Create(cldefault,F);
+   Writeln ('Created Compressionstream. Writing');
+   For I:=1 to 100000 do
+     C.Write(I,SizeOf(I));
+   writeln ('End of write');
+   C.Free;
+   writeln ('freed CompressionStream');
+   Writeln ('Start Reading');
+   F:=TFileStream.Create('ztest.dat',FMOpenRead); 
+   Writeln ('Created filestream');
+   D:=TDeCompressionStream.Create(F);
+   Writeln ('Created Decompressionstream. Reading...');
+   For I:=1 to 100000 do
+     begin
+     D.Read(J,SizeOf(J));
+     If J<>I then Writeln ('Oh-Oh',J,'doesn''t match',i);
+     end;
+   writeln ('End of Read');
+   D.Free;
+   writeln ('freed CompressionStream');
+end.