[VB.NET] การ Upload/Download ไฟล์ด้วย XceedFTP ActiveX

thongkorn

สำหรับโค้ด VB.NET ชุดนี้ก็เป็นการใช้งาน XceedFTP เพื่อทำการ Upload และ Download ไฟล์ภาพกราฟิค แต่แอดมินลองทดสอบด้วยการใช้ ActiveX แทน ซึ่งเป็นการนำเทคโนโลยีเก่าแบบ COM (Component Object Model) มาใช้งานกับ .Net Framework หรือที่เราเรียกว่า Interoperability ...

ดาวน์โหลด Xceed Ultimate Suite ได้ที่นี่ ... (เฉพาะสมาชิกเท่านั้น)

การเรียกใช้งาน Xceed ActiveX บน .Net Framework



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

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / More Info: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Sample VB.Net code for Upload/Download Images to Web Hosting.
   
10. ' / Microsoft Visual Basic .NET (2010) + XceedFTP ActiveX.
    
11. ' /
    
12. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / --------------------------------------------------------------------------------
    
15. 
    
16. Imports XceedFtpLib
    
17. Imports System.IO
    
18. 
    
19. Public Class frmXceedFtp
    
20.     Dim streamPic As Stream     '// Use Steam instead IO.
    
21.     Dim PicturePath As String = MyPath(Application.StartupPath) & "Images"
    
22.     '//
    
23.     Dim FullPathFileName As String = String.Empty
    
24.     Dim PictureFileName As String = String.Empty
    
25.     '// Constant Variables.
    
26.     Const RemoteDir As String = "thongkorn.com\upload"
    
27.     Const XceedFTPLicense As String = "License Key"
    
28.     Const Server As String = "thongkorn.com"
    
29.     Const Username As String = "USERNAME"
    
30.     Const Password As String = "PASSWORD"
    
31. 
    
32.     Private Sub btnUpload_Click(sender As System.Object, e As System.EventArgs) Handles btnUpload.Click
    
33.         If Trim(FullPathFileName) = "" Or Len(FullPathFileName) = 0 Then Return
    
34.         '/ The following example demonstrates how to connect to a
    
35.         '/ FTP server and upload a file.
    
36.         Dim ftp As New XceedFtpLib.XceedFtp
    
37.         ftp.License(XceedFTPLicense)
    
38. 
    
39.         '/ Specify the FTP server's address
    
40.         ftp.ServerAddress = Server
    
41.         '/ Specify the username and password to login
    
42.         ftp.UserName = Username
    
43.         ftp.Password = Password
    
44. 
    
45.         Try
    
46.             Me.Cursor = Cursors.WaitCursor
    
47.             '/ Connect to the FTP server
    
48.             ftp.Connect()
    
49. 
    
50.             '/ Send a file
    
51.             ftp.SendFile(FullPathFileName, 0, RemoteDir & PictureFileName, False)
    
52. 
    
53.             '/ Disconnect from the FTP server
    
54.             ftp.Disconnect()
    
