ตัวอย่างในบทความนี้จะอธิบายวิธีที่ Delphi แยกวิเคราะห์ที่อยู่ FTP แบ่งปันกับทุกคนสำหรับการอ้างอิงของคุณ วิธีการดำเนินการเฉพาะมีดังนี้:
ขั้นตอน TForm1.FTPAnalysis(S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList);var i,j:integer; strAuthorization,strAddr,strDirFile:string; //ข้อมูลการอนุญาตเริ่มต้น ชื่อผู้ใช้:= ' ไม่ระบุชื่อ'; รหัสผ่าน:= '[email protected]'; IP := ''; 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) ให้เริ่ม strAuthorization := Copy(S,7,i-7); //ใช้เฉพาะฟิลด์รหัสผ่านของบัญชี j:=Pos(':',strAuthorization); if(j<1)แล้วออก; ชื่อผู้ใช้ := Copy(strAuthorization,1,j - 1); รหัสผ่าน := คัดลอก(strAuthorization,j+1,length(strAuthorization)-j); end; 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;//รับชื่อไฟล์ไดเรกทอรี := DirList[DirList.count-1];//ส่วนสุดท้ายคือชื่อไฟล์ DirList.Delete(DirList.Count-1);end;
ฉันหวังว่าบทความนี้จะเป็นประโยชน์กับการเขียนโปรแกรม Delphi ของทุกคน