تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية اضهار تقدم رفع الملف في البروق بار
#1
السلام عليكم


انا عندي هاذا الكود 

PHP كود :
My.Computer.Network.UploadFile() 

اريد ربط التقدم في البروق بار

واذا في كود ثاني يرفع ملف ويربطه في البروق بار ماهي مشكلة 


وشكرا
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة:
#2
رد يا اخوان
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة:
#3
وعليكم السلام
الصراحة الامر هذا لم اوفق فيه مع اني اطبق كما بالشرح ولا ادري مالسبب (قديما توقفت عن الامر قد اجد الامر صار اسهل.. الله اعلم.)
لكن شوف الروابط
1 2 3
بحث قوقل

بارك الله فيك اخ sami
وقد نسخت الكلاس من الرابط خشية ان يحذفه لاحقا صاحب الفيديو
كود :
Imports System.Net
Public Class MainForm
   Dim ftpFilePath As String = Nothing

   Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Control.CheckForIllegalCrossThreadCalls = False
   End Sub

   Private Sub btnBrowse_Click(sender As Object, e As EventArgs) Handles btnBrowse.Click
       Dim newFile As New OpenFileDialog
       If newFile.ShowDialog = Windows.Forms.DialogResult.OK Then
           txtFilePath.Text = newFile.FileName
           ftpFilePath = txtFTPServer.Text & "/" & IO.Path.GetFileName(txtFilePath.Text)
       End If
   End Sub

   Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
       bWorker.RunWorkerAsync()
   End Sub

   Private Sub bWorker_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bWorker.DoWork
       Dim request As FtpWebRequest = DirectCast(WebRequest.Create(New Uri(ftpFilePath)), FtpWebRequest)
       request.Method = WebRequestMethods.Ftp.UploadFile
       request.Credentials = New NetworkCredential(txtFTPUsername.Text, FTPPassword.Text)
       request.UseBinary = True
       request.UsePassive = False
       Dim fileStream() As Byte = System.IO.File.ReadAllBytes(txtFilePath.Text)
       Dim requestStream As System.IO.Stream = request.GetRequestStream()
       For offset As Integer = 0 To fileStream.Length Step 1024
           bWorker.ReportProgress(CType(offset * pBar.Maximum / fileStream.Length, Integer))
           Dim chSize As Integer = fileStream.Length - offset
           If chSize > 1024 Then chSize = 1024
           requestStream.Write(fileStream, offset, chSize)
       Next
       requestStream.Close()
       requestStream.Dispose()
   End Sub

   Private Sub bWorker_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles bWorker.ProgressChanged
       pBar.Value = e.ProgressPercentage
       lblPercent.Text = e.ProgressPercentage & " %"
   End Sub

   Private Sub bWorker_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bWorker.RunWorkerCompleted
       MsgBox("Finish uploading!")
   End Sub

End Class
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: sami2015 , kslawy , العزابي , mohamdser
#4
(20-01-15, 07:48 PM)سعود كتب : وعليكم السلام
الصراحة الامر هذا لم اوفق فيه مع اني اطبق كما بالشرح ولا ادري مالسبب (قديما توقفت عن الامر قد اجد الامر صار اسهل.. الله اعلم.)
لكن شوف الروابط
1 2 3
بحث قوقل


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

كود :
Imports System.Net
Public Class MainForm
   Dim ftpFilePath As String = Nothing

   Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Control.CheckForIllegalCrossThreadCalls = False
   End Sub

   Private Sub btnBrowse_Click(sender As Object, e As EventArgs) Handles btnBrowse.Click
       Dim newFile As New OpenFileDialog
       If newFile.ShowDialog = Windows.Forms.DialogResult.OK Then
           txtFilePath.Text = newFile.FileName
           ftpFilePath = txtFTPServer.Text & "/" & IO.Path.GetFileName(txtFilePath.Text)
       End If
   End Sub

   Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
       bWorker.RunWorkerAsync()
   End Sub

   Private Sub bWorker_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bWorker.DoWork
       Dim request As FtpWebRequest = DirectCast(WebRequest.Create(New Uri(ftpFilePath)), FtpWebRequest)
       request.Method = WebRequestMethods.Ftp.UploadFile
       request.Credentials = New NetworkCredential(txtFTPUsername.Text, FTPPassword.Text)
       request.UseBinary = True
       request.UsePassive = False
       Dim fileStream() As Byte = System.IO.File.ReadAllBytes(txtFilePath.Text)
       Dim requestStream As System.IO.Stream = request.GetRequestStream()
       For offset As Integer = 0 To fileStream.Length Step 1024
           bWorker.ReportProgress(CType(offset * pBar.Maximum / fileStream.Length, Integer))
           Dim chSize As Integer = fileStream.Length - offset
           If chSize > 1024 Then chSize = 1024
           requestStream.Write(fileStream, offset, chSize)
       Next
       requestStream.Close()
       requestStream.Dispose()
   End Sub

   Private Sub bWorker_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles bWorker.ProgressChanged
       pBar.Value = e.ProgressPercentage
       lblPercent.Text = e.ProgressPercentage & " %"
   End Sub

   Private Sub bWorker_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bWorker.RunWorkerCompleted
       MsgBox("Finish uploading!")
   End Sub

End Class

ما تقصر اخي سعود
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية نقل حقل معين من Datagridview1 الى Datagridview2 Crazy_Vb.NeT 1 44 منذ 1 ساعه مضت
آخر رد: Crazy_Vb.NeT
  [سؤال] كيفية تحويل كود اكسلvba الى فيجوال بيسك farhat 3 68 أمس, 11:34 PM
آخر رد: thevirus
  [VB.NET] كيفية طباعة Crystal Report Crazy_Vb.NeT 2 42 أمس, 03:02 PM
آخر رد: Crazy_Vb.NeT
  [سؤال] كيفية جعل الارقام تأخذ الشكل العربي kafi2030 8 2,872 أمس, 12:21 PM
آخر رد: زمالك
Question [سؤال] كيفية عمل أسم مستخدم وكلمة مرور لبرنامج؟ refaat130 4 129 25-02-17, 02:39 PM
آخر رد: Crazy_Vb.NeT
  كيفية الاختصار bidaya 3 73 25-02-17, 01:05 AM
آخر رد: مساعدة
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 82 21-02-17, 09:03 PM
آخر رد: noway
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 60 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 62 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 142 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد

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


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