[VB.NET] แจกโค้ดฟรีการอัพโหลดไฟล์ขึ้นสู่ Web Hosting ด้วย Component มาตรฐานของ MS

thongkorn

โค้ดชุดนี้เป็นการใช้ขีดความสามารถของ VB.NET ล้วนๆ ซึ่งแอดมินเตรียมไว้ในโปรเจคตัวใหม่ในการติดต่อกับฐานข้อมูลในแบบ Remote MySQL Server ... โดยแอดมินเลือกใช้ฟรีโฮสติ้ง HelioHost.org ซึ่งให้บริการพื้นที่ขนาด 1 GB. และฐานข้อมูล MySQL ขนาด 1 GB. โดยไม่จำกัดจำนวนฐานข้อมูล ดูวิธีการจัดการ User ได้จากที่นี่ ...

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

1. Imports System.Net
   
2. Imports System.IO
   
3. 
   
4. Public Class frmFTPClientNet
   
5.     '// Get only Filename + Extension
   
6.     Dim sFileName As String
   
7.     Dim RemoteDir As String = "ftp://ftp.YOUR_DNS.heliohost.org//upload/"
   
8.     Dim UName As String = "USERNAME@YOUR_DNS.heliohost.org"
   
9.     Dim Pwd As String = "PASSWORD"
   
10. 
    
11.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
12.         ' Declare Open File Dialog Control - Run Time
    
13.         Dim dlgImage As OpenFileDialog = New OpenFileDialog()
    
14. 
    
15.         Dim strPath As String = MyPath(Application.StartupPath) & "Images"
    
16.         ' / Initialize Open File Dialog
    
17.         With dlgImage
    
18.             .InitialDirectory = strPath & "Images"
    
19.             .Title = "Choose images - Images File Format"
    
20.             .Filter = "Images (*.jpg;*.png;*.gif;*.bmp)|*.jpg;*.png;*.gif;*.bmp"
    
21.             .FilterIndex = 1
    
22.             .RestoreDirectory = True
    
23.         End With
    
24.         ' Select OK
    
25.         If dlgImage.ShowDialog() = DialogResult.OK Then
    
26.             ' Get file size less than 1,024 KB.
    
27.             Dim info As New FileInfo(dlgImage.FileName)
    
28.             If (info.Length / 1024) > 1024 Then
    
29.                 MessageBox.Show("Picture file size has " & Format((info.Length / 1024), "#,##0") & " KB. too large 1,024 KB.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
30.                 Exit Sub
    
31.             End If
    
32.             '//
    
33.             txtFileName.Text = dlgImage.FileName
    
34.             '// Put the current image file into PictureBox Control
    
35.             picData.Image = Image.FromFile(dlgImage.FileName)
    
36.             '// Get only Filename + Extension. Ex. thongkorn.png
    
37.             sFileName = dlgImage.SafeFileName
    
38.         End If
    
39.     End Sub
    
40. 
    
41.     Private Sub btnUploadFile1_Click(sender As System.Object, e As System.EventArgs) Handles btnUploadFile1.Click
    
42.         If txtFileName.Text.Trim.Length = 0 Then Return
    
43.         Me.Cursor = Cursors.WaitCursor
    
44.         Try
    
45.             '/ Create Request To Upload File
    
46.             Dim wrUpload As FtpWebRequest = DirectCast(WebRequest.Create(RemoteDir & sFileName), FtpWebRequest)
    
47.             '/ Specify UName & Pwd
    
48.             wrUpload.Credentials = New NetworkCredential(UName, Pwd)
    
49.             '/ Start Upload Process
    
50.             wrUpload.Method = WebRequestMethods.Ftp.UploadFile
    
51.             '/ Locate File And Store It In Byte Array
    
52.             Dim BitFile() As Byte = File.ReadAllBytes(txtFileName.Text)
    
53.             '/ Get File'
    
54.             Dim strFile As Stream = wrUpload.GetRequestStream()
    
55.             '/ Upload Each Byte
    
56.             strFile.Write(BitFile, 0, BitFile.Length)
    
57.             '/ Close
    
58.             strFile.Close()
    
59.             '/ Free Memory
    
60.             strFile.Dispose()
    
61.             MessageBox.Show("File " & sFileName & " Uploaded Complete.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
62.         Catch ex As Exception
    
63.             MessageBox.Show(ex.Message)
    
64.         Finally
    
65.             txtFileName.Clear()
    
66.             picData.Image = Nothing
    
67.         End Try
    
68.         Me.Cursor = Cursors.Default
    
69.     End Sub
    
70. 
    
71.     Private Sub btnUploadFile2_Click(sender As System.Object, e As System.EventArgs) Handles btnUploadFile2.Click
    
72.         If txtFileName.Text.Trim.Length = 0 Then Return
    
73.         Me.Cursor = Cursors.WaitCursor
    
74.         Try
    
75.             Dim Request As FtpWebRequest = WebRequest.Create(RemoteDir & sFileName)
    
76.             '// Login
    
77.             Request.Credentials = New NetworkCredential(UName, Pwd)
    
78.             Request.Method = WebRequestMethods.Ftp.UploadFile
    
79.             Using FileStream As Stream = File.OpenRead(txtFileName.Text),
    
80.                   ftpStream As Stream = Request.GetRequestStream()
    
81.                 Dim read As Integer
    
82.                 Do
    
83.                     Dim Buffer() As Byte = New Byte(10240) {}
    
84.                     read = FileStream.Read(Buffer, 0, Buffer.Length)
    
85.                     If read > 0 Then
    
86.                         ftpStream.Write(Buffer, 0, read)
    
87.                         Console.WriteLine("Uploaded {0} bytes", FileStream.Position)
    
88.                     End If
    
89.                 Loop While read > 0
    
90.             End Using
    
91.             MessageBox.Show("File " & sFileName & " Uploaded Complete.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
92.             '//
    
93.         Catch ex As Exception
    
94.             MessageBox.Show(ex.Message)
    
95.         Finally
    
96.             txtFileName.Clear()
    
97.             picData.Image = Nothing
    
98.         End Try
    
99.         Me.Cursor = Cursors.Default
    
100.     End Sub
     
101. 
     
102.     Private Sub txtFileName_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtFileName.KeyPress
     
103.         e.Handled = True
     
104.     End Sub
     
105. 
     
106.     ' / --------------------------------------------------------------------------------
     
107.     ' / Get my project path
     
108.     ' / AppPath = C:\My Project\bin\debug
     
109.     ' / Replace "\bin\debug" with ""
     
110.     ' / Return : C:\My Project\
     
111.     Function MyPath(AppPath As String) As String
     
112.         '/ MessageBox.Show(AppPath);
     
113.         AppPath = AppPath.ToLower()
     
114.         '/ Return Value
     
115.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
116.         '// If not found folder then put the \ (BackSlash ASCII Code = 92) at the end.
     
117.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
118.     End Function
     
119. 
     
120. End Class

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

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

MMEE007

ขอบคุณคับ

MrDen

ขอบคุณครับอาจารย์

g2gsoftuser

ขอบคุณครับ