[VB.NET] การอัพโหลดไฟล์ขึ้นสู่โฮสติ้งด้วยการใช้โปรโตคอล SFTP

thongkorn

จากตอนที่แล้วเราได้ อัพโหลดไฟล์ด้วยการใช้โปรโตคอล FTP คราวนี้ลองมาใช้ SFTP กันดูบ้าง ... SFTP หรือ Secure File Transfer Protocol เป็นโปรแกรมที่ใช้ในการส่งถ่ายข้อมูลไฟล์เอกสาร โดยลักษณะเด่นของ SFTP คือ การทำงานบน SSH ซึ่งมีการเข้ารหัสข้อมูล ทำให้การส่งย้ายไฟล์มีความปลอดภัยมากยิ่งขึ้นเมื่อเทียบกับ FTP ธรรมดา ... สมัครใช้งานฟรีโฮสติ้ง HelioHost.org ได้ที่ ...

ต้อง Add Reference เข้ามาด้วยล่ะครับ ... ดาวน์โหลด Chilkat .Net Component ได้ที่นี่ (สำหรับสมาชิกเท่านั้น)

สำหรับการเข้าสู่ระบบผ่าน FTP Client ไปยัง HelioHost.org ...


มาดูโค้ดกันเถอะ ...

1. Imports System.IO
   
2. Imports System.Net
   
3. Imports Chilkat.Ftp2
   
4. 
   
5. Public Class frmUploadImageSFTP
   
6.     Dim UploadFileName As String = ""  '// Full Path and File name of Image.
   
7.     Dim streamPic As Stream     '// Use Steam instead IO.
   
8.     Dim PicturePath As String = MyPath(Application.StartupPath) & "Images"
   
9.     '// แยกชื่อไฟล์+นามสกุล เพื่อทำการ Upload ไปยัง Hosting
   
10.     Dim MyPictureName As String = String.Empty
    
11.     '// ลิ้งค์ที่จะทำการแสดงผลภาพ หลังจากการอัพโหลด (สร้างโฟลเดอร์ upload เพิ่มขึ้นด้วยครับ)
    
12.     Dim MyURL As String = "http://g2gnet.heliohost.org/upload/"
    
13. 
    
14.     Private Sub frmUploadImageSFTP_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
15.         Call UnlockChilkat()
    
16.         '// Initialized.
    
17.         '// For HelioHost.org
    
18.         txtRemoteDir.Text = "/home/g2gnet/public_html/upload/"
    
19.         Label1.Text = ""
    
20.         picData.Image = Image.FromFile(PicturePath + "NoImage.gif")
    
21.         Label3.Text = MyURL
    
22.     End Sub
    
23. 
    
24.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
25.         Dim dlgImage As OpenFileDialog = New OpenFileDialog()
    
26.         ' / Open File Dialog
    
27.         With dlgImage
    
28.             '.InitialDirectory = PicturePath 'PicturePath
    
29.             .Title = "เลือกภาพ"
    
30.             .Filter = "รูปแบบภาพ (*.jpg;*.png;*.gif;*.bmp)|*.jpg;*.png;*.gif;*.bmp"
    
31.             .FilterIndex = 1
    
32.             .RestoreDirectory = True
    
33.         End With
    
34.         ' Select OK after Browse ...
    
35.         If dlgImage.ShowDialog() = DialogResult.OK Then
    
36.             '// New Image
    
37.             UploadFileName = dlgImage.FileName
    
38.             ' Get file size
    
39.             Dim info As New FileInfo(dlgImage.FileName)
    
40.             If (info.Length / 1024) > 1024 Then
    
