(Delphi) 네트워크 파일 다운로드의 예

FTP 다운로드 : http://www.7880.com/info/article-19938be0.html

http://community.csdn.net/expert/topic/3300/3300012.xml?temp=5.028933E-02

FTP 다운로드 : TIDFTP Control (Delphi7 Indy)

HTTP 다운로드 : (delphi7) 디자인 인디 컨트롤을 사용하여 네트워크 파일을 다운로드하십시오 //////////////

Form1에서 컨트롤 추가 :

두 가지 인디 컨트롤 : idantifreeze1, idhttp1;

버튼 : button1;

진행률 표시 줄 : ProgressBar1에는 다운로드 속도가 표시됩니다

절차 tform1.Button1click (sender : tobject);

var

mystream : tmemorystream;

시작하다

idantifreeze1.

mystream : = tmemorystream.create;

노력하다

idhttp1.get ( 'http://www.appcontrols.com/demos/exe/httpdemo.exe' ,mystream);

제외하고

showmessage ( '다운로드 성공하지 못했습니다!');

mystream.free;

출구;

끝;

mystream.savetofile (extractfilepath (paramstr (0))+'httpdemo.zip');

mystream.free;

showmessage ( 'Ok');

끝;

절차 tform1.idhttp1workbegin (sender : tobject; aworkmode : tworkmode;

Const AworkCountmax : Integer);

시작하다

// 다운로드를 시작하기 전에 ProgressBar1의 최대 값을 수신 해야하는 데이터 크기로 설정하십시오.

ProgressBar1.max : = aworkCountMax;

ProgressBar1.min : = 0;

ProgressBar1.Position : = 0;

끝;

절차 tform1.idhttp1work (발신자 : Tobject; aworkMode : tworkMode;

Const AworkCount : 정수);

시작하다

// 데이터를 수신 할 때 진행 상황이 진행됩니다.

ProgressBar1.Position : = ProgressBar1.Position+AworkCount;

끝;