Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Xojo Plugin) SFTP Read Text FileDemonstrates how to open a text file on the SSH server and read text.
// This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim sftp As New Chilkat.SFtp // Set some timeouts, in milliseconds: sftp.ConnectTimeoutMs = 5000 sftp.IdleTimeoutMs = 15000 // Connect to the SSH server. // The standard SSH port = 22 // The hostname may be a hostname or IP address. Dim hostname As String hostname = "sftp.example.com" Dim port As Int32 port = 22 Dim success As Boolean success = sftp.Connect(hostname,port) If (success <> True) Then System.DebugLog(sftp.LastErrorText) Return End If // Authenticate with the SSH server. Chilkat SFTP supports // both password-based authenication as well as public-key // authentication. This example uses password authenication. success = sftp.AuthenticatePw("myLogin","myPassword") If (success <> True) Then System.DebugLog(sftp.LastErrorText) Return End If // After authenticating, the SFTP subsystem must be initialized: success = sftp.InitializeSftp() If (success <> True) Then System.DebugLog(sftp.LastErrorText) Return End If // Open a file for reading. Dim handle As String handle = sftp.OpenFile("myTest.txt","readOnly","openExisting") If (sftp.LastMethodSuccess <> True) Then System.DebugLog(sftp.LastErrorText) Return End If // Assume the file we are reading contains the following text: // abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ // (in ANSI format -- i.e. one byte per char). // Read 26 bytes: Dim sText As String sText = sftp.ReadFileText(handle,26,"ansi") If (sftp.LastMethodSuccess <> True) Then System.DebugLog(sftp.LastErrorText) Return End If // Should print "abcdefghijklmnopqrstuvwxyz" System.DebugLog(sText) // Read the next 10 bytes. sText = sftp.ReadFileText(handle,10,"ansi") If (sftp.LastMethodSuccess <> True) Then System.DebugLog(sftp.LastErrorText) Return End If // Should print "1234567890" System.DebugLog(sText) // Read the next 26 bytes. sText = sftp.ReadFileText(handle,26,"ansi") If (sftp.LastMethodSuccess <> True) Then System.DebugLog(sftp.LastErrorText) Return End If // Should print "ABCDEFGHIJKLMNOPQRSTUVWXYZ" System.DebugLog(sText) // Close the file. success = sftp.CloseHandle(handle) If (success <> True) Then System.DebugLog(sftp.LastErrorText) Return End If System.DebugLog("Success.") |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.