Процедура tform1.ftpanalysis (s: string; var username, пароль, ip, имя файла: string; var dirlist: tstringlist);
вар
я, J: целое число;
Strauthorization, Straddr, Strdirfile: String; // Информация о авторизации
Начинать
Имя пользователя: = 'анонимный';
Пароль: = '[email protected]';
Ip: = '';
Straddr: = copy (s, 7, длина (s) -6); // Получить часть после ftp: //
// S Формат должен быть похож на ftp: // rec: [email protected]/20050418/abcdef.vox, или ftp: //192.168.76.11/...
i: = pos ('@', s);
if (i> 0) тогда
Начинать
Strauthorization: = Copy (S, 7, I-7);
J: = pos (':', Strauthorization);
if (j <1) тогда
Выход;
Имя пользователя: = копия (Strauthorization, 1, J-1);
Пароль: = Copy (Strauthorization, j+1, длина (Strauthorization) -j);
конец ;
i: = pos ('@', straddr);
J: = pos ('/', Straddr);
if (j> 0) тогда
Ip: = copy (straddr, i+1, ji-1); // получить IP-адрес
strdirfile: = copy (straddr, j+1, длина (Straddr) -j);
Dirlist.delimiter: = '/';
Dirlist.delimitedtext: = strdirfile; // Get Directory List
Имя файла: = dirlist [dirlist.count-1]; // Последняя часть-это имя файла
Dirlist.delete (dirlist.count-1);
конец ;