تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لتنزيل ملف من موقع على الانترنت
#1
كاتب الموضوع : Boutemine Oualid

السلام عليكم و رحمة الله وبركاته
هذه الطريقة غير محبذة لكن جيدة لتطبيق مبادئ التدفقات Streams

كود :
Public Sub DownloadFile(ByVal RemoteFilePath As String, ByVal SaveFilePath As String, ByVal TimeOut As Integer, Optional ByVal BlockSize As Integer = 1024)
Dim wr As WebRequest = WebRequest.Create(RemoteFilePath)
wr.Timeout = TimeOut
Dim wresp As WebResponse = wr.GetResponse()
Dim RemoteStream As Stream = wresp.GetResponseStream()
Dim LocalStream As New FileStream(SaveFilePath, FileMode.OpenOrCreate, FileAccess.Write, FileShare.Read)
Dim LocalStreamW As New BinaryWriter(LocalStream)
Dim buff As Byte() = New Byte(BlockSize - 1) {}
Dim iBytesRead As Integer = 1
While iBytesRead > 0
iBytesRead = RemoteStream.Read(buff, 0, buff.Length)
LocalStreamW.Write(buff, 0, iBytesRead)
End While
wresp.Close()
RemoteStream.Close()
RemoteStream.Dispose()
LocalStreamW.Close()
LocalStream.Close()
LocalStream.Dispose()
End Sub
الطريقة الأفضل هي استعمال الفئة WebClient التابعة لمجال الأسماء System.Net

كود :
Dim client As New System.Net.WebClient()
'اذا كان الدخول الى الموقع محمي علينا بتعيين معلومات الدخول
'client.Credentials = New System.Net.NetworkCredential("UserName", "Passowrd")
client.DownloadFile("Remote Address", "c:\myFile")
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  موقع شبيه بموقع كتب بسورس كود حسين الربيعي 2 901 13-08-13, 10:04 PM
آخر رد: kslawy
  أحصل على أيبى أى موقع بسهولة RaggiTech 0 466 17-10-12, 09:49 PM
آخر رد: RaggiTech
  كود التحميل واستكمال التحميل من الانترنت RaggiTech 0 356 17-10-12, 08:11 PM
آخر رد: RaggiTech
  تنزيل ملف صورة من موقع ديناميكيا و عرضها في PictureBox RaggiTech 0 302 17-10-12, 05:58 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم