Tiga metode untuk mengimplementasikan penyalinan file di Delphi

Tiga metode untuk mengimplementasikan penyalinan file di Delphi

1． Panggil fungsi API

Prosedur CopyFile(FromFileName,ToFileName:string);

var

f1,f2:berkas;

Mulai

AssignFile(f1,FromFileName); file://menentukan nama file sumber

AssignFile(f2,ToFileName); file://menentukan nama file target

Setel Ulang(f1);

Mencoba

Tulis Ulang(f2);

Mencoba

Jika Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0

Kemudian

Naikkan EinoutError.creat('Kesalahan penyalinan file')

Akhirnya

Tutup File(f2); file://Tutup f2

Akhir;

Akhirnya

Sampai length(sLine)<=0;

Akhir;

Akhir;

2. Aliran file

salinan prosedur;

var f1,f2: tfilestream;

mulai

f1:=Tfilestream.Create(namafilesumber,fmopenread);

mencoba

f2:=Tfilestream.Create(targetfilename,fmopenwrite atau fmcreate);

mencoba

f2.CopyFrom(f1,f1.ukuran);

Akhirnya

f2.Gratis;

akhir;

Akhirnya

f1.Gratis;

akhir;

akhir;

3. Implementasi menggunakan blok memori untuk membaca dan menulis buffer

Pengadaan FileCopy(const Fromfile,Tofile:string);

Var

F1,F2:berkas;

NomorBaca,Nomor tertulis: Kata;

Buf: array [1..2048] dari char;

Mulai

AssignFile(F1,Darifile);

Setel Ulang(F1,1);

AssignFile(F2,Tofile);

Tulis Ulang(F2,1);

Mengulang

BlockRead(F1,buf,sizeof(buf),NumRead);

BlockWrite(F2,buf,Numread,NumWritten);

Hingga (NumRead=0) atau (NumWritten<>NumRead);

TutupFile(F1);

TutupFile(F2);

Akhir;