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

一個典型應用中，使用delphi作為客戶端，J2EE服務端，兩者之間用XML作為數據交換，為了提高效率，對XML數據進行壓縮，為此需要找到一種壓縮/解壓算法能夠兩個平台之間交互處理，使用ZLIB算法就是一個不錯的解決方案。

1、JAVA實現

在JDK中，在java.util.zip包中已經內置了ZLIB的實現，示例代碼如下：

1//解壓
2 public String decompressData(String encdata) {
3 try {
4 ByteArrayOutputStream bos = new ByteArrayOutputStream();
5 InflaterOutputStream zos = new InflaterOutputStream(bos);
6 zos.write(convertFromBase64(encdata));
7 zos.close();
8 return new String(bos.toByteArray());
9 } catch (Exception ex) {
10 ex.printStackTrace();
11 return "UNZIP_ERR";
12 }
13 }
14
15 //壓縮
16 public String compressData(String data) {
17 try {
18 ByteArrayOutputStream bos = new ByteArrayOutputStream();
19 DeflaterOutputStream zos = new DeflaterOutputStream(bos);
20 zos.write(data.getBytes());
21 zos.close();
22 return new String(convertToBase64(bos.toByteArray()));
23 } catch (Exception ex) {
24 ex.printStackTrace();
25 return "ZIP_ERR";
26 }
27 }

2、DELPHI中的實現

在DELPHI中，有第3方的控件可以利用來實現壓縮/解壓，這裡我們選擇VCLZIP V3.04，可以從這裡下載http://www.vclzip.net。為了提高通用性，我們可以編寫一個標准的DLL，就可以在Win32平台隨意調用了，關鍵代碼如下：

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;