请问谁有文件分割的资料！(100分)

aliangzl · 2002-11-29

谢谢1

影 子 · 2002-12-18

www.playicq.com 搜索"文件分割"

c96301 · 2003-07-11

给我加分，我发给你。

yue_shan · 2003-07-11

一步一步做文件切割器 2001年10月5日     作者：许晋军 XuJinjun@china.com 有时候我们需要把文件分成比较小的多个，方便网络传输或者磁盘拷贝,有的共享软件可以完成这样的功能，但是有大小限制和多种错误。下面我们用Delphi 4.0 来做这样一个软件： 界面设计： 创建主窗体 XCutForm，保存应用程序为 Xcut.dpr 1.选取文件 选取文件就是要弹出一个文件选取对话框给用户一个选择的机会，在Delphi中很容易实现，在Dialog对话框选取项中选取OpenDialog 放到窗体中,名称为OpenDialog. 编辑OpenDialog的Filter 属性，如下图所示： 2.文件切割大小 放置一个PageControl 控件在主窗体中，添加两个 TabSheet ,分别为 Tbs1和Tbs2. 在Tbs1上放一个RadioGroup,名称为rdgCut,编辑RadioGroup控件的属性，如下图所示： 给用户一个选取常用文件大小的列表 在Tbs2上放一个输入框，让用户可以自己设定文件大小： 3.指定切割文件存放位置(目标文件夹) 对于选取一个目标文件夹的对话框，在Delphi中没有直接支持，我们可以启用Com扩展打开Windows的标准打开文件夹对话框。为了方便使用，我们把它封装成一个方便使用的单元BrowseFolder(详见程序清单)，在调用的时候只需要几行代码 Procedure var dlg: TBrowseForFolderDialog; DestPath:string; begin dlg := TBrowseForFolderDialog.Create; dlg.Title := '请选取目标文件夹:'; if dlg.Execute then begin DestPath := dlg.Path; end; dlg.Free; end; 4.开始切割 根据上边步骤的选择，确定了待切割的原始文件，切割大小和存放位置，下边就可以开始了。 首先我们用一个“文件流”以只读方式打开原始文件 var fs:TFileStream; begin fs:=TfileStream.create(“文件名称”,fmOpenRead) …………… 然后我们创建一个“内存流” var ms:TmemoryStream; begin ms:=TmemoryStream.create; …………… 根据文件切割的大小计算字节数，从“文件流”中向“内存流”中拷贝指定的大小，将内存流存储到目标文件夹下，文件扩展名累计创建（方便合并） 分析切割大小： case rdgCut.ItemIndex of 0: filesize := 2000 * 1024; //2000 K 1: filesize := 1440 * 1024; //1440 K 2: filesize := 1200 * 1024; //1200 K 3: filesize := 1000 * 1024; //1000 K 4: filesize := 720 * 1024; //720 K 5: filesize := 500 * 1024; //500 K 6: filesize := 300 * 1024; //300 K 7: filesize := 200 * 1024; //200 K else filesize := 100 * 1024; //100 K 在切割过程中应该显示一个进度，让用户了解进度，放置一个ProgressBar控件到主窗体中，设置属性。在切割开始时根据文件大小设定最大最小值和步长，在切割过程中不断根据实际情况修改当前位置，给用户一个运动的状态。代码如下所示： 过程化显示切割进程 fs := TFileStream.Create(filename, fmopenread); ms := TMemoryStream.Create; FileCount := 1; prbCut.Min := 0; prbCut.Max := (fs.size div filesize) + 1; prbCut.step := 1; while fs.Position < fs.Size - 1 do begin ms.position := 0; ms.size := 0; if fs.size - fs.Position < FileSize then FileSize := fs.size - fs.position; ms.CopyFrom(fs, FileSize); application.ProcessMessages; prbCut.StepIt; ms.SaveToFile(DestPath + '/' + extractfilename(filename) + '.' + inttostr(FileCount)); memCut.lines.add('正在生成第 ' + inttostr(FileCount) + ' 个文件!'); inc(FileCount); end; 5.创建自动合并文件的批处理命令 在 Dos 中有一条命令可以完成文件的合并 Copy file1 /b +file2 /b file3 我们只要生成一个批处理命令文件，就可以在需要的时候完成合并工作，代码如下所示： assignfile(bat, DestPath + '/' + changefileext(ExtractFileName(filename), '.bat')); rewrite(bat); writeln(bat, 'echo off'); writeln(bat,'echo 谢谢使用文件分割 XCut 1.0 .....'); writeln(bat, 'echo .'); writeln(bat,'echo 正在准备生成文件'+extractfilename(filename)); writeln(bat, 'echo .'); writeln(bat,' echo 您可以按 CTRL + Z 键中止,其他键继续!'); writeln(bat,'pause'); for i := 1 to FileCount + 1 do begin if i = 1 then writeln(bat, 'copy ' + extractfilename(FileName) + '.1/b ' + extractfilename(FileName)) else writeln(bat, 'copy ' + extractfilename(FileName) + '/b +' + extractfilename(FileName) + '.' + inttostr(i) + '/b'); end; memCut.lines.add('正在生成合并命令文件: ' + changefileext(extractfilename(FileName), '.bat')); closefile(bat); memCut.lines.add('切割成功完成!'); Application.MessageBox('切割成功完成!', '恭喜', MB_OK + MB_ICONINFORMATION); 6．运行结果显示 本程序在Windows 98 、Windows NT 4.0 和Delphi 4.0 环境调试通过   摘自：计算机世界网

请问谁有文件分割的资料！(100分)

aliangzl

Unregistered / Unconfirmed

影子

Unregistered / Unconfirmed

c96301

Unregistered / Unconfirmed

yue_shan

Unregistered / Unconfirmed

Similar threads

请问谁有文件分割的资料！(100分)

aliangzl

Unregistered / Unconfirmed

影 子

Unregistered / Unconfirmed

c96301

Unregistered / Unconfirmed

yue_shan

Unregistered / Unconfirmed

Similar threads

影子