ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 3238|ตอบกลับ: 0

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

[คัดลอกลิงก์]

308

กระทู้

498

โพสต์

5971

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
5971



คนที่ใช้ 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. '// Free Web Hosting ... https://www.freehostia.com
  16. Option Explicit
  17. '// ที่เก็บไฟล์ปลายทางใน Web Hosting
  18. Const RemoteDir As String = "thongkorn.com\upload"
  19. '// พาธและชื่อไฟล์ในการอัพโหลด
  20. Dim strFileUpload As String

  21. Private Sub cmdFileUpload_Click()
  22.     On Error Resume Next ' ไม่สน Error ใดๆทั้งสิ้น
  23.    
  24.     With dlgOpenFile
  25.         .FileName = ""
  26.         .DialogTitle = " เลือกไฟล์ภาพ - Graphics File Format " ' แสดง Title Bar
  27.         .Filter = "ไฟล์ภาพ (*.jpg;*.gif;*.bmp)|*.jpg;*.gif;*.bmp"   ' ประเภทของรูปภาพ
  28.         .CancelError = True ' ยกเลิกทุกๆความผิดพลาด
  29.         .ShowOpen ' เปิด Dialog ขึ้นมาเพื่อเลือกไฟล์
  30.     End With
  31.    
  32.     '/  เลือกไฟล์ได้แล้วก็ให้นำไปใส่ไว้ในตัวแปรแบบ Full Path
  33.     strFileUpload = dlgOpenFile.FileName
  34.     txtFileUpload.Text = strFileUpload
  35.     ' หากไม่มีการเลือกไฟล์ภาพเข้ามา ก็ให้เด้งออกจากโปรแกรมย่อยไปเลย
  36.     If Trim(strFileUpload) = "" Or Len(strFileUpload) = 0 Then Exit Sub
  37.    
  38. End Sub

  39. Private Sub cmdUpload_Click()
  40.     If Trim$(txtFileUpload.Text) = "" Or Len(Trim$(txtFileUpload.Text)) = 0 Then Exit Sub
  41.     '//
  42.     Call FTPSample
  43. End Sub

  44. Private Sub Form_Load()
  45.     Me.txtFileUpload.Text = ""
  46. End Sub

  47. Function FTPSample() As Boolean
  48.     '// เปลี่ยน License ให้ถูกต้องใหม่ก่อนด้วย
  49.     Call XceedFtp1.License("FTP11-0F99R-7RDY1-UGDA")
  50.    
  51.     XceedFtp1.ServerAddress = "thongkorn.com" ' step (1)
  52.     XceedFtp1.UserName = "USERNAME" ' step (2)
  53.     XceedFtp1.Password = "PASSWORD" ' step (3)
  54.    
  55.     On Error Resume Next
  56.    
  57.     Call XceedFtp1.Connect ' step (4)
  58.    
  59.     If Err.Number = 0 Then ' step (5)
  60.         MsgBox "Successfully connected to server. Starting upload."
  61.         
  62.         '// แยกชื่อไฟล์ออกมา เช่น D:\Project VB60\Article-VB6-2018\LineNotify\Images\Tata.jpg
  63.         Dim iArr() As String
  64.         iArr = Split(strFileUpload, "")
  65.         '// เลือก UpperBound ของ Array ก็จะได้ชื่อไฟล์ Tata.jpg
  66.         Dim MyFileUpload As String
  67.         MyFileUpload = iArr(UBound(iArr))
  68.         '// UPLOAD ... แก้ไขตำแหน่งอัพโหลดไฟล์ด้วยน่ะครับ (RemoteDir)
  69.         Call XceedFtp1.SendFile(strFileUpload, 0, RemoteDir & Space(1) & MyFileUpload, False) ' step (5)
  70.         
  71.         '// กรณีลบไฟล์ Remote Server
  72.         'Call XceedFtp1.DeleteFile(RemoteDir & Space(1) & MyFileUpload)
  73.         
  74.         If Err.Number = 0 Then
  75.             MsgBox "Successfully uploaded the file."
  76.             FTPSample = True
  77.         Else
  78.             MsgBox "Upload error. Description: '" & Err.Description & "'. Error#" & Err.Number
  79.             FTPSample = False
  80.         End If
  81.         
  82.         '// Disconnect
  83.         Call XceedFtp1.Disconnect ' step (6)
  84.         
  85.     Else
  86.         MsgBox "Connect error. Description: '" & Err.Description & "'. Error#" & Err.Number
  87.     End If
  88. End Function

  89. Private Sub txtFileUpload_KeyPress(KeyAscii As Integer)
  90.     '// Lock
  91.     KeyAscii = 0
  92. End Sub

  93. Private Sub cmdExit_Click()
  94.     Set frmFTPsample = Nothing
  95.     End
  96. End Sub
คัดลอกไปที่คลิปบอร์ด

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

ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

x
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2024-3-29 04:45 , Processed in 0.151118 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้