تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Bug كيفية استدعاء سيتب من رسيورس Fransesco 4 77 20-02-19, 04:09 PM
آخر رد: Fransesco
  [سؤال] كيفية عمل زر بحث والنتائج بجدول DeSSaR 6 3,887 10-02-19, 02:43 PM
آخر رد: سعود
Question [سؤال] كيفية عمل بحث كل 30 ثانية بدون مشكلة فى عمل البرنامج alims 1 140 04-02-19, 02:45 PM
آخر رد: sendbad100
  كيفية حساب عدد تشيك بوكس محدد في التقرير Emam emam 5 199 01-02-19, 04:02 AM
آخر رد: princelovelorn
  كيفية قلب برنامج مبني بالانجليزي الي العربي عاصم شرف الدين محمد 8 229 22-01-19, 04:13 PM
آخر رد: mmali127
  [VB.NET] استفسار :- كيفية قراءة معلومات UDP dubai.eig 0 112 21-01-19, 06:49 PM
آخر رد: dubai.eig
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 272 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  [سؤال] كيفية البحث داخل حقل تيكست عن كلمة بداخله والمقارنة dametucorazon 3 226 09-01-19, 11:29 AM
آخر رد: dametucorazon
  مسح صورة من الملف الموجود في البرنامج hassan 14 23 774 08-01-19, 01:50 PM
آخر رد: hassan 14
  كيفية رفع ملف على جوجل درايف خالد شكري 0 108 27-12-18, 11:27 PM
آخر رد: خالد شكري

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


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