المشاركات : 730
المواضيع 66
الإنتساب : Apr 2014
السمعة :
25
الشكر: 1619
تم شكره 3502 مرات في 239 مشاركات
السلام عليكم
انا عندي هاذا الكود
PHP كود :
My.Computer.Network.UploadFile()
اريد ربط التقدم في البروق بار
واذا في كود ثاني يرفع ملف ويربطه في البروق بار ماهي مشكلة
وشكرا
الحمد لله رب العالمين على كل شي
المشاركات : 730
المواضيع 66
الإنتساب : Apr 2014
السمعة :
25
الشكر: 1619
تم شكره 3502 مرات في 239 مشاركات
رد يا اخوان
الحمد لله رب العالمين على كل شي
المشاركات : 7,391
المواضيع 803
الإنتساب : Sep 2013
السمعة :
846
الشكر: 13249
تم شكره 18795 مرات في 4414 مشاركات
20-01-15, 07:48 PM
(آخر تعديل لهذه المشاركة : 20-01-15, 07:57 PM {2} بواسطة سعود.)
وعليكم السلام
الصراحة الامر هذا لم اوفق فيه مع اني اطبق كما بالشرح ولا ادري مالسبب (قديما توقفت عن الامر قد اجد الامر صار اسهل.. الله اعلم.)
لكن شوف الروابط
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
المشاركات : 730
المواضيع 66
الإنتساب : Apr 2014
السمعة :
25
الشكر: 1619
تم شكره 3502 مرات في 239 مشاركات
(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
ما تقصر اخي سعود
الحمد لله رب العالمين على كل شي
|