この記事の例では、Delphi が FTP アドレスを解析する方法について説明します。皆さんの参考に共有してください。具体的な実装方法は以下の通りです。
プロシージャ TForm1.FTPAnaracy(S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList);var i,j:integer; strAuthorization,strAddr,strDirFile:string; //認可情報 begin UserName:= '匿名'; パスワード:= '[email protected]'; IP := ''; 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; - 1); パスワード := Copy(strAuthorization,j+1,length(strAuthorization)-j); j:=Pos('/',strAddr); if(j>0) then IP := Copy(strAddr,i+1,ji-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 プログラミングに役立つことを願っています。