var
Target:TMemoryStream;
source1:TFileStream;
fileName,filename1:String;
begin
source1 := TFileStream.Create('g:\DELPHI_V81.0.rar', fmOpenRead);
// source1 := TFileStream.Create('e:\a.rar', fmOpenRead); Target:=TMemoryStream.Create;
Target.CopyFrom(source1,source1.Size);
Target.Free;
source1.Free;
上面的代码如果打开的文件大于100M时操作需要很长时间如何实现快速操作?
Target:TMemoryStream;
source1:TFileStream;
fileName,filename1:String;
begin
source1 := TFileStream.Create('g:\DELPHI_V81.0.rar', fmOpenRead);
// source1 := TFileStream.Create('e:\a.rar', fmOpenRead); Target:=TMemoryStream.Create;
Target.CopyFrom(source1,source1.Size);
Target.Free;
source1.Free;
上面的代码如果打开的文件大于100M时操作需要很长时间如何实现快速操作?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货