Delphi 使用Indy idftp 通过Android 上传文件

本文整理自网络，侵删。

 
var
ftp_port,ftp_folder:string;
ftp_error : Boolean;

begin
IdFTP1.ConnectTimeout := 1000;
  IdFTP1.Passive := True;
  IdFTP1.Host    := '';//ftp_server;
  IdFTP1.Username:= '';//ftp_user;
  IdFTP1.Password:= '';//ftp_pass;

  if ftp_port<> '' then begin
    Try
      IdFTP1.Port    := StrToInt(ftp_port);
    except
      IdFTP1.Port := 21;
    End;
 end;


      Try
        ftp_error := False;
        IdFTP1.Connect;
        IdFTP1.Passive := true;
        if ftp_folder= '' then
          IdFTP1.Put( System.IOUtils.TPath.Combine(System.IOUtils.tpath.getdocumentspath,'temp.txt'), ftp_file, False )
        else begin
          if ftp_folder[length(ftp_folder)] <> '/'  then
            ftp_folder:= ftp_folder+ '/';

          IdFTP1.Put( System.IOUtils.TPath.Combine(System.IOUtils.tpath.getdocumentspath,'temp.txt'), ftp_folder+ftp_file, False );
        end;
        IdFTP1.Disconnect;
      except
        ftp_error := True;
      End;


          if not ftp_error then begin

            showmessage('FTP connection correct');
          end
          else begin
            showmessage('Error FTP');
          end;

 

相关阅读 >>

Delphi string内存结构

Delphi 用tidsmip和tidmessage发送邮件

Delphi中如何将鼠标放置在控件上就给予提示信息

Delphi一个简单的穿墙下载者

Delphi issameday、istoday - 判断是不是同一天、判断是不是今天

Delphi 实现关闭指定进程，自身防杀

为什么编程是独一无二的职业

Delphi-adoquery查询、插入、删除、修改

Delphi xe4 for ios 谨慎处理字符串

Delphi rest 服务器返回utf16编码转换成正常string

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 使用Indy idftp 通过Android 上传文件