[Delphi] Fungsi kecil untuk menguraikan alamat FTP

Prosedur tForm1.ftpanalysis (s: string; var nama pengguna, kata sandi, ip, nama file: string; var dirlist: tstringlist);

var

I, J: Integer;

Strauthorization, Straddr, Strdirfile: String; // Informasi Otorisasi

Mulai

Nama pengguna: = 'Anonim';

Kata sandi: = '[email protected]';

IP: = '';

straddr: = copy (s, 7, length (s) -6); // Dapatkan bagian setelah ftp: //

// S Format harus mirip dengan ftp: // rec: [email protected]/20050418/abcdef.vox, atau ftp: //192.168.76.11/...

i: = pos ('@', s);

if (i> 0) lalu

Mulai

Strauthorization: = Copy (S, 7, I-7);

j: = pos (':', straRorization);

if (j <1) lalu

KELUAR;

Nama pengguna: = Salin (StraRauthorization, 1, J-1);

Kata sandi: = Salin (Strauthorization, J+1, Length (Strauthorization) -J);

akhir ;

i: = pos ('@', straddr);

j: = pos ('/', straddr);

if (j> 0) lalu

IP: = Salin (Straddr, I+1, JI-1); // Dapatkan Alamat IP

strdirfile: = copy (straddr, j+1, length (straddr) -j);

Dirlist.delimiter: = '/';

Dirlist.delimitedText: = strdirfile; // Dapatkan Daftar Direktori

Nama file: = Dirlist [Dirlist.count-1]; // Bagian terakhir adalah nama file

Dirlist.delete (Dirlist.count-1);

akhir ;