功能：
　　（1）程序通過計算機串行口（COM）進行文件傳輸；
　　（2）傳輸前會先進行文件的壓縮，接收后會解壓，采用一個基于ZLib的組件；
　　（3）因為原來是為朋友特制的，所以在設置中的最高速率只有9600，你可以自己增加，然后稍微修改代碼即刻，同時，你需要去掉尋找本機Socket Server的代碼，因為這個是定制時候需要的，如果你是一個通用的，就不需要；
　　（4）采用自定義協議，確保數據通訊的正確性和完整性；
　　（5）采用控件，有Raize3.10和TComDrv32（德國人寫的一個控件，只是其中有一個BUG，已經被我修正），上傳的文件中只包括了TComDrv32，Raize請大家自己下載；
　　（6）上傳代碼主要為研究用，歡迎大家改進，但是請發給我更新代碼到flyit@126.com，謝謝。

下面貼出一小段使用這個壓縮單元的例子，很簡單、很方便的
var
InputStream, OutputStream: TFileStream;
DeCompressionStream: TZDecompressionStream;
CompressionStream: TZCompressionStream;
InputFileName, OutputFileName: string;
begin
//compress
InputFileName := ‘c:image.png‘;
OutputFilename := ‘c:image.png.bzip‘;
InputStream := TFileStream.Create(InputFileName, fmOpenRead);
OutputStream := TFileStream.Create(OutputFileName, fmCreate);
CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest);
CompressionStream.CopyFrom(InputStream, InputStream.Size);
CompressionStream.Free; //只有在這條語句執行完畢后，OutputStream中流才是被壓縮過的
OutputStream.Free;
InputStream.Free;

// decompress
InputFileName := ‘c:image.png.bzip‘;
OutputFilename := ‘c:image2.png‘; //rename to original into final code
InputStream := TFileStream.Create(InputFileName, fmOpenRead);
OutputStream := TFileStream.Create(OutputFileName, fmCreate);
DecompressionStream := TZDecompressionStream.Create(InputStream);
OutputStream.CopyFrom(DecompressionStream, 0);
DecompressionStream.Free;
OutputStream.Free;
InputStream.Free;
end;