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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية الزيادة التلقائية لرصيد الإجازات في قاعدة البيانات الوايلي 1 24 منذ 4 ساعة مضت
آخر رد: عبدالله الدوسري
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,456 19-01-18, 09:30 PM
آخر رد: رمضان محمد
  كيفية حفظ إعدادات البرنامج بحيث لا تتغير أحمد إبراهيم سعد 1 43 17-01-18, 08:49 AM
آخر رد: عبدالله الدوسري
  كيفية تغيير طريقة عرض التاريخ في الاداة DateTimePicker1 nooralcown 4 139 08-01-18, 01:47 PM
آخر رد: nooralcown
  [سؤال] كيفية حساب هذه القيمة ؟ Mohamed20 2 87 04-01-18, 04:31 PM
آخر رد: Mohamed20
  كيفية جعل جميع date time picker الموجودة في الproject تاخذ من تاريخ السيرفر وليس الجه تناسيم 2 81 01-01-18, 04:57 PM
آخر رد: تناسيم
  كيفية ادراج ذر داخل textbox محمود صالح 1 70 01-01-18, 04:19 PM
آخر رد: طالب برمجة
  كيفية وضع صورة أو فديو داخل الـ Form ؟http://vb4arb.com/vb/showthread.php?tid=23074 DanyGhost2010 6 129 26-12-17, 10:51 PM
آخر رد: DanyGhost2010
  [VB.NET] كيفية حذف جزء معين من الصور او اخفائه الماجيك مسعد 5 114 24-12-17, 06:36 AM
آخر رد: الماجيك مسعد
  كيفية تعدد الاسطر في الرسالة محمود صالح 2 60 22-12-17, 04:21 PM
آخر رد: محمود صالح

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


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