Delphi解析FTP地址的辦法。本站提示廣大學習愛好者:(Delphi解析FTP地址的辦法)文章只能為提供參考,不一定能成為您想要的結果。以下是Delphi解析FTP地址的辦法正文
本文實例講述了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順序設計有所協助。