منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بعد حفظ الملف على القرص الصلب , قم برفع الملف على الإنترنت 
لا توجد طريقة أخرى


هناك طريق كثيرة لرفع الملفات :
منها : الموقع على الإنترنت لا يطلب تصاريح 



بعض المواقع تحتاج إلى اسم مستخدم وكلمة مرور :



عن طريق خادم FTP

(03-04-18, 03:24 PM)عبدالله الدوسري كتب : [ -> ]بعد حفظ الملف على القرص الصلب , قم برفع الملف على الإنترنت 
لا توجد طريقة أخرى


هناك طريق كثيرة لرفع الملفات :
منها : الموقع على الإنترنت لا يطلب تصاريح 

كود :

My.Computer.Network.UploadFile(Filez, "http://xxx.xxx.xxx/aaa/bbb/filename.wav")

بعض المواقع تحتاج إلى اسم مستخدم وكلمة مرور :

كود :

My.Computer.Network.UploadFile(Filez, "http://xxx.xxx.xxx/aaa/bbb/filename.wav", "UserName", "Password")

عن طريق خادم FTP

كود :

       ' set up request...
       Dim clsRequest As System.Net.FtpWebRequest =
           DirectCast(System.Net.WebRequest.Create("ftp://ftp.xxx.xxx/bbb/filename.wav"), System.Net.FtpWebRequest)
       clsRequest.Credentials = New System.Net.NetworkCredential("myusername", "mypassword")
       clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile

       ' read in file...
       Dim bFile() As Byte = System.IO.File.ReadAllBytes(Filez)

       ' upload file...
       Dim clsStream As System.IO.Stream =
           clsRequest.GetRequestStream()
       clsStream.Write(bFile, 0, bFile.Length)
       clsStream.Close()
       clsStream.Dispose()

 اخي في المثال الاول بعد رفع الملف
 في هذا المثال
My.Computer.Network.UploadFile(Filez, "http://xxx.xxx.xxx/aaa/bbb/filename.wav")

كيف استخدم الملف المرفوع في هذ الكود
اخي لقد اضفت بالبرفقات برنامج م ن برمجتي لرفع الصور ولكن اريد تحويل الاكواد
لرفع رابط مباشر ولكن لصوت المسجل اعلاه