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 全局钩子锁定鼠标

Delphi中的memo顶部添加行

Delphi tms web core直接从html&css设计的页面布局

Delphi memo1 行倒序排列三种方法

Delphi为你的窗体有效地提供剪贴板的相关操作

Delphi 如何get/post 调用http请求

Delphi 制作一个内网传播的程序

Delphi xe 与plc通讯（intcpserver 二进制）

Delphi form工程创建

Delphi实现背景音乐播放

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

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