절차 tform1.ftpanalysis (s : string; var username, password, ip, filename : string; var dirlist : tstringlist);
var
I, J : 정수;
STAYSORIZATION, Straddr, strdirfile : 문자열; // 권한 부여 정보
시작하다
사용자 이름 : = '익명';
비밀번호 : = '[email protected]';
IP : = '';
straddr : = 복사 (s, 7, 길이 -6); // ftp : // 이후에 부분을 얻습니다.
// s 형식은 ftp : // rec : [email protected]/20050418/abcdef.vox와 유사해야합니다. 또는 ftp : //192.168.76.11/...
i : = pos ( '@', s);
if (i> 0) 그러면
시작하다
STAYSORIZATION : = COPY (S, 7, I-7); // 계정 암호 필드 만 가져옵니다
J : = pos ( ':', strauthorization);
if (j <1) 그러면
출구;
사용자 이름 : = 복사 (strauthorization, 1, j-1);
비밀번호 : = 복사 (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; // 디렉토리 목록 얻기
filename : = dirlist [dirlist.count-1]; // 마지막 부분은 파일 이름입니다
Dirlist.delete (Dirlist.count-1);
끝 ;