Delphi中實現檔案拷貝的三種方法

1．呼叫api函式

procedure copyfile(fromfilename,tofilename:string);

varf1,f2:file;

begin

assignfile(f1,fromfilename); file://指定源檔名

assignfile(f2,tofilename); file://指定目標檔名

reset(f1);

tryrewrite(f2);

tryif lzcopy(tfilerec(f1).handle,tfilerec(f2).handle)<0

then

raise einouterror.creat(檔案複製錯誤)

finally

closefile(f2); file://關閉 f2

end;

finally

until length(sline)<=0;

end;

end; 

2.檔案流

procedure copyfile;

var f1,f2: tfilestream ;

begin

f1:=tfilestream.create(sourcefilename,fmopenread);

tryf2:=tfilestream.create(targetfilename,fmopenwrite or fmcreate);

tryf2.copyfrom(f1,f1.size);

finally

f2.free;

end;

finally

f1.free;

end;

end;

3．利用記憶體塊讀寫buffer實現

procudure filecopy(const fromfile,tofile:string);

varf1,f2:file;

numread,numwritten:word;

buf:array [1..2048] of char;

begin

assignfile(f1,fromfile);

reset(f1,1);

assignfile(f2,tofile);

rewrite(f2,1);

repeat

blockread(f1,buf,sizeof(buf),numread);

blockwrite(f2,buf,numread,numwritten);

until (numread=0) or (numwritten<>numread);

closefile(f1);

closefile(f2);

end;

Delphi中實現檔案拷貝的三種方法

delphi中實現檔案拷貝的三種方法 1 呼叫api函式 procedure copyfile fromfilename,tofilename string varf1,f2 file begin assignfile f1,fromfilename file 指定源檔名 assignfile f2...

Delphi中檔案拷貝方法集合

一 使用檔案流的方法進行拷貝，當然。同樣的道理，你也可以使用記憶體流等方法進行檔案的拷貝，原理是一樣的。procedure copyfile sourcefilename,targetfilename string var f1,f2 tfilestream begin f1 tfilestream...

Delphi實現木馬自我拷貝方法

木馬實現自我拷貝的原理是程式執行時先檢視自己是不是在特定目錄下,如果是就繼續執行,如果不是就把自己拷貝到特定目錄下,然後執行新程式,繼而退出舊程式.本例即以delphi實現木馬的自我拷貝。首先開啟delphi,新建乙個工程,在視窗的create事件中寫入如下 procedure tform1.for...