[VB.NET] การอัพโหลดและดาวน์โหลดไฟล์ภาพด้วย WinSCP กับ Free Hosting - Serv00.com

thongkorn

การอัพโหลดและดาวน์โหลดไฟล์ภาพด้วย WinSCP กับ Free Hosting - wwwServ00.com  






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

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

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

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