يصف المثال الموجود في هذه المقالة كيفية قيام دلفي بتوزيع عناوين FTP. شاركها مع الجميع لتكون مرجعا لك. طريقة التنفيذ المحددة هي كما يلي:
الإجراء TForm1.FTPAnalogy(S:string;var UserName,Password,IP,FileName:String;var DirList:TSTringList);var i,j:integer; strAuthorization,strAddr,strDirFile:string; كلمة المرور مجهولة:= '[email protected]'; Copy(S,7,length(S)-6); // احصل على الجزء بعد ftp:// //S يجب أن يكون التنسيق مشابهًا لـ ftp://rec:[email protected]/20050418/abcdef.vox, / /or ftp://192.168.76.11/...... i := Pos('@',S); if(i>0) ثم ابدأ strAuthorization := Copy(S,7,i-7); // خذ حقل كلمة مرور الحساب فقط j:=Pos(':',strAuthorization); - 1); كلمة المرور := Copy(strAuthorization,j+1,length(strAuthorization)-j); j:=Pos('/',strAddr); if(j>0) ثم IP := Copy(strAddr,i+1,ji-1);// احصل على عنوان IP strDirFile := Copy(strAddr,j+ 1 ,length(strAddr)-j); DirList.Delimiter := '/'; DirList.DelimitedText := strDirFile;// احصل على قائمة الدليل FileName := DirList[DirList.count-1];// الجزء الأخير هو اسم الملف DirList.Delete(DirList.Count-1);end;
آمل أن تكون هذه المقالة مفيدة لبرمجة دلفي للجميع.