网络通信/分布式开发
帮我看一个delphi 调用 idftp 让FTP上传的例子，错误在哪？？
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区帮我看一个FTP上传的例子，错误在哪？？
procedure TForm1.BitBtn4Click(Sender: TObject);
var
fi:string;
begin
IDFTP1.Disconnect;
IDFTP1.Host:='122.224.196.X';//FTP服务器地址
IDFTP1.Username:='AAA'; //FTP服务器用户名
IDFTP1.Password:='AAA';//FTP服务器密码
IDFTP1.Connect();//连接到FTP
if opendialog1.Execute then
begin
fi:=opendialog1.FileName;
idftp1.Put(fi,extractfilename(fi)); //上传
SHOWMESSAGE('上传成功!!');
end;
IDFTP1.Disconnect;
end;
点击按钮选择文件后，就一直卡死在那！！
procedure TForm1.BitBtn4Click(Sender: TObject);
var
fi:string;
begin
IDFTP1.Disconnect;
IDFTP1.Host:='122.224.196.X';//FTP服务器地址
IDFTP1.Username:='AAA'; //FTP服务器用户名
IDFTP1.Password:='AAA';//FTP服务器密码
IDFTP1.Connect();//连接到FTP
if opendialog1.Execute then
begin
fi:=opendialog1.FileName;
idftp1.Put(fi,extractfilename(fi)); //上传
SHOWMESSAGE('上传成功!!');
end;
IDFTP1.Disconnect;
end;
点击按钮选择文件后，就一直卡死在那！！
...全文
