Delphi에서 파일 복사를 구현하는 세 가지 방법

Delphi에서 파일 복사를 구현하는 세 가지 방법

1． API 함수 호출

PRocedure CopyFile(FromFileName,ToFileName:string);

var

f1,f2:파일;

시작하다

AssignFile(f1,FromFileName); file://소스 파일 이름을 지정합니다.

AssignFile(f2,ToFileName); file://대상 파일 이름을 지정합니다.

재설정(f1);

노력하다

다시 쓰기(f2);

노력하다

Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0인 경우

그 다음에

EinoutError.creat('파일 복사 오류') 발생

마지막으로

파일 닫기(f2);파일://닫기 f2

끝;

마지막으로

길이(sLine)<=0;까지

끝;

끝;

2.파일 스트림

프로시저 카피파일;

var f1,f2: tfilestream;

시작하다

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

노력하다

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

노력하다

f2.CopyFrom(f1,f1.size);

마지막으로

f2.무료;

끝;

마지막으로

f1.무료;

끝;

끝;

3. 버퍼를 읽고 쓰기 위해 메모리 블록을 사용하는 구현

FileCopy를 가져옵니다(const Fromfile,Tofile:string);

바르

F1,F2:파일;

읽은 숫자, 쓴 숫자:단어;

Buf: char 배열 [1..2048];

시작하다

AssignFile(F1,Fromfile);

재설정(F1,1);

AssignFile(F2,Tofile);

다시 쓰기(F2,1);

반복하다

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

BlockWrite(F2,buf,Numread,NumWritten);

(NumRead=0) 또는 (NumWritten<>NumRead)까지;

파일닫기(F1);

파일닫기(F2);

끝;