求文件分割源码（delphi）有关方面的比较详细的原理也可（有帮助的+50分）

[RaulWhite]

求文件分割源码（delphi）有关方面的比较详细的原理也可（有帮助的+50分）最好有相应的函数。

[RaulWhite]

还有更详细的请给我说！

[初心2]

收藏

[严黎斌]

按字节分割，还是按文本文件的行分割？

[timgreen]

楼主　具体一些

[RaulWhite]

用字节吧，比如分割影音文件可程序等，
这是一个实习作品能实现功能就行了，
如查能有相应的文档资料我可心再加50分！！！！

[RaulWhite]

主要是分割 影音文件/程序等>u盘容量的

[IORILI]

有时候我们需要把文件分成比较小的多个，方便网络传输或者磁盘拷贝,有的共享软件可以完成这样的功能，但是有大小限制和多

种错误。下面我们用Delphi来做这样一个软件：


界面设计：




创建主窗体 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．运行结果显示

[RaulWhite]

多谢楼上的，我去检查一下，一定会相应的给分，一般会给50分
如果你有相应的详细的文件操作例子或函数，我还会有报酬

[jog81]

我觉得用文件流读取文件，以一定的大小读取最好。
我记得有这样的代码，如果你需要，我可以帮你找找！
[e-mail]

[ly_liuyang]

采用文件流读取

[lovedata]

Not too hard, here's something that should do it:

inf: file;
outf: file;
size: longint;
outsize: longint;
amt: word;
amtRead: word;

assignfile (inf, 'input file');
reset (inf, 1);
size := fileSize (inf);
repeat
showMessage (enter floppy in "A") { or "B" or allow them to specify }
assignFile (outf, 'A:output file');
rewrite (outf, 1);
outsize := diskFree (1); { or 2 if it's the "B" drive }
while (outsize > 0) and (size > 0) do begin
amt := sizeof(buf);
if amt > outsize then amt := outsize;
blockRead (inf, buf, amt, amtRead);
blockWrite (outf, buf, amtRead);
dec (outSize, amtRead);
dec (size, amtRead);
end;
closeFile (outf);
until size <= 0;
closeFile (inf);

This is OTTOMH, syntax hasn't been checked, etc. You may want to add other
code to let the user specify the "A" or "B" drive, and/or a naming scheme so
that if disks get out of order it's trapped.

Re-assembling the files is similar: open outf on the hard disk, ask the user
for the first floppy, blockRead/blockWrite from the floppy to the hard disk,
then ask the user for the next floppy, etc. until all floppies are read.

[bluecyclone]

标记！

[RaulWhite]

谢谢各位！