delphi IDFTP连接


本文整理自网络,侵删。

  procedure TForm1.Act_ConnetFTP;
var
FTPHost,FTPHostIP:String;
i:Integer;
begin
FTPHost:=Trim(Edit4.Text);
i:=Pos('//',FTPHost); //截取//以后的字符串
FTPHost:=Copy(FTPHost,i+2,Length(FTPHost)-i);
FTPHostIP:=GetHostIP(FTPHost);
if IdFTP1.Connected then IdFtp1.Disconnect;
IdFTP1.Host:=FTPHostIP;
IdFTP1.Port:=21;
IdFTP1.Username:=Edit2.Text;
IdFTP1.Password:=Edit3.Text;
IdFTP1.Connect;

if not IdFTP1.Connected then
showmessage('连接失败');
end;

相关阅读 >>

Delphi 将文件转换成base64编码

Delphi三种弹窗

Delphi 两字符串之间添加分隔符

Delphi 如果判断一个网络文件是否存在?

Delphi 时钟

Delphi 控制台读写

Delphi xe, xe10, 创建 activeform 和 activex 工程的方法

Delphi 数字排序自动完成

Delphi 如何在数据表中存取图片

Delphi用api设置定时器

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...