[Delphi] FTPアドレスを解析するための小さな関数

手順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）;

終わり;