Procedimento TForm1.ftPanalysis (s: string; var nome de usuário, senha, ip, nome do arquivo: string; var diRirlist: tStringList);
var
I, J: Inteiro;
Strauthorization, Straddr, Strdirfile: String; // Informações de autorização
Começar
Nome de usuário: = 'anônimo';
Senha: = '[email protected]';
IP: = '';
straddr: = cópia (s, 7, comprimento (s) -6); // obtenha a peça após ftp: //
// S o formato deve ser semelhante a ftp: // rec: [email protected]/20050418/abcdef.vox, ou ftp: //192.168.76.11/...
i: = pos ('@', s);
se (i> 0) então
Começar
Strauthorization: = cópia (s, 7, i-7);
J: = POS (':', Strauthorization);
se (j <1) então
saída;
Nome de usuário: = cópia (Strauthorization, 1, J-1);
Senha: = Copiar (Strauthorization, J+1, Comprimento (Strauthorization) -j);
fim ;
i: = pos ('@', straddr);
j: = pos ('/', straddr);
if (j> 0) então
Ip: = copy (straddr, i+1, ji-1); // obtenha endereço IP
strdirfile: = cópia (straddr, j+1, comprimento (straddr) -j);
Dirlist.Delimiter: = '/';
Dirlist.DelimitedText: = strdirfile; // Obter lista de diretórios
Nome do arquivo: = Dirlist [Dirlist.Count-1]; // A última parte é o nome do arquivo
Dirlist.Delete (Dirlist.Count-1);
fim ;