41.                 MessageBox.Show("ไฟล์ภาพที่คุณเลือกมีขนาด " & Format((info.Length / 1024), "#,##0") & " KB. ซึ่งมีขนาดใหญ่เกินกว่า 1,024 KB.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
42.                 Exit Sub
    
43.             End If
    
44.             Dim arr() As String = Split(dlgImage.FileName, "")
    
45.             '// ตัดเอาเฉพาะชื่อไฟล์ เช่น sample.png เพื่อส่งค่าไปต่อ RemoteDir
    
46.             MyPictureName = arr(UBound(arr))
    
47.             '/
    
48.             picData.Image = Image.FromFile(UploadFileName)
    
49.             Label1.Text = UploadFileName
    
50.         End If
    
51.     End Sub
    
52. 
    
53.     ' / -----------------------------------------------------------------------------
    
54.     ' / Use Steam instead IO.
    
55.     ' / -----------------------------------------------------------------------------
    
56.     Sub ShowPicture(PicName As String)
    
57.         Dim imgDB As Image
    
58.         ' Get the name of the image file from the database.
    
59.         If PicName.ToString <> "" Then
    
60.             ' Verify that the image file meets the specified location.
    
61.             If System.IO.File.Exists(PicturePath & PicName.ToString) Then
    
62.                 ' Because when deleting the image file is locked, it can not be removed.
    
63.                 ' The file is closed after the image is loaded, so you can delete the file if you need to
    
64.                 streamPic = File.OpenRead(PicturePath & PicName.ToString)
    
65.                 imgDB = Image.FromStream(streamPic)
    
66.                 picData.Image = imgDB
    
67.                 UploadFileName = PicName
    
68.             Else
    
69.                 ' No images were retrieved from the database.
    
70.                 streamPic = File.OpenRead(PicturePath & "NoImage.gif")
    
71.                 imgDB = Image.FromStream(streamPic)
    
72.                 picData.Image = imgDB
    
73.                 UploadFileName = ""
    
74.             End If
    
75.             ' Is null
    
76.         Else
    
77.             streamPic = File.OpenRead(PicturePath & "NoImage.gif")
    
78.             imgDB = Image.FromStream(streamPic)
    
79.             picData.Image = imgDB
    
80.             UploadFileName = ""
    
81.         End If
    
82.         '//
    
83.         streamPic.Dispose()
    
84.     End Sub
    
85. 
    
86.     Private Sub btnDeleteImg_Click(sender As System.Object, e As System.EventArgs) Handles btnDeleteImg.Click
    
87.         picData.Image = Image.FromFile(PicturePath & "NoImage.gif")
    
88.         UploadFileName = ""
    
89.         Label1.Text = ""
    
90.     End Sub
    
91. 
    
92.     Private Sub btnUpload_Click(sender As System.Object, e As System.EventArgs) Handles btnUpload.Click
    
93.         If picData.Image Is Nothing Or UploadFileName Is Nothing Or UploadFileName.Length = 0 Or UploadFileName = "" Then
    
94.             MessageBox.Show("Please select the image file first.", "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
95.             Return
    
96.         End If
    
97.         '//
    
98.         Me.Cursor = Cursors.WaitCursor
    
99.         '// Upload to Hosting with SFTP.
    
100.         Call UploadSFTP()
     
101.         '// Show Image From URL.
     
102.         Call ShowImgURL(MyPictureName, picURL)
     
103.         Me.Cursor = Cursors.Default
     
104.         '// Clear
     
105.         UploadFileName = ""
     
106.         picData.Image = Image.FromFile(PicturePath + "NoImage.gif")
     
107.         Label1.Text = ""
     
108.     End Sub
     
109. 
     
110.     Private Sub UploadSFTP()
     
111.         Dim sftp As New Chilkat.SFtp
     
112.         '/ Set some timeouts, in milliseconds: 1 Sec = 1,000 ms.
     
113.         sftp.ConnectTimeoutMs = 15000
     
114.         sftp.IdleTimeoutMs = 15000
     
115.         '/ Connect to the SSH server.  
     
116.         '/ The standard SSH port = 22
     
117.         '/ The hostname may be a hostname or IP address.
     
118.         Dim hostname As String = "johnny.heliohost.org"
     
119.         Dim port As Integer = 1373
     
120.         Dim success As Boolean = sftp.Connect(hostname, port)
     
121.         If (success <> True) Then
     
122.             MessageBox.Show(sftp.LastErrorText)
     
123.             Exit Sub
     
124.         End If
     
125.         '/ Authenticate with the SSH server.  Chilkat SFTP supports
     
126.         '/ both password-based authenication as well as public-key
     
127.         '/ authentication.  This example uses password authenication.
     
128.         Dim Username As String = "SUPERUSER"
     
129.         Dim Password As String = "PASSWORD"
     
130.         success = sftp.AuthenticatePw(Username, Password)
     
131.         If (success <> True) Then
     
132.             MessageBox.Show(sftp.LastErrorText)
     
133.             Exit Sub
     
134.         End If
     
135.         '/ After authenticating, the SFTP subsystem must be initialized:
     
136.         success = sftp.InitializeSftp()
     
137.         If (success <> True) Then
     
138.             MessageBox.Show(sftp.LastErrorText)
     
139.             Exit Sub
     
140.         End If
     
141.         '/ Upload from the local file to the SSH server.
     
142.         '/ Important -- the remote filepath is the 1st argument,
     
143.         '/ the local filepath is the 2nd argument;
     
144.         Dim remoteFilePath As String = txtRemoteDir.Text + MyPictureName ' "/home/g2gnet/public_html/upload/" + MyPictureName
     
145.         Dim localFilePath As String = UploadFileName
     
146.         success = sftp.UploadFileByName(remoteFilePath, localFilePath)
     
147.         If (success <> True) Then
     
148.             MessageBox.Show(sftp.LastErrorText)
     
149.             Exit Sub
     
150.         End If
     
151.         MessageBox.Show("File Uploaded Complete.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
152.     End Sub
     
153. 
     
154.     '// Show Image From URL.
     
155.     Public Sub ShowImgURL(PicName As String, ByRef picData As PictureBox)
     
156.         '// Check
     
157.         If Not IsValid(MyURL & PicName) Or PicName = "" Then
     
158.             PicName = "NoImage.gif"
     
159.         End If
     
160.         Dim wClient As WebClient = New WebClient
     
161.         Dim bmpImage As Bitmap = Bitmap.FromStream(New MemoryStream(wClient.DownloadData(MyURL & PicName + "?r=" + DateTime.Now.Ticks.ToString)))
     
162.         Try
     
163.             With picData
     
164.                 .SizeMode = PictureBoxSizeMode.StretchImage
     
165.                 .WaitOnLoad = True ' False
     
166.                 picData.Image = bmpImage
     
167.             End With
     
168.         Catch ex As Exception
     
169.             MessageBox.Show(ex.Message)
     
170.         End Try
     
171.     End Sub
     
172. 
     
173.     '// Check Valid Image.
     
174.     Public Function IsValid(ByVal Url As String) As Boolean
     
175.         Dim sStream As Stream
     
176.         Dim URLReq As HttpWebRequest
     
177.         Dim URLRes As HttpWebResponse
     
178.         Try
     
179.             URLReq = WebRequest.Create(Url + "?r=" + DateTime.Now.Ticks.ToString)
     
180.             URLRes = URLReq.GetResponse()
     
181.             sStream = URLRes.GetResponseStream()
     
182.             Dim reader As String = New StreamReader(sStream).ReadToEnd()
     
183.             Return True
     
184.         Catch ex As Exception
     
185.             'Url not valid
     
186.             Return False
     
187.         End Try
     
188.     End Function
     
189. 
     
190.     Public Sub UnlockChilkat()
     
191.         Dim glob As New Chilkat.Global
     
192.         Dim success As Boolean = glob.UnlockBundle("LOCK_KEY")
     
193.         If (success <> True) Then
     
194.             MessageBox.Show(glob.LastErrorText)
     
195.             Exit Sub
     
196.         End If
     
197.         Dim status As Integer = glob.UnlockStatus
     
198.         If (status = 2) Then
     
199.             'MessageBox.Show("Unlocked using purchased unlock code.")
     
200.         Else
     
201.             MessageBox.Show("Unlocked in trial mode.")
     
202.         End If
     
203.     End Sub
     
204. 
     
205.     ' / Get my project path
     
206.     ' / AppPath = C:\My Project\bin\debug
     
207.     ' / Replace "\bin\debug" with ""
     
208.     ' / Return : C:\My Project\
     
209.     Function MyPath(ByVal AppPath As String) As String
     
210.         '/ MessageBox.Show(AppPath);
     
211.         AppPath = AppPath.ToLower()
     
212.         '/ Return Value
     
213.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
     
214.         '// If not found folder then put the \ (BackSlash) at the end.
     
215.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
216.     End Function
     
217. 
     
218.     Private Sub frmUploadImageSFTP_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
219.         Me.Dispose()
     
220.         GC.SuppressFinalize(Me)
     
221.         Application.Exit()
     
222.     End Sub
     
223. 
     
224. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับแบบเต็ม VB.NET (2010) ได้ที่นี่ ...

g2gsoftuser

ขอบคุณครับ