[VB.NET] โค้ดการใช้งาน FTP (File Transfer Protocol) ด้วยของฟรีจาก WinSCP.Net

thongkorn

Add References ... WinSCPnet.DLL ...

โค้ดการใช้งาน FTP ด้วยของฟรีจาก WinSCP .Net (DLL อยู่ใน Source Code) แอดมินเลือกใช้ Hosting ของฟรีจาก www.serv00.com ซึ่งต้องไปสมัครเข้าใช้งานก่อนครับ ... Hosting ตัวนี้เป็น Linux Server ให้พื้นที่มา 3 GB. ซึ่งจะให้ Sub Domain มาด้วย จุดประสงค์ก็เพื่อที่จะทำการอัพโหลดไฟล์ภาพไปเก็บเอาไว้ ก่อนที่จะส่งภาพต่อไปยัง Line Messaging API เพราะ Line ไม่รองรับการอัปโหลดไฟล์ภาพหรือวิดีโอโดยตรงจากเครื่องผู้ใช้ (เช่น C:\image.jpg) ผ่าน API ประเภท push หรือ reply message LINE ต้องการไฟล์ผ่าน URL เท่านั้น ...

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

1. Imports System.IO
   
2. Imports System.Net
   
3. Imports WinSCP
   
4. 
   
5. Public Class frmWinSCPFtp
   
6.     '// ------------------------------------------------------------------------------------------------
   
7.     '// แยกชื่อไฟล์+นามสกุล ออกจากโฟลเดอร์ เพื่อทำการ Upload ไปยัง Hosting
   
8.     Dim UploadFileName As String = ""
   
9.     '// Default path.
   
10.     Dim PicturePath As String = MyPath(Application.StartupPath) & "Images"
    
11. 
    
12.     '// ตำแหน่งของไฟล์ภาพบน Hosting เพื่อนำมาแสดงผล (โฟลเดอร์ uploadimages อยู่ภายใต้ public_html)
    
13.     '// ต้องเปลี่ยน Sub Domain จาก g2gnet ให้เป็นไปตามที่สมัครเอาไว้ด้วยล่ะครับ
    
14.     Dim MyURL As String = "https://g2gnet.serv00.net/uploadimages/"
    
15.     '// ตำแหน่งในการอัพโหลดไฟล์ภาพ (FTP)
    
16.     Dim RemoteDir As String = "domains/g2gnet.serv00.net/public_html/uploadimages/"
    
17.     '// For Login to Hosting.
    
18.     Dim HostName As String = "HOST_NAME"
    
19.     Dim UName As String = "USER_NAME"
    
20.     Dim Pwd As String = "PASSWORD"
    
21. 
    
22.     '// ------------------------------------------------------------------------------------------------
    
23.     '// START HERE
    
24.     Private Sub frmWinSCPFtp_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
25.         '// Local image file.
    
26.         picData.Image = Image.FromFile(PicturePath + "NoImage.gif")
    
27.         picURL.Image = Image.FromFile(PicturePath + "NoImage.gif")
    
28.         lblRemoteDir.Text = MyURL
    
29.         lblLocalDir.Text = "File Upload: "
    
30.     End Sub
    
31. 
    
32.     Private Sub txtLocalFileName_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtLocalFileName.KeyPress
    
33.         '// Lock keypress.
    
34.         e.Handled = True
    
35.     End Sub
    
36. 
    
37.     '// ------------------------------------------------------------------------------------------------
    
38.     '// เลือกรูปภาพในการ Upload.
    
39.     '// ------------------------------------------------------------------------------------------------
    
40.     Private Sub tsBrowse_Click(sender As System.Object, e As System.EventArgs) Handles tsBrowse.Click
    
41.         Dim dlgImage As OpenFileDialog = New OpenFileDialog()
    
42.         '// Open File Dialog
    
43.         With dlgImage
    
44.             .InitialDirectory = PicturePath
    
45.             .Title = "Select Image File"
    
46.             .Filter = "Format (*.jpg;*.jpeg;*.png)|*.jpg;*.jpeg;*.png"
    
47.             .FilterIndex = 1
    
48.             .RestoreDirectory = True
    
49.         End With
    
50.         '// Select OK after Browse ...
    
51.         If dlgImage.ShowDialog() = DialogResult.OK Then
    
52.             '// Check file size don't over 1 MB.
    
53.             Dim info As New FileInfo(dlgImage.FileName)
    
54.             If (info.Length / 1024) > 1024 Then
    
