?? 示例.txt
字號:
功能:
(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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -