[VB6] การใช้งาน XceedFTP ในการอัพโหลดไฟล์ขึ้นสู่ Web Hosting

thongkorn

คนที่ใช้ VB6 หลายๆคนอาจจะใช้ Internet Transfer Protocol หรือ INet ซึ่งเป็น Component มาตรฐานของทางไมโครซอฟท์ ก็คงจะรู้ซึ้งถึงความยากลำบากในการเขียนโปรแกรม เพื่อที่จะทำการ Upload/Download Files วันนี้แอดมินขอนำเสนอ Xceed Ultimate Suite ด้วยการใช้งาน XceedFTP แล้วขอให้ทุกๆท่านลองเปรียบเทียบดูเอาเองล่ะกันครับ ...

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

ฟรี Web Hosting ... แอดมินทดสอบอัพโหลดไฟล์เข้ามาที่นี่ครับ

Project --> Components ...


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

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: Simple to use XceedFTP.
   
10. ' / Microsoft Visual Basic 6.0 (SP6)
    
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. '// Free Web Hosting ... https://www.freehostia.com
    
17. Option Explicit
    
18. '// ที่เก็บไฟล์ปลายทางใน Web Hosting
    
19. Const RemoteDir As String = "thongkorn.com\upload"
    
20. '// พาธและชื่อไฟล์ในการอัพโหลด
    
21. Dim strFileUpload As String
    
22. 
    
23. Private Sub cmdFileUpload_Click()
    
24.     On Error Resume Next ' ไม่สน Error ใดๆทั้งสิ้น
    
25.    
    
26.     With dlgOpenFile
    
27.         .FileName = ""
    
28.         .DialogTitle = " เลือกไฟล์ภาพ - Graphics File Format " ' แสดง Title Bar
    
29.         .Filter = "ไฟล์ภาพ (*.jpg;*.gif;*.bmp)|*.jpg;*.gif;*.bmp"   ' ประเภทของรูปภาพ
    
30.         .CancelError = True ' ยกเลิกทุกๆความผิดพลาด
    
31.         .ShowOpen ' เปิด Dialog ขึ้นมาเพื่อเลือกไฟล์
    
32.     End With
    
33.    
    
34.     '/  เลือกไฟล์ได้แล้วก็ให้นำไปใส่ไว้ในตัวแปรแบบ Full Path
    
35.     strFileUpload = dlgOpenFile.FileName
    
36.     txtFileUpload.Text = strFileUpload
    
37.     ' หากไม่มีการเลือกไฟล์ภาพเข้ามา ก็ให้เด้งออกจากโปรแกรมย่อยไปเลย
    
38.     If Trim(strFileUpload) = "" Or Len(strFileUpload) = 0 Then Exit Sub
    
39.    
    
40. End Sub
    
41. 
    
42. Private Sub cmdUpload_Click()
    
43.     If Trim$(txtFileUpload.Text) = "" Or Len(Trim$(txtFileUpload.Text)) = 0 Then Exit Sub
    
44.     '//
    
45.     Call FTPSample
    
46. End Sub
    
47. 
    
48. Private Sub Form_Load()
    
49.     Me.txtFileUpload.Text = ""
    
50. End Sub
    
51. 
    
52. Function FTPSample() As Boolean
    
53.     '// เปลี่ยน License ให้ถูกต้องใหม่ก่อนด้วย
    
54.     Call XceedFtp1.License("FTP11-0F99R-7RDY1-UGDA")
    
55.    
    
56.     XceedFtp1.ServerAddress = "thongkorn.com" ' step (1)
    
57.     XceedFtp1.UserName = "USERNAME" ' step (2)
    
58.     XceedFtp1.Password = "PASSWORD" ' step (3)
    
59.    
    
60.     On Error Resume Next
    
61.    
    
62.     Call XceedFtp1.Connect ' step (4)
    
63.    
    
64.     If Err.Number = 0 Then ' step (5)
    
65.         MsgBox "Successfully connected to server. Starting upload."
    
66.         
    
67.         '// แยกชื่อไฟล์ออกมา เช่น D:\Project VB60\Article-VB6-2018\LineNotify\Images\Tata.jpg
    
68.         Dim iArr() As String
    
69.         iArr = Split(strFileUpload, "")
    
70.         '// เลือก UpperBound ของ Array ก็จะได้ชื่อไฟล์ Tata.jpg
    
71.         Dim MyFileUpload As String
    
72.         MyFileUpload = iArr(UBound(iArr))
    
73.         '// UPLOAD ... แก้ไขตำแหน่งอัพโหลดไฟล์ด้วยน่ะครับ (RemoteDir)
    
74.         Call XceedFtp1.SendFile(strFileUpload, 0, RemoteDir & Space(1) & MyFileUpload, False) ' step (5)
    
75.         
    
76.         '// กรณีลบไฟล์ Remote Server
    
77.         'Call XceedFtp1.DeleteFile(RemoteDir & Space(1) & MyFileUpload)
    
78.         
    
79.         If Err.Number = 0 Then
    
80.             MsgBox "Successfully uploaded the file."
    
81.             FTPSample = True
    
82.         Else
    
83.             MsgBox "Upload error. Description: '" & Err.Description & "'. Error#" & Err.Number
    
84.             FTPSample = False
    
85.         End If
    
86.         
    
87.         '// Disconnect
    
88.         Call XceedFtp1.Disconnect ' step (6)
    
89.         
    
90.     Else
    
91.         MsgBox "Connect error. Description: '" & Err.Description & "'. Error#" & Err.Number
    
92.     End If
    
93. End Function
    
94. 
    
95. Private Sub txtFileUpload_KeyPress(KeyAscii As Integer)
    
96.     '// Lock
    
97.     KeyAscii = 0
    
98. End Sub
    
99. 
    
100. Private Sub cmdExit_Click()
     
101.     Set frmFTPsample = Nothing
     
102.     End
     
103. End Sub

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

ดาวน์โหลดโค้ดฉบับเต็ม VB6 ได้ที่นี่ ...