zlib/zlibex

Ikke et eksempel.

Men for at det kan give et realistisk billede skal du nok
teste det på lidt flere bytes.

det er bare for at vide hvordan man bruger zlib...

1.1.14 skal lige ændres til 1.1.4

Har du set:
  http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=18987
  http://homepages.borland.com/efg2lab/Library/UseNet/2000/0107a.txt
hvor andre har brugt det ?

Jeg har allertiders delphi komponent incl. source til at lave .Zip filer med, og til at un-zippe med, hvis det skulle være noget. Vi bruger det selv meget i vores udvikling, til backup funktioner osv. ??

bak-inn -> jeg vil ikke lave zip filer...

arne_v -> Jeg kan ikke rigtig få fat i koden, siden virker vist ikke

Ok... nu sætter jeg kode til den medfølgene kode op på de 30

Jeg kan godt se linkene og udfra dem kunne jeg lave følgende lilel eksempel
som kører i Delphi6:

program Simple;

{$APPTYPE CONSOLE}

uses
  SysUtils, Zlib;

var
  s1,s2,s3 : string;
  l1,l2,l3 : integer;

begin
  s1 := 'abc123abc123abc123';
  l1 := length(s1);
  CompressBuf(pointer(s1),l1,pointer(s2),l2);
  DecompressBuf(pointer(s2),l2,0,pointer(s3),l3);
  s3 := copy(s3,0,l3);
  writeln(s1,':',l1,'-',l2,'-',l3,':',s3);
  readln;
end.

Betragt det som er svar.