BCB用FTP上传下载

来源：互联网发布：ip与mac绑定是什么意思编辑：程序博客网时间：2024/05/17 06:49

首先说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(); // 断开连接

}

0 1