懂获得文件流的高手请进来拿分

[nuaawenlin]

在使用CopyFile()的时候，我想获得正在拷贝的文件流，以便使用进度条来演示拷贝。就想电脑中要拷贝时一样，不知道使用什么函数，我试过FileString(),可是DELphi不承认，不知道还有没有别的函数。

[5116888]

用TMemoryStream;
var
ams:TMemoryStream;
begin
ams:=TMemoryStream.create();
ams:=LoadFromFile(你的文件名);
end;

[tpmao]

同意楼上！！！同意楼上！！！同意楼上！！！

[xiaoyuer0851]

最好用文件流结合内存流来解决问题！~~~

[李_军]

procedure CopyStream;
var
RStream: TFileStream;
WStream: TFileStream;
sFileName,WFileName: String;
LeftSize,CopySize: Integer;
begin
try
sFileName := frmMain.Edit1.Text;
if Trim(frmMain.Edit1.Text) = '' then
begin
Application.MessageBox('要拷贝的文件不能为空！','提示！',0);
Exit;
end;
WFileName := frmMain.Edit2.Text;
RStream := TFileStream.Create(sFileName,fmOpenRead);
// .........//
if FileExists(frmMain.Edit2.Text) then
begin
WStream := TFileStream.Create(WFileName,fmOpenReadWrite);
WStream.Position := WStream.Size;
RStream.Position := WStream.Size;
LeftSize := RStream.Size-WStream.Size;
CopySize := WStream.Size;
end
else
begin
WStream := TFileStream.Create(WFileName,fmCreate);
RStream.Position := 0;
LeftSize := RStream.Size;
CopySize := 0;
end;
//................//
frmMain.Gauge1.MaxValue := LeftSize div 1024;
frmMain.Gauge1.MinValue := 0;
frmMain.Gauge1.Progress := 0;
while LeftSize>0 do
begin
if LeftSize <1024 then
begin
WStream.CopyFrom(RStream,LeftSize);
CopySize := CopySize+LeftSize;
LeftSize := 0;
Gauge1.Progress := Gauge1.Progress+1;
end
else
begin
WStream.CopyFrom(RStream,1024);
CopySize := CopySize+1024;
LeftSize := LeftSize-1024;
Gauge1.Progress := Gauge1.Progress+1;
end;
RStream.Position := CopySize;
end;
finally
FreeAndNil(RStream);
FreeAndNil(WStream);
end;
end;

[foreveryday007]

同意楼上,最好用文件流來實現,也簡單