我在網路上找到一篇把檔案壓縮成ZIP檔的函數...

http://www.xuedelphi.cn/wenzhang/yytg/2009/01/200901052759.htm


[code delphi]
implementation

{$R *.dfm}

uses Zlib;

procedure Zip(var fs: TMemoryStream);
var
cs: TCompressionStream;
ms: TMemoryStream;
num: Integer;
begin
if not(Assigned(fs) and (fs.Size>0)) then Exit;
num := fs.Size;
ms := TMemoryStream.Create;
cs := TCompressionStream.Create(clMax, ms);
try
fs.SaveToStream(cs);
cs.Free;
//ms.Position := 0;
fs.Clear;
fs.WriteBuffer(num, sizeof(num));
fs.CopyFrom(ms, 0);
finally
ms.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
ms.LoadFromFile('C:\25K.doc');
Zip(ms);
ms.SaveToFile('C:\25K.ZIP');
end;
[/code]

照著方法做檔案的確是有變小...
可是回到資料夾，檔案DoubleClick
就會出現「這個壓縮檔不是未知的格式就是損壞」的錯誤訊息

請問這是什麼原因？或是有什麼其他方法也能壓縮的...

我程式的目的主要是要把資料夾底下的檔案壓縮成zip檔之後，
再把zip檔BASE64之後的字串夾帶到xml的tag裡..

Zlib压缩算法与我们常用的Zip算法不同，所以用WinZip或WinRAR等软件是无法打开的。

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------