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 ios取设备唯一值

Delphi url解�a函��(by kingron)

Delphi webbrowser选中文本操作 设置webbrowser的内容

Delphi xe的firemonkey获取当前文件所在路径的方法

Delphi中webbrowser自动登录路由器网页

Delphi xe6、xe5、xe7在android创建快捷方式

Delphi 三种方式读取txt文本文件

Delphi 大小排序算法代码

Delphi twebbrowser控件编程

Delphi 判断两个时间差是否在一个指定范围内

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

转载请注明出处：木庄网络博客 » delphi IDFTP连接