1、检查读写文件 *** 作,卖薯碰打开,关闭等
2、检查读 *** 作,读到什么地方去了,存放数据的空间是否出现问题手饥
你没有给出代码,中谈只能这样。
del拆分多个del的函数如下:vari,WantedFragSize,RealToWrite:Integer
//声明两个文件流对象
//InStream为输入源文件流对象,OutStream为输出切割文件流对象
InStream,OutStream:TFileStream
S:Stringbegin
ifOpendialog1.Executethen
begin
SaveDialog1.Title:='输入你要保存的切割文件名'
IfSaveDialog1.Executethen
begin
WantedFragSize:=StrtoInt(Edit1.Text)//定义切割块大小
i:=0
//以只读的方式创建一个输入文件流对象
InStream:=TFileStream.Create(
OpenDialog1.FileName,fmOpenRead)
Try
//如果Instream流的当前指针位置不在末尾,就按照定义的块大小//来读出数据并存成文件
while(InStream.PositionBegin
s:=IntToStr(I)
whileLength(s)s:='.'+s
//生成切割文件的扩乎山展名,用三位数字来作为扩展名,方便组合文件
//如果InStream所剩的块大小小于定义的块大燃顷码小,则将皮哪剩下的块数//据存成文件
IfInStream.Size-InStream.PositionRealToWrite:=InStream.Size-InStream.Position
else
RealToWrite:=WantedFragSize
//创建一个输出文件流对象
OutStream:=TFileStream.Create(SaveDialog1.FileName+s,fmCreate)
try
OutStream.CopyFrom(InStream,RealToWrite)
Inc(i)
Finally
//释放输出文件流对象
OutStream.Free
end
end
Finally
InStream.Free
end
end
end
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)