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中實現檔案拷貝的三種方法
1 呼叫api函式 procedure copyfile fromfilename,tofilename string varf1,f2 file begin assignfile f1,fromfilename file 指定源檔名 assignfile f2,tofilename file 指定...
Delphi中檔案拷貝方法集合
一 使用檔案流的方法進行拷貝，當然。同樣的道理，你也可以使用記憶體流等方法進行檔案的拷貝，原理是一樣的。procedure copyfile sourcefilename,targetfilename string var f1,f2 tfilestream begin f1 tfilestream...
Delphi實現木馬自我拷貝方法
木馬實現自我拷貝的原理是程式執行時先檢視自己是不是在特定目錄下,如果是就繼續執行,如果不是就把自己拷貝到特定目錄下,然後執行新程式,繼而退出舊程式.本例即以delphi實現木馬的自我拷貝。首先開啟delphi,新建乙個工程,在視窗的create事件中寫入如下 procedure tform1.for...