Delphi解析FTP地址的方法

页面导航:首页 > 软件编程 > Delphi > Delphi解析FTP地址的方法

Delphi解析FTP地址的方法

来源:互联网 作者:脚本宝典 时间:2015-07-30 13:25 【

本文实例讲述了Delphi解析FTP地址的方法。分享给大家供大家参考。具体实现方法如下:?procedureTForm1.FTPAnalysis(S:string;varUserName,Password,IP,FileName:String;varDirList:TStringList);vari,j:integer;strAuthor
本文实例讲述了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:= '[email protected]'; IP := ''; strAddr := Copy(S,7,length(S)-6); //取得ftp://之后的部分 //S 格式必须是类似ftp://rec:[email protected]/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程序设计有所帮助。


Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<