 |
|
VB.NET การเชื่อมต่อ FTP Files Server ให้สามารถใช้งานได้กับโปรแกรมครับ VB2008 |
|
 |
|
|
 |
 |
|
เห็นเจอปัญหาหลายวันก็อยากช่วยครับแต่ไม่เคยเขียน Window CE
ผมอยากรู้ว่ายืนยันได้ยังไงครับว่ามัน connect กันยุ
อย่างประมาณว่าลองเปิดโฟลเดอร์ใดก็ได้ใน server ดู
Code (VB.NET)
Dim Dir1 As New DirectoryInfo(strPath )
If Dir1.Exists Then
MessageBox.Show("เฮ๊ย....มีอยู่จริงอ่า")
End If
อะไรประมาณนั้นอ่าครับ
|
 |
 |
 |
 |
Date :
2015-07-21 16:10:17 |
By :
lamaka.tor |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ผมลองแล้วยังไม่ได้เลยครับ ติดแนวเดิมเลย
FTPRequestWebRequest
FTPRequesrMethod
พวกขึ้นต้นด้วย ftp ติดหมดเลยครับ อย่าง FTPRequestWebRequest มันบอกว่ารุ้จักแค่
WebRequest กับ http.WebRequest แบบนี้อ่ะครับ
|
 |
 |
 |
 |
Date :
2015-07-21 18:51:41 |
By :
golfgee12 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
พอเราเรียก FtpWebRequest แล้วมันขึ้นขึ้นแบบนี้อ่ะครับ
Type 'FtpWebRequest' is not defined.
รบกวนชี้แนะผู้น้อยด้วยนะครับ
|
 |
 |
 |
 |
Date :
2015-07-22 10:42:25 |
By :
golfgee12 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
บังเอิญทำไว้ใช้กับระบบ Update Online อัพโหลดผ่าน FTP แต่ดาวน์โหลดผ่าน HTTP
ยาวหน่อยนะครับ
Code (VB.NET)
' ของผมใช้ .Net 2.0
' Imports System.IO
' Imports System.Net
' pPath คือ Path ของ server ที่เราจะเอาไฟล์ไปวาง
Private Function Upload(ByVal pPath As String) As Boolean
Const BUFFER_SIZE As Integer = 4096
Me.pgbUpload.Value = 0
Dim request As FtpWebRequest
Dim response As FtpWebResponse
Dim sourceStream As Stream = New MemoryStream
Dim requestStream As Stream = sourceStream
Try
request = CType(WebRequest.Create(pPath), FtpWebRequest)
request.UseBinary = True
request.KeepAlive = False
request.Method = WebRequestMethods.Ftp.UploadFile
request.Credentials = New NetworkCredential(Me.txtUserFtp.Text.Trim, Me.txtPassFtp.Text.Trim)
If _HaveEXE Then
If WorkType = UploadType.IsExe Then
sourceStream = New FileStream(Me.txtEXEPath.Text.Trim, FileMode.Open)
End If
End If
If _HaveDLL Then
If WorkType = UploadType.IsDll Then
sourceStream = New FileStream(Me.txtDLLPath.Text.Trim, FileMode.Open)
End If
End If
If _HaveRepTH Then
If WorkType = UploadType.IsRepTH Then
sourceStream = New FileStream(Me.txtRepTHPath.Text.Trim, FileMode.Open)
End If
End If
If _HaveRepEN Then
If WorkType = UploadType.IsRepEN Then
sourceStream = New FileStream(Me.txtRepENPath.Text.Trim, FileMode.Open)
End If
End If
If _WorkType = UploadType.IsGenLog Then
sourceStream = New FileStream(Application.StartupPath & "\Server_Version.xml", FileMode.Open)
End If
requestStream = request.GetRequestStream()
request.ContentLength = sourceStream.Length
Me.pgbUpload.Maximum = sourceStream.Length
Dim buffer(BUFFER_SIZE) As Byte
Dim bytesRead As Integer = sourceStream.Read(buffer, 0, BUFFER_SIZE)
Do
Application.DoEvents()
requestStream.Write(buffer, 0, bytesRead)
bytesRead = sourceStream.Read(buffer, 0, BUFFER_SIZE)
Try
pgbUpload.Value += bytesRead
Catch ex As Exception
End Try
Loop While (bytesRead > 0)
Me.pgbUpload.Value = Me.pgbUpload.Maximum
sourceStream.Close()
requestStream.Close()
response = CType(request.GetResponse, FtpWebResponse)
Catch ex As Exception
MessageBox.Show(ex.GetType().Name + ": \n" + ex.Message, "Exception!", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
Return True
End Function
|
 |
 |
 |
 |
Date :
2015-07-24 17:27:32 |
By :
คนงานตัดอ้อย |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|