Delphi解析FTP地址的方法
2015-05-08 15:32
1321 查看
本文实例讲述了Delphi解析FTP地址的方法。分享给大家供大家参考。具体实现方法如下:
procedure TForm1.FTPAnalysis(S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList); var i,j:integer; strAuthorization,strAddr,strDirFile:string; //授权信息 begin UserName:= 'anonymous'; Password:= 'test@test.com'; IP := ''; strAddr := Copy(S,7,length(S)-6); //取得ftp://之后的部分 //S 格式必须是类似ftp://rec:ooo@192.168.76.11/20050418/abcdef.vox, //或ftp://192.168.76.11/...... i := Pos('@',S); if(i>0) then begin strAuthorization := Copy(S,7,i-7); //只取帐号密码字段 j:=Pos(':',strAuthorization); if(j<1)then exit; UserName := Copy(strAuthorization,1,j-1); PassWord := Copy(strAuthorization,j+1,length(strAuthorization)-j); end; i := Pos('@',strAddr); j:=Pos('/',strAddr); if(j>0) then IP := Copy(strAddr,i+1,j-i-1);//获得IP地址 strDirFile := Copy(strAddr,j+1,length(strAddr)-j); DirList.Delimiter := '/'; DirList.DelimitedText := strDirFile;//获得目录列表 FileName := DirList[DirList.count-1];//最后部分为文件名 DirList.Delete(DirList.Count-1); end;
希望本文所述对大家的Delphi程序设计有所帮助。
您可能感兴趣的文章:
相关文章推荐
- 2016/5/6 thinkphp ①框架 ② 框架项目部署 ③MVC模式 ④控制器访问及路由解析 ⑤开发和生产模式 ⑥控制器和对应方法创建 ⑦视图模板文件创建 ⑧url地址大小写设置 ⑨空操作空控制器 ⑩项目分组
- jquery解析图片地址字符串中文乱码的解决方法
- 根据WebService地址展示方法列表、入参和返回值(解析wsdl)
- 记一次映射公网地址FTP服务问题的解决方法
- 在线聊天项目1.4版 使用Gson方法解析Json字符串以便重构request和response的各种请求和响应 解决聊天不畅问题 Gson包下载地址
- CodeGear Delphi 2007 for Win32 专业版下载地址及安装、破解方法
- Java/JSP获得客户端网卡MAC地址的三种方法解析
- Delphi exe动态调用加载bpl 报地址错误的解决方法
- 一个不错的解析URL地址的JS方法,推荐一下
- Java/JSP获得客户端网卡MAC地址的三种方法解析
- 【百度地图API】当地址解析失败时,如何调用search方法查找地址
- Delphi代码获取网卡物理地址三种方法
- Java/JSP获得客户端网卡MAC地址的三种方法解析
- RAD Studio XE (DelphiXE)官网下载地址 注册方法 及 破解工具
- 【百度地图API】当地址解析失败时,如何调用search方法查找地址
- cnnic反相地址解析申请方法
- Java/JSP获得客户端网卡MAC地址的三种方法解析
- 今日头条的视频地址解析方法
- 网上关于视频网站的视频地址解析的方法有哪些?
- Android编程实现根据经纬度查询地址并对获取的json数据进行解析的方法