日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

運用Delphi簡單編制壓縮助理程序

運用Delphi簡單編制壓縮助理程序

更新時間:2022-05-03 文章作者:未知 信息來源:網絡 閱讀次數:

一、問題的提出
Winzip是電腦使用過程中,備份和數據交換的常用工具之一。然而,在實際使用過程中,筆者發現Winzip在用來進行數據交換操作時有一些不盡人意的地方, 如:
1. 當將一個大的壓縮包分卷壓縮到軟盤上時,操作者手頭必須有多張軟盤才能完成數據包的轉存,這種情況如果發生在手頭只有一張軟盤的情況下,可真的沒辦法。
2. 如果分卷存儲數據軟盤中的某張軟盤在寫入或讀出數據時發生錯誤,則上一過程必須重做
3. 要在其它機器上讀出軟盤上的數據,則該機器也必須要求安裝了Winzip。
那么,有沒有好的解決辦法,避免上述容易出錯和煩瑣安裝軟件的過程呢?因此,筆者用Delphi5.0編制了壓縮助理程序,以為數據交換提供一種輔助方法和手段。

二、壓縮助理程序設計的基本思路
通過壓縮工具將要在不同計算機間交換的文件壓縮并轉換成自解壓格式,通過壓縮助理程序將該自解壓包以軟盤容量為單位分割成多個存儲在硬盤上的文件,這樣,通過Copy命令和一張軟盤就能夠實現對大的壓縮包在不通的計算機間交換數據;再利用壓縮助理程序在另一臺機器上將上述多個文件合并,成為自解壓文件格式,避免了再安裝Winzip軟件的繁瑣過程。通過壓縮助理程序,上述問題即可迎刃而解。

三、實現方法
1. 程序設計界面

2. 控件屬性設置
Form1的BorderStyle=bsDialog;兩個OpenDialog控件名稱分別設置為OpenDlg, OpenDlg1;設置OpenDlg1的Options屬性中的ofAllowMultiSelect=True,Filter屬性設置為Split File(*.spt)|*.spt|All File(*.*)|*.*;SaveDialog的名稱為SaveDlg;SpinEdit1的Value=1440,MinValue=1440,MaxValue=1600, Increment=1;在“合并”按鈕左邊的控件是ListBox,名稱ListBox1,ListBox1的Sorted=True;其它控件:一個TImage控件,2個Tedit和5個Tbutton,其屬性從略。
3. 壓縮助理程序的實現
從上到下五個命令按鈕的代碼依次如下:
//選擇待分割的文件
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDlg.Execute then
begin
Edit1.Text := OpenDlg.FileName;
end;
end;

//設置分割后的切片文件的存儲位置
//SelectDirectory函數聲明在FileCtrl單元中
procedure TForm1.Button2Click(Sender: TObject);
var
Dir: string;
begin
if SelectDirectory('選擇存儲目錄:', '', Dir) then
begin
Edit2.Text := Dir + '\';
end;
end;

//分割文件為切片文件,自動命名
procedure TForm1.Button3Click(Sender: TObject);
var
I, K, Rest, Len: Integer;
AF, BF: TFileStream; //文件流對象
Fn: string; //文件名
Buf : Integer; //單碟容量
begin
if (Edit1.Text = '') or (Edit2.Text = '') then
begin
Beep;
Exit;
end;
//單蝶容量計算為字節數
buf := SpinEdit1.Value * 1024;
I := 1;
try
Af := TFileStream.Create(Edit1.Text, fmOpenRead);
K := Af.Size div Buf;
Rest := Af.Size - K * Buf;
For I := 1 to K do
begin
Fn := Edit2.Text + IntToStr(I) + '.spt'; //文件名
Bf := TFileStream.Create(Fn, fmCreate);
Bf.CopyFrom(Af, Buf);
Bf.Free;
end;
if Rest > 0 then
begin
Fn := Edit2.Text + IntToStr(I) + '.spt';
Bf := TFileStream.Create(Fn, fmCreate);
Bf.CopyFrom(Af, Rest);
Bf.Free;
end;
finally
AF.Free;
end;
end;

//將分割后的切片文件裝入到ListBox1中
procedure TForm1.Button4Click(Sender: TObject);
var
I : Integer;
begin
if OpenDlg1.Execute then
For I := 0 to OpenDlg1.Files.Count - 1 do
ListBox1.Items.Add(OpenDlg1.files[I]);
end;

//合并切片文件并保存合并結果
procedure TForm1.Button5Click(Sender: TObject);
var
Af, Bf: TFileStream; //文件流對象
Fn, Ft: string; //文件名
I : Integer;
begin
if ListBox1.Items.Count = 0 then
begin
Beep;
Exit;
end;
if SaveDlg.Execute then
begin
Fn := SaveDlg.FileName;
try
Af := TFileStream.Create(Fn, fmCreate);
For I := 0 to ListBox1.Items.Count -1 do
begin
Ft := ListBox1.Items[I];
Bf := TFileStream.Create(Ft, fmOpenRead);
Af.CopyFrom(Bf, Bf.Size);
Bf.Free;
end;
finally
Af.Free;
end;
end;
end;
上述代碼在Windows98,Delphi5.0下調試通過。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 女网址www女高清中国 | 国产成人影院一区二区 | 日韩精品欧美国产精品亚 | 久久成人在线 | 成人久久影院 | 精品一区二区三区三区 | 一级一级18女人毛片 | 久久亚洲精品成人综合 | 曰批全过程免费观看视频 | 三级国产三级在线 | 日韩去日本高清在线 | 色多网站免费视频 | 日本久久综合视频 | 欧美麻豆久久久久久中文 | 精品国精品自拍自在线 | 天堂热| 99热成人精品热久久669 | 成人在线看片 | a国产成人免费视频 | 国内9l视频自拍 | 成人免费在线网站 | 国产足控福利视频入口 | 国产欧美日韩综合 | 在线视频综合视频免费观看 | 日韩 国产 | 成人在线免费视频观看 | 摸逼综合网 | 99re在线视频观看 | 国产步兵社区视频在线观看 | 99久久精品免费看国产高清 | 97国产在线公开免费观看 | 一级毛片免费播放 | 四虎影视国产在线观看精品 | 亚洲伊人色综合影院 | 国产综合色在线视频 | 国产精品亚洲四区在线观看 | 人人澡人人模人人添 | 国产日韩一区 | 国产视频在线一区 | 亚洲视频免费在线播放 | 亚洲成综合 |