//서버에 접속한다.

FTP.Connect(FTP.RemoteHost, FTP.RemotePort);

wrdBool := FTP.Busy;

FTPBusy(FTP, wrdBool);

Application.ProcessMessages;

while FTP.Busy do

Application.ProcessMessages;



//다운받을 화일이 있는 디렉토리로 이동한다.

FTP.ChangeDir('./USERWORK/EXE');

wrdBool := FTP.Busy;

FTPBusy(FTP, wrdBool);

Application.ProcessMessages;

while FTP.Busy do

Application.ProcessMessages;



//데이타를 다운받는 타입을 지정한다.

FTP.Type_(2);

wrdBool := FTP.Busy;

FTPBusy(FTP, wrdBool);

Application.ProcessMessages;

while FTP.Busy do

Application.ProcessMessages;



//<행정실> 화일을 다운받는다.

FTP.GetFile('common.txt', 'c:Program FilesCRISSOFTWAREcommon.txt');

wrdBool := FTP.Busy;

FTPBusy(FTP, wrdBool);

Application.ProcessMessages;

while FTP.Busy do

Application.ProcessMessages;



원인을 아시는 분 도와 주세요.



참고로 예제에 있는 프로그램으로 돌리면, 황당하게도 잘 됩니다.

지금 미칠지경인데요 아시는 분 꼭 도와주세요.