13,826
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
NowCan 2002-08-30
- 打赏
- 举报
用Indy，简单得很
echoher 2002-08-29
- 打赏
- 举报
if (!NMFTP->Connected)
{
BitBtn1->Enabled = false;
BitBtn1->Caption = "断开连接";
NMFTP->ReportLevel = Status_Basic;
NMFTP->Host = addr->Text;
NMFTP->Port = StrToInt(port->Text);
NMFTP->UserID = user_id->Text;
NMFTP->Password = pwd->Text;
NMFTP->Connect();
BitBtn1->Enabled = true;
}
NMFTP->Mode(MODE_IMAGE);
NMFTP->Download(spath->Text,dpath->Text);
Application->MessageBox("下载完毕","提示",MB_OK|MB_ICONINFORMATION);
这是我刚写的
{
BitBtn1->Enabled = false;
BitBtn1->Caption = "断开连接";
NMFTP->ReportLevel = Status_Basic;
NMFTP->Host = addr->Text;
NMFTP->Port = StrToInt(port->Text);
NMFTP->UserID = user_id->Text;
NMFTP->Password = pwd->Text;
NMFTP->Connect();
BitBtn1->Enabled = true;
}
NMFTP->Mode(MODE_IMAGE);
NMFTP->Download(spath->Text,dpath->Text);
Application->MessageBox("下载完毕","提示",MB_OK|MB_ICONINFORMATION);
这是我刚写的
