要算法吗?不就是分割一下文件吗?
解决方案 »
- delphi怎么把begin..end换成{}?
- 500分求关于DLL中,如何动态加载JPEG图片的问题?
- 求 Crystal report XI VCL for delphi7
- 如何得到一个文件的大小、创建时间、类型的属性??
- 畅所欲言!100分!
- 为一个程序员的母亲申冤
- 请问各位一个我问过很多次,但没人完整回答的问题
- 哪里有完整的WIN32API下载
- :我想在WIN2000下,写一个ISAPI程序,目的是使用WORD的COM接口将DOC文件另存为TXT.可是COM在ISAPI中无法使用.请赐教
- 大虾救命?为什么?为什么‘添加’不起作用?
- 如何把InterBase数据库导出来?
- 三个菜问题.
NumRead, NumWritten,fcount: Integer;
Buf: array[1..2048] of Char;
begin
fcount:=0;
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then { Display Save dialog box}
begin
AssignFile(ToF, SaveDialog1.FileName); { Open output file } Rewrite(ToF, 1); { Record size = 1 }
Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
+ ' bytes...');
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
fcount:=fcount+numread;
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;
当fcount到一定的字节,再写到别的文件.