ProgressBar1.Max:=(SearchRec.Size);
FromFile:=TFileStream.Create(ServerDIR+SearchRec.Name,fmOpenRead or fmShareDenyNone);
try
ToFile:=TFileStream.Create(LocalDIR+SearchRec.Name,fmCreate);
try
ToFile.CopyFrom(FromFile,0);
finally
ToFile.Free;
end
finally
FromFile.Free;
end;
代码如上,我想在拷贝的时候加入一个ProgressBar,应该怎么加?另外copyfrom函数返回的默认最小值是多少?我自己也考虑过了,这样的想法可以吗?(try里面再套Repeat,没试过,不过会不会不太好?)如果可以的话,until后面应该怎么写? 我还很菜,请各位大哥帮个忙!try
Repeat
ToFile.CopyFrom(FromFile,1);
ProgressBar1.StepIt;
Until .............
finally
ToFile.Free;
end;
FromFile:=TFileStream.Create(ServerDIR+SearchRec.Name,fmOpenRead or fmShareDenyNone);
try
ToFile:=TFileStream.Create(LocalDIR+SearchRec.Name,fmCreate);
try
ToFile.CopyFrom(FromFile,0);
finally
ToFile.Free;
end
finally
FromFile.Free;
end;
代码如上,我想在拷贝的时候加入一个ProgressBar,应该怎么加?另外copyfrom函数返回的默认最小值是多少?我自己也考虑过了,这样的想法可以吗?(try里面再套Repeat,没试过,不过会不会不太好?)如果可以的话,until后面应该怎么写? 我还很菜,请各位大哥帮个忙!try
Repeat
ToFile.CopyFrom(FromFile,1);
ProgressBar1.StepIt;
Until .............
finally
ToFile.Free;
end;
解决方案 »
- 取网络日期
- 大家好,有没有浏览数据库中的图片并能在窗口中放大与缩小这样的控件?
- ListView背景图片,Item的ICON不透明?----------------急急急 在线等ing
- BCB程序转换成DELPHI的若干问题?
- 为什么用DELPHI的ADO来查询SYBASE数据库的时候特别慢呀?
- 有想创业的朋友请和我联系
- 什么叫做组件定制开发?
- 当我使用select 子段名 into :参数名 的时候?我给100分。
- 能给48分,我全给了!关于怎么比较两个查询结果集的问题!
- 两个线程,一个关闭窗口,一个打开窗口,怎样才能不出错啊!
- 如何获得rave里打印的总页数
- cs:array of array of string;
Count参数如果是0的话,则表示Source的指针会到0的位置,而拷贝全部的文件
如果Count大于0,则Source会从当前的指针开始,拷贝Count大小的字节给目标。
Repeat
ToFile.CopyFrom(FromFile,1);
ProgressBar1.StepIt;
Until .............
这个方法来实现啊,但Until 后面的语句应该怎么写呢?
ToFile:TFileStream;
FromFile:TFileStream;
CurentPt:integer;
temp:integer;
begin
FromFile:=TFileStream.Create('E:\download\qq2004_skycn(1).exe',fmOpenRead or fmShareDenyNone);
temp:=FromFile.Size div 10000;//分成10000份拷贝,你可以根据需要自己定义
ProgressBar1.Max:=temp;
try
ToFile:=TFileStream.Create('F:\qq2004_skycn(1).exe',fmCreate);
try
CurentPt:=0;
Repeat
if FromFile.Size-CurentPt<=temp then temp:=FromFile.Size-CurentPt;
ToFile.CopyFrom(FromFile,temp);
inc(CurentPt,temp);
ProgressBar1.Position:=ProgressBar1.Position+1;
Until CurentPt>=FromFile.Size;
finally
ToFile.Free;
end
finally
FromFile.Free;
end;