TFileStream- 文件流 复制文件（1）是直接用copyfrom(),方面易懂
在这里我们用一个变量来中转，然后再去保存
var
instrm,outstrm:tfilestream;
i:integer;
p:pchar;
begin
instrm:=tfilestream.Create('c:\my.exe',fmOpenRead);//流打开文件
outstrm:=tfilestream.Create('c:\ok.exe',fmCreate);//流保存的文件
i:=instrm.Size;
instrm.Position:=0;//把流指针放在开始位置,用时要从头读取
getmem(p,i);//分配内存
instrm.readbuffer(p^,i);//这里是P的指针,而不是P
outstrm.Write(p^,i);
freemem(p);
FreeAndNil(instrm);
FreeAndNil(outstrm);
application.MessageBox('复制成功','good',mb_ok);
end;
posted on 2009-01-23 22:02
小叶子 阅读(1131)
评论(0) 编辑 收藏 引用 所属分类:
delphi流的应用