arash_vb
دوشنبه 01 مهر 1387, 17:59 عصر
سلام،من از کدی برای دانلود از ftp استفاده کنم که قسمتیش رو که مهمتره رو در زیر گذاشتم..ممکنه این کد رو کامل کنید که بتونم یوزر و پسورد رو هم وارد کنم برای دانلود ..به عبارتی از ftp که یوزر و پسورد داره دانلود کنم.
در ضمن قابل ذکره که فقط مجاز به استفاده از همین کد هستم و
دستور دیگری که در my.network قرار داره به کار نمیاید.
تشکر
Public Function DownloadFile(ByVal URL As String, ByVal
Location As String) As Boolean
Try
mCurrentFile = GetFileName(URL)
Dim WC As New WebClient
WC.DownloadFile(URL, Location)
RaiseEvent FileDownloadComplete()
Return True
Catch ex As Exception
RaiseEvent FileDownloadFailed(ex)
Return False
End Try
End Function
Public Function DownloadFileWithProgress(ByVal URL
As String, ByVal Location As String) As Boolean
Dim FS As FileStream
Try
mCurrentFile = GetFileName(URL)
Dim wRemote As WebRequest
Dim bBuffer As Byte()
ReDim bBuffer(256)
Dim iBytesRead As Integer
Dim iTotalBytesRead As Integer
FS = New FileStream(Location, FileMode.Create,
FileAccess.Write)
wRemote = WebRequest.Create(URL)
Dim myWebResponse As WebResponse =
wRemote.GetResponse
RaiseEvent FileDownloadSizeObtained
(myWebResponse.ContentLength)
Dim sChunks As Stream =
myWebResponse.GetResponseStream
Do
' Check if Stopped
If (mStopped) Then Exit Do
iBytesRead = sChunks.Read(bBuffer, 0, 256)
FS.Write(bBuffer, 0, iBytesRead)
iTotalBytesRead += iBytesRead
If myWebResponse.ContentLength <
iTotalBytesRead Then
RaiseEvent AmountDownloadedChanged
(myWebResponse.ContentLength)
Else
RaiseEvent AmountDownloadedChanged
(iTotalBytesRead)
End If
Loop While Not iBytesRead = 0
sChunks.Close()
FS.Close()
RaiseEvent FileDownloadComplete()
Return True
Catch ex As Exception
If Not (FS Is Nothing) Then
FS.Close()
FS = Nothing
End If
RaiseEvent FileDownloadFailed(ex)
Return False
End Try
End Function
در ضمن قابل ذکره که فقط مجاز به استفاده از همین کد هستم و
دستور دیگری که در my.network قرار داره به کار نمیاید.
تشکر
Public Function DownloadFile(ByVal URL As String, ByVal
Location As String) As Boolean
Try
mCurrentFile = GetFileName(URL)
Dim WC As New WebClient
WC.DownloadFile(URL, Location)
RaiseEvent FileDownloadComplete()
Return True
Catch ex As Exception
RaiseEvent FileDownloadFailed(ex)
Return False
End Try
End Function
Public Function DownloadFileWithProgress(ByVal URL
As String, ByVal Location As String) As Boolean
Dim FS As FileStream
Try
mCurrentFile = GetFileName(URL)
Dim wRemote As WebRequest
Dim bBuffer As Byte()
ReDim bBuffer(256)
Dim iBytesRead As Integer
Dim iTotalBytesRead As Integer
FS = New FileStream(Location, FileMode.Create,
FileAccess.Write)
wRemote = WebRequest.Create(URL)
Dim myWebResponse As WebResponse =
wRemote.GetResponse
RaiseEvent FileDownloadSizeObtained
(myWebResponse.ContentLength)
Dim sChunks As Stream =
myWebResponse.GetResponseStream
Do
' Check if Stopped
If (mStopped) Then Exit Do
iBytesRead = sChunks.Read(bBuffer, 0, 256)
FS.Write(bBuffer, 0, iBytesRead)
iTotalBytesRead += iBytesRead
If myWebResponse.ContentLength <
iTotalBytesRead Then
RaiseEvent AmountDownloadedChanged
(myWebResponse.ContentLength)
Else
RaiseEvent AmountDownloadedChanged
(iTotalBytesRead)
End If
Loop While Not iBytesRead = 0
sChunks.Close()
FS.Close()
RaiseEvent FileDownloadComplete()
Return True
Catch ex As Exception
If Not (FS Is Nothing) Then
FS.Close()
FS = Nothing
End If
RaiseEvent FileDownloadFailed(ex)
Return False
End Try
End Function