SSH.NET 的 SFTP 进度
SFTP Progress with SSH.NET
VB2010 与 SSH.NET.
我已经下载并实现了库来进行 SFTP 下载，效果很好。我一直在查看文档和示例，但看不出如何实现 SFTP 下载并取得进展。我想显示下载的进度。到目前为止我有：
Imports Renci.SshNet
Imports System.IO
Using sftp As New SftpClient("0.0.0.0", 25, "id", "pwd")
'connect to the server
sftp.Connect()
'the name of the remote file we want to transfer to the PC
Dim remoteFileName As String = "/data/OUT/trips.txt"
'download the file as a memory stream and convert to a file stream
Using ms As New MemoryStream
'download as memory stream
sftp.DownloadFile(remoteFileName, ms)
'create a file stream
Dim fs As New FileStream("c:\mytrips.txt", FileMode.Create, FileAccess.Write)
'write the memory stream to the file stream
ms.WriteTo(fs)
'close file stream
fs.Close()
'close memory stream
ms.Close()
End Using
'disconnect from the server
sftp.Disconnect()
MsgBox("The file has been downloaded from the server.", MsgBoxStyle.Information)
End Using
编辑：好的，我做了一些研究并在 codeplex 讨论论坛中找到了一个示例。从中我了解到还有另一个我将使用的异步下载功能。它是在调试 window 中显示进度的好方法，也是一个进度条控件。欢迎评论。
Imports Renci.SshNet
Imports System.IO
Imports Renci.SshNet.Sftp
Dim fileSize As Long
Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click
Try
Using sftp As New SftpClient("0.0.0.0", 25, "id", "pwd")
'connect to the server
sftp.Connect()
'the name of the remote file we want to transfer to the PC
Dim remoteFileName As String = "/Data/OUT/Config.txt"
'check for existence of the file
Dim IsExists As Boolean = sftp.Exists(remoteFileName)
If IsExists Then
'get the attributes of the file (namely the size)
Dim att As Sftp.SftpFileAttributes = sftp.GetAttributes(remoteFileName)
fileSize = att.Size
'download the file as a memory stream and convert to a file stream
Using ms As New MemoryStream
'download as memory stream
'sftp.DownloadFile(remoteFileName, ms, AddressOf DownloadCallback) 'with download progress
'sftp.DownloadFile(remoteFileName, ms) 'without download progress
'here we try an asynchronous operation and wait for it to complete.
Dim asyncr As IAsyncResult = sftp.BeginDownloadFile(remoteFileName, ms)
Dim sftpAsyncr As SftpDownloadAsyncResult = CType(asyncr, SftpDownloadAsyncResult)
While Not sftpAsyncr.IsCompleted
Dim pct As Integer = CInt((sftpAsyncr.DownloadedBytes / fileSize) * 100)
Debug.Print("Downloaded {0} of {1} ({2}%).", sftpAsyncr.DownloadedBytes, fileSize, pct)
pgbMain.Value = pct
Application.DoEvents()
End While
sftp.EndDownloadFile(asyncr)
'create a file stream
Dim localFileName As String = "c:\" & Date.Now.ToString("yyyy-dd-MM_HHmmss") & "_test.txt"
Dim fs As New FileStream(localFileName, FileMode.Create, FileAccess.Write)
'write the memory stream to the file stream
ms.WriteTo(fs)
'close file stream
fs.Close()
'close memory stream
ms.Close()
End Using
'disconnect from the server
sftp.Disconnect()
'success
MsgBox("The file has been downloaded from the server.", MsgBoxStyle.Information)
Else
MsgBox("The file does not exist on the server.", MsgBoxStyle.Exclamation)
End If
End Using
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical)
Finally
Me.Cursor = Cursors.Default
End Try
End Sub
我的测试文件下载需要 0.4 秒，因此很难看到进度。大文件测试非常好。
我做了一些研究，并在 codeplex 讨论论坛中找到了一个示例。从中我了解到还有另一个我将使用的异步下载功能。它是在调试 window 中显示进度的好方法，也是一个进度条控件。欢迎评论
Imports Renci.SshNet
Imports System.IO
Imports Renci.SshNet.Sftp
Dim fileSize As Long
Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click
Try
Using sftp As New SftpClient("0.0.0.0", 25, "id", "pwd")
'connect to the server
sftp.Connect()
'the name of the remote file we want to transfer to the PC
Dim remoteFileName As String = "/Data/OUT/Config.txt"
'check for existence of the file
Dim IsExists As Boolean = sftp.Exists(remoteFileName)
If IsExists Then
'get the attributes of the file (namely the size)
Dim att As Sftp.SftpFileAttributes = sftp.GetAttributes(remoteFileName)
fileSize = att.Size
'download the file as a memory stream and convert to a file stream
Using ms As New MemoryStream
'download as memory stream
'sftp.DownloadFile(remoteFileName, ms, AddressOf DownloadCallback) 'with download progress
'sftp.DownloadFile(remoteFileName, ms) 'without download progress
'here we try an asynchronous operation and wait for it to complete.
Dim asyncr As IAsyncResult = sftp.BeginDownloadFile(remoteFileName, ms)
Dim sftpAsyncr As SftpDownloadAsyncResult = CType(asyncr, SftpDownloadAsyncResult)
While Not sftpAsyncr.IsCompleted
Dim pct As Integer = CInt((sftpAsyncr.DownloadedBytes / fileSize) * 100)
Debug.Print("Downloaded {0} of {1} ({2}%).", sftpAsyncr.DownloadedBytes, fileSize, pct)
pgbMain.Value = pct
Application.DoEvents()
End While
sftp.EndDownloadFile(asyncr)
'create a file stream
Dim localFileName As String = "c:\" & Date.Now.ToString("yyyy-dd-MM_HHmmss") & "_test.txt"
Dim fs As New FileStream(localFileName, FileMode.Create, FileAccess.Write)
'write the memory stream to the file stream
ms.WriteTo(fs)
'close file stream
fs.Close()
'close memory stream
ms.Close()
End Using
'disconnect from the server
sftp.Disconnect()
'success
MsgBox("The file has been downloaded from the server.", MsgBoxStyle.Information)
Else
MsgBox("The file does not exist on the server.", MsgBoxStyle.Exclamation)
End If
End Using
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical)
Finally
Me.Cursor = Cursors.Default
End Try
End Sub
VB2010 与 SSH.NET.
我已经下载并实现了库来进行 SFTP 下载，效果很好。我一直在查看文档和示例，但看不出如何实现 SFTP 下载并取得进展。我想显示下载的进度。到目前为止我有：
Imports Renci.SshNet
Imports System.IO
Using sftp As New SftpClient("0.0.0.0", 25, "id", "pwd")
'connect to the server
sftp.Connect()
'the name of the remote file we want to transfer to the PC
Dim remoteFileName As String = "/data/OUT/trips.txt"
'download the file as a memory stream and convert to a file stream
Using ms As New MemoryStream
'download as memory stream
sftp.DownloadFile(remoteFileName, ms)
'create a file stream
Dim fs As New FileStream("c:\mytrips.txt", FileMode.Create, FileAccess.Write)
'write the memory stream to the file stream
ms.WriteTo(fs)
'close file stream
fs.Close()
'close memory stream
ms.Close()
End Using
'disconnect from the server
sftp.Disconnect()
MsgBox("The file has been downloaded from the server.", MsgBoxStyle.Information)
End Using
编辑：好的，我做了一些研究并在 codeplex 讨论论坛中找到了一个示例。从中我了解到还有另一个我将使用的异步下载功能。它是在调试 window 中显示进度的好方法，也是一个进度条控件。欢迎评论。
Imports Renci.SshNet
Imports System.IO
Imports Renci.SshNet.Sftp
Dim fileSize As Long
Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click
Try
Using sftp As New SftpClient("0.0.0.0", 25, "id", "pwd")
'connect to the server
sftp.Connect()
'the name of the remote file we want to transfer to the PC
Dim remoteFileName As String = "/Data/OUT/Config.txt"
'check for existence of the file
Dim IsExists As Boolean = sftp.Exists(remoteFileName)
If IsExists Then
'get the attributes of the file (namely the size)
Dim att As Sftp.SftpFileAttributes = sftp.GetAttributes(remoteFileName)
fileSize = att.Size
'download the file as a memory stream and convert to a file stream
Using ms As New MemoryStream
'download as memory stream
'sftp.DownloadFile(remoteFileName, ms, AddressOf DownloadCallback) 'with download progress
'sftp.DownloadFile(remoteFileName, ms) 'without download progress
'here we try an asynchronous operation and wait for it to complete.
Dim asyncr As IAsyncResult = sftp.BeginDownloadFile(remoteFileName, ms)
Dim sftpAsyncr As SftpDownloadAsyncResult = CType(asyncr, SftpDownloadAsyncResult)
While Not sftpAsyncr.IsCompleted
Dim pct As Integer = CInt((sftpAsyncr.DownloadedBytes / fileSize) * 100)
Debug.Print("Downloaded {0} of {1} ({2}%).", sftpAsyncr.DownloadedBytes, fileSize, pct)
pgbMain.Value = pct
Application.DoEvents()
End While
sftp.EndDownloadFile(asyncr)
'create a file stream
Dim localFileName As String = "c:\" & Date.Now.ToString("yyyy-dd-MM_HHmmss") & "_test.txt"
Dim fs As New FileStream(localFileName, FileMode.Create, FileAccess.Write)
'write the memory stream to the file stream
ms.WriteTo(fs)
'close file stream
fs.Close()
'close memory stream
ms.Close()
End Using
'disconnect from the server
sftp.Disconnect()
'success
MsgBox("The file has been downloaded from the server.", MsgBoxStyle.Information)
Else
MsgBox("The file does not exist on the server.", MsgBoxStyle.Exclamation)
End If
End Using
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical)
Finally
Me.Cursor = Cursors.Default
End Try
End Sub
我的测试文件下载需要 0.4 秒，因此很难看到进度。大文件测试非常好。
我做了一些研究，并在 codeplex 讨论论坛中找到了一个示例。从中我了解到还有另一个我将使用的异步下载功能。它是在调试 window 中显示进度的好方法，也是一个进度条控件。欢迎评论
Imports Renci.SshNet
Imports System.IO
Imports Renci.SshNet.Sftp
Dim fileSize As Long
Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click
Try
Using sftp As New SftpClient("0.0.0.0", 25, "id", "pwd")
'connect to the server
sftp.Connect()
'the name of the remote file we want to transfer to the PC
Dim remoteFileName As String = "/Data/OUT/Config.txt"
'check for existence of the file
Dim IsExists As Boolean = sftp.Exists(remoteFileName)
If IsExists Then
'get the attributes of the file (namely the size)
Dim att As Sftp.SftpFileAttributes = sftp.GetAttributes(remoteFileName)
fileSize = att.Size
'download the file as a memory stream and convert to a file stream
Using ms As New MemoryStream
'download as memory stream
'sftp.DownloadFile(remoteFileName, ms, AddressOf DownloadCallback) 'with download progress
'sftp.DownloadFile(remoteFileName, ms) 'without download progress
'here we try an asynchronous operation and wait for it to complete.
Dim asyncr As IAsyncResult = sftp.BeginDownloadFile(remoteFileName, ms)
Dim sftpAsyncr As SftpDownloadAsyncResult = CType(asyncr, SftpDownloadAsyncResult)
While Not sftpAsyncr.IsCompleted
Dim pct As Integer = CInt((sftpAsyncr.DownloadedBytes / fileSize) * 100)
Debug.Print("Downloaded {0} of {1} ({2}%).", sftpAsyncr.DownloadedBytes, fileSize, pct)
pgbMain.Value = pct
Application.DoEvents()
End While
sftp.EndDownloadFile(asyncr)
'create a file stream
Dim localFileName As String = "c:\" & Date.Now.ToString("yyyy-dd-MM_HHmmss") & "_test.txt"
Dim fs As New FileStream(localFileName, FileMode.Create, FileAccess.Write)
'write the memory stream to the file stream
ms.WriteTo(fs)
'close file stream
fs.Close()
'close memory stream
ms.Close()
End Using
'disconnect from the server
sftp.Disconnect()
'success
MsgBox("The file has been downloaded from the server.", MsgBoxStyle.Information)
Else
MsgBox("The file does not exist on the server.", MsgBoxStyle.Exclamation)
End If
End Using
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical)
Finally
Me.Cursor = Cursors.Default
End Try
End Sub