手順tform1.ftpanAlysis(s:string; var username、password、ip、filename:string; var dirlist:tstringlist);
var
I、J:整数;
Struthorization、Straddr、Strdirfile:string; //承認情報
始める
username:= 'anonymous';
パスワード:= '[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
始める
struthorization:= copy(s、7、i-7);
j:= pos( ':'、struthorization);
if(j <1)then
出口;
ユーザー名:= copy(struthorization、1、j-1);
パスワード:= copy(struthorization、j+1、length(struthorization)-j);
終わり;
i:= pos( '@'、straddr);
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);
終わり;