FTP 파일 전송

function TForm1.PutFileFtpSvr(srcfile, destfile: String): Boolean;

begin

   result := true;

   If IdFTP1.Connected Then IdFTP1.Disconnect;

   IdFTP1.Host := 'localhost';

   IdFTP1.Port := StrToInt('21');

   IdFTP1.Username := 'newkie';

   IdFTP1.Password := 'newkie';

   Try

      IdFTP1.Connect;

      IdFTP1.ChangeDir('/qcdata/app001');

      IdFTP1.TransferType := ftBinary;

      IdFTP1.Passive := True;

      IdFTP1.Put(srcfile, destfile);

      Except On E: Exception Do

      Begin

         IdFTP1.Disconnect;

         showMessage('FTP err' + E.ToString);

         result := false;

         Exit;

      End;

   End;

End;

윈도우즈에서는 IdFTP1.Passive := True; 이 없어도 되던데

모바일에서는 해당 라인이 있어야 파일 전송 성공.

이유는 모름...