利用wininet.dll來做FTP的功能

要怎麼利用wininet.dll來做FTP相關的功能呢？下面相關部分可以參考看看，這邊主要是利用呼叫Win32API來做相關功能而.net framework中也有FTPClient相關的東西可以用，FTPClient的部分就請自行查詢MSDN嚕~之後有時間再來整理，[2008.4.16編輯]查詢MSDN後發現名稱不是FTPClient(奇怪，之前怎麼一直記得有這個..)，請參考下面相關資料。
首先有些參考資料可以看看

下面是參考上面所提修改而來的code

Imports System.Runtime.InteropServices

Public Class cFTP

    ' Internet Session Handle (InternetOpen)
    Private _hInternet As Integer
    ' Internet Service Handle (InternetConnect)
    Private _hConnect As Integer

    Private _ServerName As String = ""
    Private _UserName As String = "anonymous"
    Private _Password As String = ""
    ''儲存是否需要密碼驗證的狀態
    Private _IsNeedPassword As Boolean = True
    ''儲存是否需要via Proxy
    Private _IsNeedProxy As Boolean = False
    ''儲存傳輸模式(ASCII or Binary (default to Binary)
    Private _TransferMode As Integer = FTP_TRANSFER_TYPE_BINARY

    Public Sub New()

    End Sub

#Region "Const"
    ' dwAccessType: 設定Internet連結的存取方式
    Private Const INTERNET_OPEN_TYPE_PRECONFIG As Short = 0
    Private Const INTERNET_OPEN_TYPE_DIRECT As Short = 1
    Private Const INTERNET_OPEN_TYPE_PROXY As Short = 3
    Private Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY As Short = 4

    ' dwFlags
    Private Const INTERNET_FLAG_FROM_CACHE As Integer = &H1000000
    Private Const INTERNET_FLAG_OFFLINE As Integer = &H1000000
    Private Const INTERNET_FLAG_MAKE_PERSISTENT As Integer = &H2000000
    Private Const INTERNET_FLAG_NO_CACHE_WRITE As Integer = &H4000000
    Private Const INTERNET_FLAG_ASYNC As Integer = &H10000000
    Private Const INTERNET_FLAG_EXISTING_CONNECT As Integer = &H20000000
    Private Const INTERNET_FLAG_PASSIVE As Integer = &H8000000

    ' nServerPort：設定Internet服務之通訊埠（port）
    Private Const INTERNET_DEFAULT_FTP_PORT As Short = 21
    Private Const INTERNET_DEFAULT_GOPHER_PORT As Short = 70
    Private Const INTERNET_DEFAULT_HTTP_PORT As Short = 80
    Private Const INTERNET_DEFAULT_HTTPS_PORT As Short = 443
    Private Const INTERNET_DEFAULT_SOCKS_PORT As Short = 1080
    Private Const INTERNET_INVALID_PORT_NUMBER As Short = 0

    ' dwService：設定Internet服務類型
    Private Const INTERNET_SERVICE_FTP As Short = 1
    Private Const INTERNET_SERVICE_GOPHER As Short = 2
    Private Const INTERNET_SERVICE_HTTP As Short = 3

    ' dwInternetFlags
    Private Const FTP_TRANSFER_TYPE_ASCII As Short = &H1S ' ASCII 模式
    Private Const FTP_TRANSFER_TYPE_BINARY As Short = &H2S ' Binary模式
    Private Const FTP_TRANSFER_TYPE_UNKNOWN As Short = &H0S ' 預設為Binary模式
    Private Const INTERNET_FLAG_TRANSFER_ASCII As Short = &H1S ' ASCII 模式
    Private Const INTERNET_FLAG_TRANSFER_BINARY As Short = &H2S ' Binary模式

    Private Const FILE_ATTRIBUTE_DIRECTORY As Short = &H10S
    Private Const FILE_ATTRIBUTE_ARCHIVE As Short = &H20S
#End Region

#Region "Win32API"
     _
    Private Shared Function InternetOpen( _
        ByVal lpszAgent As String, ByVal dwAccessType As Integer, _
        ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, _
        ByVal dwFlags As Integer) As Integer
    End Function

     _
    Private Shared Function InternetConnect(ByVal hInternetSession As Integer, _
        ByVal lpszServerName As String, ByVal nServerPort As Short, _
        ByVal lpszUsername As String, ByVal lpszPassword As String, _
        ByVal dwService As Integer, ByVal dwFlags As Integer, _
        ByVal dwContext As Integer) As Integer
    End Function

     _
    Private Shared Function InternetCloseHandle(ByVal hInternet As Integer) As Boolean
    End Function

     _
    Private Shared Function FtpGetCurrentDirectory(ByVal hFtpSession As Integer, _
        ByVal lpszCurrentDirectory As String, _
        ByRef lpdwCurrentDirectory As Integer) As Boolean
    End Function

     _
    Private Shared Function FtpSetCurrentDirectory(ByVal hConnect As Integer, _
        ByVal lpszDirectory As String) As Boolean
    End Function

     _
    Private Shared Function FtpGetFile(ByVal hFtpSession As Integer, _
        ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, _
        ByVal fFailIfExists As Boolean, ByVal dwLocalFlagsAndAttributes As Integer, _
        ByVal dwInternetFlags As Integer, ByVal dwContext As Integer) As Boolean
    End Function

     _
    Private Shared Function FtpPutFile(ByVal hFtpSession As Integer, _
        ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, _
        ByVal dwInternetFlags As Integer, ByVal dwContext As Integer) As Boolean
    End Function

     _
    Private Shared Function FtpCreateDirectory(ByVal hConnect As Integer, _
        ByVal lpszDirectory As String) As Boolean
    End Function

     _
    Private Shared Function FtpRemoveDirectory(ByVal hConnect As Integer, _
        ByVal lpszDirectory As String) As Boolean
    End Function
#End Region

#Region "Property"
    ''設定遠端主機名稱
    Public Property ServerName() As String
        Get
            Return _ServerName
        End Get
        Set(ByVal Value As String)
            _ServerName = Value
        End Set
    End Property

    ''設定使用者名稱
    Public Property UserName() As String
        Get
            Return _UserName
        End Get
        Set(ByVal Value As String)
            _UserName = Value
        End Set
    End Property

    ''設定密碼
    Public Property Password() As String
        Get
            Return _Password
        End Get
        Set(ByVal Value As String)
            _Password = Value
        End Set
    End Property

    ''設定連線時是否需要驗證密碼
    Public Property NeedPassword() As Boolean
        Get
            Return _IsNeedPassword
        End Get
        Set(ByVal Value As Boolean)
            _IsNeedPassword = Value
        End Set
    End Property

    ''設定是否需要 Proxy
    Public Property NeedProxy() As Boolean
        Get
            Return _IsNeedProxy
        End Get
        Set(ByVal Value As Boolean)
            _IsNeedProxy = Value
        End Set
    End Property

    ''設定傳輸模式,1->ASCII 2->Binary
    Public Property TransMode() As Integer
        Get
            Return _TransferMode
        End Get
        Set(ByVal Value As Integer)
            _TransferMode = Value
        End Set
    End Property
#End Region

#Region "Function"
    ''連線
    Public Function Connect() As Boolean
        ' INTERNET_FLAG_NO_CACHE_WRITE = &H04000000
        ' {不將Internet連結之資訊寫入Cache中}

        If _IsNeedProxy Then
            _hInternet = InternetOpen( _
            "FTP Application", INTERNET_OPEN_TYPE_PROXY, _
            Nothing, Nothing, INTERNET_FLAG_NO_CACHE_WRITE)
        Else
            _hInternet = InternetOpen( _
            "FTP Application", INTERNET_OPEN_TYPE_DIRECT, _
            Nothing, Nothing, INTERNET_FLAG_NO_CACHE_WRITE)
        End If

        ' If Internet Session Handle created OK
        If (_hInternet <> 0) Then
            ' FTP Service Handle
            If _IsNeedPassword Then
                _hConnect = InternetConnect( _
                                _hInternet, _ServerName, INTERNET_DEFAULT_FTP_PORT, _
                                _UserName, _Password, INTERNET_SERVICE_FTP, _
                                INTERNET_FLAG_EXISTING_CONNECT Or INTERNET_FLAG_PASSIVE, 0)
            Else
                ' anonymous
                _hConnect = InternetConnect( _
                                _hInternet, _ServerName, INTERNET_DEFAULT_FTP_PORT, _
                                Nothing, Nothing, INTERNET_SERVICE_FTP, _
                                INTERNET_FLAG_EXISTING_CONNECT Or INTERNET_FLAG_PASSIVE, 0)
            End If

        Else
            ''錯誤處理
            Return False
        End If

        Return True
    End Function

    ''關閉連線
    Public Function DisConnect() As Boolean
        ' close internet service connection
        If (_hConnect <> 0) Then
            InternetCloseHandle(_hConnect)
            _hConnect = 0
        End If

        ' close internet session
        If (_hInternet <> 0) Then
            InternetCloseHandle(_hInternet)
            _hInternet = 0
        End If
        Return True
    End Function

    ''變更FTP目錄
    Public Function SetCurrentDir(ByVal DirectoryName As String) As Boolean
        Return FtpSetCurrentDirectory(_hConnect, DirectoryName)
    End Function

    ''傳送檔案
    Public Function PutFile(ByVal LocalFile As String, ByVal RemoteFile As String) As Boolean
        Dim dwInternetFlags As Integer
        Return FtpPutFile(_hConnect, LocalFile, RemoteFile, _TransferMode, 0)
    End Function

    ''下載檔案
    Public Function GetFile(ByVal LocalFile As String, ByVal RemoteFile As String) As Boolean
        Dim dwInternetFlags As Integer
        Return FtpGetFile(_hConnect, RemoteFile, LocalFile, _
                            False, FILE_ATTRIBUTE_ARCHIVE, _TransferMode, 0)
    End Function

    ''建立新目錄
    Public Function CreateDirectory(ByVal DirName As String) As Boolean
        Return FtpCreateDirectory(_hConnect, DirName)
    End Function

    ''刪除目錄
    ''當資料夾內有檔案存在時刪除會失敗傳回False
    Public Function RemoveDirectory(ByVal DirName As String) As Boolean
        Return FtpRemoveDirectory(_hConnect, DirName)
    End Function

    ''取得FTP Server目前目錄
    Public Function GetFTPCurrentPath(ByRef hConnect As Integer) As String
        Dim sDir As String
        Dim bReturn As Boolean

        sDir = New String(Chr(0), 1024)

        ' FtpGetCurrentDirectory
        ' Retrieves the current directory for the connection.
        bReturn = FtpGetCurrentDirectory(hConnect, sDir, Len(sDir))

        ' returns True if successful
        If bReturn Then
            Return sDir.Substring(0, sDir.Length - 1)
        Else
            Return ""
        End If
    End Function
#End Region

End Class

留言

張貼留言

這個網誌中的熱門文章

開啟cshtml檔案時，出現『並未將物件參考設定為物件執行個體』的錯誤訊息

筆者的開發環境為VS2015企業版加上Win10，身為更新控，每次有任何更新(擴充套件等)，都會立馬進行更新的動作；平常也不常寫ASP.Net MVC相關的東東；今天開啟一個專案，想要凱起view(xxxx.cshtml)來查看時，居然出現『並未將物件參考設定為物件執行個體』的錯誤，所有的view都不能看。一想到如果要重灌VS的話，整個背後就開始冷汗直流.. 幸好，找了一下相關資料，在這一篇的討論中有提到相關的狀況 Visual Studio doesn't open cshtml files #276 筆者先測試的方式是刪除ComponentModelCache這個資料夾，節錄原文如下 『Delete the content of %LocalAppData%\Microsoft\VisualStudio\14.0\ComponentModelCache』 之後重新啟動VS之後，就可以開啟cshtml的檔案了，筆記一下以免日後遇到類似的狀況，有google真好 Orz
閱讀完整內容

無法設定中斷點 尚未載入符號檔

圖片
有時候也不知道怎麼搞得，程式(專案)copy來copy去，突然有天設定中斷點之後開始偵錯....噹噹..尚未載入符號檔，中斷點過站不停...平常又很依賴中斷點來偵錯，這下真的是慌了手腳；當下只能用messagebox.show來一步一步看到底是錯在什麼地方.. 今天靜下心來查了一些資料，測試之後真的有效，原來把專案的組態設成了Release，改成Debug之後就可以正常設定中斷點了；現在那台電腦不在手上改天改回Release之後來測試看看是不是會一樣的狀況；下面有些資料可以參考 沒有符號資訊對話方塊 有一點要特別注意，一般使用VB的開發設定時"方案"中如果只有單一專案的話會看不到要怎麼去設定組態，這時候請依照這篇文章的說明" HOW TO：在套用 Visual Basic 開發者設定的情況下管理組建組態 來設定，設定完之後在專案的屬性裡面就可以看的到了，如下圖 如果方案中有多個專案，那麼在方案的屬性中直接就可以看到設定的地方，如下圖
閱讀完整內容

DataGridView欄位計算總合

在 關於DataGridView的問題 這篇問題中，有網友提到了DataGridView總和的部分要如何去做，chhuang大有回覆了一篇，真是太神了，節錄問題與解決方式如下 問題 我想要計算DetailDataGridView金額的總計 還有就是以蛋糕為例 5*30=150 計算好填回金額內 然後總計的270元 我要寫入另外的textbox內 例如： 商品 數量 單價 金額 -------------------------------------------------- 牛奶 1 20 20 咖啡 2 50 100 蛋糕 5 30 150 總計 270 元 使用VB2005 解答 private void Form1_Load(object sender, EventArgs e) { DataTable dt = new DataTable(); dt.Columns.Add("C1", typeof (string)); dt.Columns.Add("C2", typeof (int)); dt.Columns.Add("C3", typeof (int)); dt.Columns.Add("C4", typeof(int)); dt.Columns["C4"].Expression = "C2 * C3"; dt.Rows.Add("牛奶", 1, 20); dt.Rows.Add("咖啡", 2, 50); dt.Rows.Add("蛋糕", 5, 30); dataGridView1.DataSource = dt; textBox1.Text = dt.Compute("Sum(C4)", null).ToString(); } 相關參考 DataTable.Compute 方法 DataColumn.Expr
閱讀完整內容