55.                 MessageBox.Show("The image file you selected is of size " & Format((info.Length / 1024), "#,##0") & " KB. which is too big more than 1,024 KB.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
56.                 Exit Sub
    
57.             End If
    
58.             '// แสดงผลตำแหน่งไฟล์ภาพไว้ใน TextBox Control
    
59.             txtLocalFileName.Text = dlgImage.FileName
    
60.             '// Put the current image file into PictureBox Control.
    
61.             picData.Image = Image.FromFile(dlgImage.FileName)
    
62.             '// เอาเฉพาะชื่อไฟล์และนามสกุลภาพ (Filename + Extension) เช่น thongkorn.png
    
63.             UploadFileName = dlgImage.SafeFileName
    
64.             '// เคลียร์ภาพจากการโหลด Remote
    
65.             picURL.Image = Image.FromFile(PicturePath & "NoImage.gif")
    
66.             lblLocalDir.Text = "File Upload: " & txtLocalFileName.Text
    
67.         End If
    
68.     End Sub
    
69. 
    
70.     '// ------------------------------------------------------------------------------------------------
    
71.     '// UPLOAD FILE.
    
72.     '// ------------------------------------------------------------------------------------------------
    
73.     Private Sub tsUpload_Click(sender As System.Object, e As System.EventArgs) Handles tsUpload.Click
    
74.         If txtLocalFileName.Text.Trim.Length = 0 Then Return
    
75.         If picData.Image Is Nothing Or UploadFileName Is Nothing Or UploadFileName.Length = 0 Or UploadFileName = "" Then
    
76.             MessageBox.Show("Please select the image file first.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
77.             Return
    
78.         End If
    
79.         '//
    
80.         Me.Cursor = Cursors.WaitCursor
    
81.         Try
    
82.             '// Setup session options
    
83.             Dim sessionOptions As New SessionOptions
    
84.             With sessionOptions
    
85.                 .Protocol = Protocol.Ftp
    
86.                 .HostName = HostName
    
87.                 .UserName = UName
    
88.                 .Password = Pwd
    
89.                 '// FTP ไม่ต้องใช้
    
90.                 '.SshHostKeyFingerprint = "ssh-rsa 2048 XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX"
    
91.             End With
    
92.             Using Session As New Session
    
93.                 '// Connect
    
94.                 Session.Open(sessionOptions)
    
95.                 '// Upload files
    
96.                 Dim TransferOptions As New TransferOptions
    
97.                 TransferOptions.TransferMode = TransferMode.Binary
    
98. 
    
99.                 Dim TransferResult As TransferOperationResult
    
100.                 '// ตำแหน่งไฟล์ต้นฉบับแบบ Full Path และ Remote Directory ปลายทาง
     
101.                 TransferResult = Session.PutFiles(txtLocalFileName.Text, RemoteDir, False, TransferOptions)
     
102.                 '// Throw on any error
     
103.                 TransferResult.Check()
     
104. 
     
105.                 '// Show results.
     
106.                 For Each Transfer In TransferResult.Transfers
     
107.                     MessageBox.Show("Upload " & UploadFileName & " Successful.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
108.                 Next
     
109.             End Using
     
110. 
     
111.             '// Download image file and show on PictureBox (picURL).
     
112.             Dim Req As WebRequest = WebRequest.Create(MyURL & UploadFileName)
     
113.             Dim Res As WebResponse = Req.GetResponse()
     
114.             Dim imgStream As Stream = Res.GetResponseStream()
     
115.             Dim imgPic As Image = Image.FromStream(imgStream)
     
116.             imgStream.Close()
     
117.             '// Load File Stream into PictureBox.
     
118.             With picURL
     
119.                 picURL.Image = imgPic
     
120.                 .WaitOnLoad = True
     
121.                 .SizeMode = PictureBoxSizeMode.StretchImage
     
122.             End With
     
123.         Catch ex As Exception
     
124.             MessageBox.Show(ex.Message)
     
125.         Finally
     
126.             Me.Cursor = Cursors.Default
     
127.             lblLocalDir.Text = "File Upload: " & txtLocalFileName.Text
     
128.         End Try
     
129.     End Sub
     
130. 
     
131.     '// ------------------------------------------------------------------------------------------------
     
132.     '// เคลียร์รูปภาพออกจาก PictureBox และ TextBox
     
133.     '// ------------------------------------------------------------------------------------------------
     
134.     Private Sub tsClear_Click(sender As System.Object, e As System.EventArgs) Handles tsClear.Click
     
135.         txtLocalFileName.Clear()
     
136.         '// Local image file.
     
137.         picData.Image = Image.FromFile(PicturePath & "NoImage.gif")
     
138.         picURL.Image = Image.FromFile(PicturePath & "NoImage.gif")
     
139.         UploadFileName = ""
     
140.         lblLocalDir.Text = "File Upload: "
     
141.     End Sub
     
142. 
     
143.     Private Sub tsExit_Click(sender As System.Object, e As System.EventArgs) Handles tsExit.Click
     
144.         Me.Close()
     
145.     End Sub
     
146. 
     
147.     Private Sub frmWinSCPFtp_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
148.         Me.Dispose()
     
149.         GC.SuppressFinalize(Me)
     
150.         Application.Exit()
     
151.     End Sub
     
152. 
     
153. #Region "FUNCTION"
     
154.     '// --------------------------------------------------------------------------------
     
155.     '// Get my project path
     
156.     '// AppPath = C:\My Project\bin\debug
     
157.     '// Replace "\bin\debug" with ""
     
158.     '// Return : C:\My Project\
     
159.     Function MyPath(ByVal AppPath As String) As String
     
160.         '// Return Value
     
161.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
     
162.         '// If not found folder then put the \ (BackSlash) at the end.
     
163.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
164.     End Function
     
165. #End Region
     
166. End Class

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

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) + .Net Framework 4.0 ได้ที่นี่ ...