BCB用FTP上传下载

首先说FTP的配置：

安装FTP可以选  FILEZILLA  和 SERV-U服务器安装

配置：链接：http://jingyan.baidu.com/article/6079ad0e67acf828ff86db3f.html

测试FTP配置：可以用软件链接  也可以自己输入  ftp://IP:21

上传：

void __fastcall TForm1::btn2Click(TObject *Sender)
{
   AnsiString FileName = "ww.txt";  // 要下载的文件名
  AnsiString RemoteDir = "ff/";                 // FTP上的目录名
  AnsiString LocalDir = "d:\\";                  // 下载到的本地目录名


  //TNMFTP *NMFTP1 = new TNMFTP;


  nmftp2->Host = "192.168.10.1";         // FTP地址
  nmftp2->Password = "123456";                   // 密码
  nmftp2->Port = 21;
  nmftp2->TimeOut = 8000;                   // 端口号
  nmftp2->UserID = "aa";                    // 用户名
  nmftp2->Connect();                            // 连接FTP
  bool IsConnected = nmftp2->Connected;
 if(IsConnected)
  {
    //NMFTP1->ChangeDir(RemoteDir);       // 改变在FTP上的目录
    //nmftp2->Mode(MODE_IMAGE);


    nmftp2->UploadRestore("d:\zz.txt", "工具/zz.txt",0);  // 下载


    ShowMessage("上传完成!");
  }
  else
   ShowMessage("连接错误!");


  nmftp2->Disconnect();                          // 断开连接




}

下载：

void __fastcall TForm1::btn1Click(TObject *Sender)
{
  AnsiString FileName = "ww.txt";  // 要下载的文件名
  AnsiString RemoteDir = "ff/";                 // FTP上的目录名
  AnsiString LocalDir = "d:\\";                  // 下载到的本地目录名


  //TNMFTP *NMFTP1 = new TNMFTP;


  nmftp2->Host = "192.168.130.91";         // FTP地址
  nmftp2->Password = "123456";                   // 密码
  nmftp2->Port = 21;
  nmftp2->TimeOut = 8000;                   // 端口号
  nmftp2->UserID = "aa";                    // 用户名
  nmftp2->Connect();                            // 连接FTP
  bool IsConnected = nmftp2->Connected;
 if(IsConnected)
  {
    //NMFTP1->ChangeDir(RemoteDir);       // 改变在FTP上的目录
    nmftp2->Mode(MODE_IMAGE);


    nmftp2->Download("工具/ww.txt", "d:\www.txt");  // 下载


    ShowMessage("下载完成!");
  }
  else
   ShowMessage("连接错误!");


  nmftp2->Disconnect();                          // 断开连接


}