55.             MessageBox.Show("Upload file successfully.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
56.         Catch except As System.Runtime.InteropServices.COMException
    
57.             MessageBox.Show(except.ToString())
    
58.         End Try
    
59.         Me.Cursor = Cursors.Default
    
60.     End Sub
    
61. 
    
62.     Private Sub btnDownload_Click(sender As System.Object, e As System.EventArgs) Handles btnDownload.Click
    
63.         '// Trap Error.
    
64.         If Trim(FullPathFileName) = "" Or Len(FullPathFileName) = 0 Then Return
    
65.         '/ The following example demonstrates how to connect to a
    
66.         '/ FTP server and download a file.
    
67.         Dim ftp As New XceedFtpLib.XceedFtp
    
68.         ftp.License(XceedFTPLicense)
    
69. 
    
70.         '/ Specify the FTP server's address
    
71.         ftp.ServerAddress = Server
    
72.         '/ Specify the username and password to login
    
73.         ftp.UserName = Username
    
74.         ftp.Password = Password
    
75. 
    
76.         Try
    
77.             Me.Cursor = Cursors.WaitCursor
    
78.             '/ Connect to the FTP server
    
79.             ftp.Connect()
    
80. 
    
81.             '/ Receive files
    
82.             ftp.ReceiveFile(RemoteDir & PictureFileName, 0, MyPath(Application.StartupPath) & "Download" & PictureFileName)
    
83. 
    
84.             '/ Disconnect from the FTP server
    
85.             ftp.Disconnect()
    
86. 
    
87.             MessageBox.Show("Download file successfully.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
88.         Catch except As System.Runtime.InteropServices.COMException
    
89.             '// Most problems are the location of the file does not match. Or does not have a specified files.
    
90.             MessageBox.Show(except.ToString())
    
91.         End Try
    
92.         Me.Cursor = Cursors.Default
    
93.     End Sub
    
94. 
    
95.     Private Sub frmXceedFtp_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
96.         picData.Image = Image.FromFile(PicturePath & "NoImage.gif")
    
97.     End Sub
    
98. 
    
99.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
100.         Dim dlgImage As OpenFileDialog = New OpenFileDialog()
     
101. 
     
102.         ' / Open File Dialog
     
103.         With dlgImage
     
104.             '.InitialDirectory = PicturePath 'PicturePath
     
105.             .Title = "Select your image file"
     
106.             .Filter = "Image (*.jpg;*.png;*.gif;*.bmp)|*.jpg;*.png;*.gif;*.bmp"
     
107.             .FilterIndex = 1
     
108.             .RestoreDirectory = True
     
109.         End With
     
110.         '/ Select OK after Browse ...
     
111.         If dlgImage.ShowDialog() = DialogResult.OK Then
     
112.             FullPathFileName = dlgImage.FileName
     
113.             '// Get only Filename & Extension.
     
114.             Dim arr() As String = Split(FullPathFileName, "")
     
115.             PictureFileName = arr(UBound(arr))
     
116.             '/
     
117.             picData.Image = Image.FromFile(FullPathFileName)
     
118.         End If
     
119. 
     
120.     End Sub
     
121. 
     
122.     Private Sub btnDeleteImg_Click(sender As System.Object, e As System.EventArgs) Handles btnDeleteImg.Click
     
123.         picData.Image = Image.FromFile(PicturePath & "NoImage.gif")
     
124.         PictureFileName = String.Empty
     
125.     End Sub
     
126. 
     
127.     ' / -----------------------------------------------------------------------------
     
128.     ' / Use Steam instead IO.
     
129.     ' / -----------------------------------------------------------------------------
     
130.     Sub ShowPicture(PicName As String)
     
131.         Dim imgDB As Image
     
132.         ' Get the name of the image file.
     
133.         If PicName.ToString <> "" Then
     
134.             ' Verify that the image file meets the specified location.
     
135.             If System.IO.File.Exists(PicturePath & PicName.ToString) Then
     
136.                 '/ Because when deleting the image file is locked, it can not be removed.
     
137.                 '/ The file is closed after the image is loaded, so you can delete the file if you need.
     
138.                 streamPic = File.OpenRead(PicturePath & PicName.ToString)
     
139.                 imgDB = Image.FromStream(streamPic)
     
140.                 picData.Image = imgDB
     
141.             Else
     
142.                 '/ No images.
     
143.                 streamPic = File.OpenRead(PicturePath & "NoImage.gif")
     
144.                 imgDB = Image.FromStream(streamPic)
     
145.                 picData.Image = imgDB
     
146.             End If
     
147. 
     
148.             ' Is null
     
149.         Else
     
150.             streamPic = File.OpenRead(PicturePath & "NoImage.gif")
     
151.             imgDB = Image.FromStream(streamPic)
     
152.             picData.Image = imgDB
     
153.         End If
     
154.         '//
     
155.         streamPic.Dispose()
     
156.     End Sub
     
157. 
     
158.     ' / Get my project path
     
159.     ' / AppPath = C:\My Project\bin\debug
     
160.     ' / Replace "\bin\debug" with ""
     
161.     ' / Return : C:\My Project\
     
162.     Function MyPath(ByVal AppPath As String) As String
     
163.         '/ MessageBox.Show(AppPath);
     
164.         AppPath = AppPath.ToLower()
     
165.         '/ Return Value
     
166.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
     
167.         '// If not found folder then put the \ (BackSlash) at the end.
     
168.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
169.     End Function
     
170. 
     
171.     Private Sub btnClose_Click(sender As System.Object, e As System.EventArgs) Handles btnClose.Click
     
172.         Me.Close()
     
173.     End Sub
     
174. 
     
175.     Private Sub frmXceedFtp_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
176.         Me.Dispose()
     
177.         Application.Exit()
     
178.     End Sub
     
179. 
     
180. End Class

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

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

MMEE007

ขอบคุณคับ