[VB.NET] การอัพโหลดภาพขึ้นสู่เว็บโฮสติ้ง และแสดงผลใน PictureBox Control

thongkorn

โค้ดชุดนี้แอดมินใช้ Chilkat.NET ในการอัพโหลดไฟล์ภาพ และทดสอบกับฟรีเว็บโฮสติ้ง www.freehostia.com ก็ลองไปสมัครใช้ฟรีกันดูน่ะครับ ...

Add References ...


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

1. Imports System.Net
   
2. Imports System.IO
   
3. Imports Chilkat.Ftp2
   
4. 
   
5. Public Class frmUploadImageURL
   
6.     Dim MyURL As String = "http://www.thongkorn.com/upload/"
   
7.     Dim RemoteDir = "thongkorn.com/upload/"
   
8.     '//
   
9.     Dim picFileName As String = String.Empty
   
10.     Dim picFullPath As String = String.Empty
    
11.     Dim LocalFolder As String = String.Empty
    
12. 
    
13.     Private Sub frmUploadImageURL_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
14.         '// สั่งปลดล็อคก่อนใช้งาน
    
15.         Call UnlockChilkat()
    
16.     End Sub
    
17. 
    
18.     '// นำภาพจาก URL มาแสดงผล
    
19.     Public Sub ShowImgURL()
    
20.         Try
    
21.             Dim wc As New WebClient
    
22.             Dim imgByte() As Byte = wc.DownloadData(txtRemote.Text)
    
23.             Dim imgStream As New MemoryStream(imgByte)
    
24.             With picRemote
    
25.                 .SizeMode = PictureBoxSizeMode.StretchImage
    
26.                 .WaitOnLoad = True ' False
    
27.                 .Image = Image.FromStream(imgStream)
    
28.             End With
    
29. 
    
30.         Catch ex As Exception
    
31.             MessageBox.Show(ex.Message)
    
32.         End Try
    
33.     End Sub
    
34. 
    
35.     Private Sub btnUpload_Click(sender As System.Object, e As System.EventArgs) Handles btnUpload.Click
    
36.         If txtLocal.Text.Trim = "" Or txtLocal.Text.Length = 0 Then Return
    
37.         '//
    
38.         Call UploadImageToURL()
    
39.         txtRemote.Text = MyURL & picFileName
    
40.         '//
    
41.         Call ShowImgURL()
    
42.     End Sub
    
43. 
    
44.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
45.         Dim dlgImage As OpenFileDialog = New OpenFileDialog()
    
46.         ' / Open File Dialog
    
47.         With dlgImage
    
48.             .Title = "Select images"
    
49.             .Filter = "Images types (*.jpg;*.png;*.gif;*.bmp)|*.jpg;*.png;*.gif;*.bmp"
    
50.             .FilterIndex = 1
    
51.             .RestoreDirectory = False 'True
    
52.         End With
    
53.         ' Select OK after Browse ...
    
54.         If dlgImage.ShowDialog() = DialogResult.OK Then
    
55.             Dim img As New Bitmap(dlgImage.FileName)
    
56.             If img.Size.Width > 600 Or img.Size.Height > 600 Then
    
57.                 MessageBox.Show("รูปภาพต้องมีขนาดกว้างและยาวไม่เกิน 600 พิกเซล.", "รายงานความผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
58.                 Exit Sub
    
59.             End If
    
60.             '// แยกโฟลเดอร์ และ ชื่อไฟล์
    
61.             Dim iArr() As String = {}
    
62.             iArr = Split(dlgImage.FileName, "")
    
63.             For i = 0 To UBound(iArr) - 1
    
64.                 LocalFolder = LocalFolder & iArr(i) & ""
    
65.             Next
    
66.             '// Get Local folder
    
67.             If Microsoft.VisualBasic.Right(LocalFolder, 1) <> "" Then LocalFolder += ""
    
68.             '// Get only Filename.
    
69.             picFileName = iArr(UBound(iArr))
    
70.             '// Image
    
71.             picFullPath = dlgImage.FileName
    
72.             txtLocal.Text = picFullPath
    
73.             picLocal.Image = Image.FromFile(picFullPath)
    
74.         End If
    
75. 
    
76.     End Sub
    
77. 
    
78.     Public Sub UploadImageToURL()
    
79.         If txtLocal.Text.Trim = "" Or IsNothing(txtLocal.Text.Trim) Then Return
    
80.         '//
    
81.         Dim ftp As New Chilkat.Ftp2
    
82.         ftp.Hostname = "thongkorn.com"
    
83.         ftp.Username = "FTP USERNAME"
    
84.         ftp.Password = "FTP PASSWORD"
    
85. 
    
86.         '/ Connect and login to the FTP server.
    
87.         Dim success As Boolean = ftp.Connect()
    
88.         If (success <> True) Then
    
89.             MessageBox.Show(ftp.LastErrorText)
    
90.             Exit Sub
    
91.         End If
    
92.         '/ Change to the remote directory where the file will be uploaded.
    
93.         success = ftp.ChangeRemoteDir(RemoteDir)
    
94.         If (success <> True) Then
    
95.             MessageBox.Show(ftp.LastErrorText)
    
96.             Exit Sub
    
97.         End If
    
98.         '/ Upload a file.
    
99.         'picFullPath = --> "c:/temp/hamlet.xml"
    
100.         'picFileName = --> "hamlet.xml"
     
101.         success = ftp.PutFile(picFullPath, picFileName)
     
102.         If (success <> True) Then
     
103.             MessageBox.Show(ftp.LastErrorText)
     
104.             Exit Sub
     
105.         End If
     
106.         success = ftp.Disconnect()
     
107. 
     
108.         MessageBox.Show("File Uploaded Successfully.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
109.     End Sub
     
110. 
     
111.     '// Unlock Chilkat.
     
112.     Public Sub UnlockChilkat()
     
113.         Dim glob As New Chilkat.Global
     
114.         Dim success As Boolean = glob.UnlockBundle("CHILKAT KEY")
     
115.         If (success <> True) Then
     
116.             MessageBox.Show(glob.LastErrorText)
     
117.             Exit Sub
     
118.         End If
     
119.         Dim status As Integer = glob.UnlockStatus
     
120.         If (status = 2) Then
     
121.             'MessageBox.Show("Unlocked using purchased unlock code.")
     
122.         Else
     
123.             MessageBox.Show("Unlocked in trial mode.")
     
124.         End If
     
125.     End Sub
     
126. 
     
127.     Private Sub btnDelete_Click(sender As System.Object, e As System.EventArgs) Handles btnDelete.Click
     
128.         picLocal.Image = Nothing
     
129.         picFileName = Nothing
     
130.         txtLocal.Text = ""
     
131.         txtRemote.Text = ""
     
132.     End Sub
     
133. 
     
134.     Private Sub txtLocal_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtLocal.KeyPress
     
135.         e.Handled = True
     
136.     End Sub
     
137. 
     
138.     Private Sub txtRemote_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtRemote.KeyPress
     
139.         e.Handled = True
     
140.     End Sub
     
141. End Class

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

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

g2gsoftuser

ขอบคุณครับ