不行啊,DEMO在我机器上调试不通,我的代码也不行,我现在想上传一个文件,感觉应该很简单的代码就可以搞定,哪位帮我瞅瞅代码:
FtpClient1.HostName:=Edit1.Text;
FtpClient1.HostDirName:=Edit2.Text;
FtpClient1.LocalFileName:=Edit3.Text;
FtpClient1.UserName:=Edit4.Text;
FtpClient1.PassWord:=Edit5.Text;
FtpClient1.Port:='21';
FtpClient1.Binary := TRUE;
FtpClient1.DisplayFileFlag := TRUE;
FtpClient1.Transmit;
ShowMessage('OVER');