Zlib壓縮算法在Java與Delphi間交互實現

function Cmip_CompressStr(txt: PChar): pchar; stdcall; 
var
zip: TVclZip; 
compr: string; 
data: PChar; 
begin
zip := TVclZip.Create(nil); 
compr := zip.ZLibCompressString(txt); 
data := pchar(Base64EncodeStr(compr)); 
Result := StrNew(data); 
zip.Free
end; 

function Cmip_DeCompressStr(txt: PChar): pchar; stdcall; 
var
zip: TVCLUnZip; 
compr: string; 
data: PChar; 
begin
zip := TVCLUnZip.Create(nil); 
compr := zip.ZLibDecompressString(Base64DecodeStr(txt)); 
data := StrNew(pchar(compr)); 
Result := data; 
zip.Free
end;