利用Delphi轻松编制压缩助理程序

一、问题的提出
Winzip是计算机使用过程中常用的备份和数据交换工具之一。但是在实际使用中，笔者发现Winzip在用于数据交换时有一些不尽如人意的地方，比如:

1.当一个大的压缩包被按卷压缩到一个软盘上时，操作者手中必须有多张软盘才能完成数据包的传递。如果在手上只有一张软盘的情况下出现这种情况，真的没有办法。

2.如果在以卷的形式存储数据的软盘上写入或读取数据时出现错误，则必须重新执行前面的过程。

3.要在另一台机器上读取软盘上的数据，该机器还必须安装Winzip。

那么，有没有一个好的解决方案来避免上述安装软件容易出错且繁琐的过程呢？为此，作者用Delphi5.0编写了一个压缩辅助程序，为数据交换提供了一种辅助方法和手段。

二、压缩助手程序设计的基本思想

通过压缩工具将不同计算机之间要交换的文件压缩转换成自解压格式，通过压缩辅助程序将自解压包按照软盘的容量分割成多个文件存储在硬盘上。这样，被阻塞的计算机之间的大型压缩包的数据交换，就可以通过一个复制命令和一张软盘来实现。然后使用压缩助手程序将上述文件在另一台机器上合并，形成自解压文件格式，避免了重新安装Winzip软件的繁琐过程。通过压缩辅助程序，可以解决上述问题。

三、实施方法

1.编程接口

2.控件属性设置

BorderStyle = bsDialog形式1的；
两个OpenDialog控件的名称设置为OpenDlg，open DLG 1；分别是；
在OpenDlg1的Options属性中设置ofAllowMultiSelect=True，并
将filter属性设置为splitfile (*。SPT) | *。SPT | allfile (*。*) | *.*;
save dialog的名称是SaveDlg；SpinEdit1的值= 1440，MinValue=1440，
MaxValue=1600，increment = 1；“合并”按钮左侧的控件是ListBox，
name ListBox1，Sorted = TrueListBox1的；其他控件:一个TImage控件，
2 Tedit和5 Tbutton，属性省略。