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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 225 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 159 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,124 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 305 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  [سؤال] كيفية ربط ماكينة الدفع ببرنامج الكاشير ؟ osamaelmaghraby 3 324 26-12-23, 11:53 PM
آخر رد: osamaelmaghraby
  كيفية رسم بيان دالة رياضية؟ الخير19 6 415 23-12-23, 03:36 PM
آخر رد: الخير19
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 673 14-12-23, 12:07 PM
آخر رد: asmarsou
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,606 10-12-23, 12:53 PM
آخر رد: محمد بن عطية

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


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