[新4]用ACCESS向ｆｔｐ服務(wù)器上傳文件

jzwwpp

不調(diào)用任何ｆｔｐ軟件，只使用ACCESS編程實現(xiàn)。。。

CHENZHIRONG

用API調(diào)用：'聲明：Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _

    (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _

    ByVal sProxyBypass As String, ByVal lFlags As Long) As LongPrivate Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _

    (ByVal hInternetSession As Long, ByVal sServerName As String, _

    ByVal nServerPort As Integer, ByVal sUsername As String, _

    ByVal sPassword As String, ByVal lService As Long, _

    ByVal lFlags As Long, ByVal lContext As Long) As Long

   

Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _

    (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _

    ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _

    ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _

    ByVal dwContext As Long) As BooleanPrivate Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _

    (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _

    ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _

    ByVal dwContext As Long) As Boolean

   

Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer'函數(shù)Private Function UpLoadFile(ByVal LocateFile As String, ByVal RemoteFile As String) As Boolean

Dim lngINet As Long, lngINetConn As Long, blnRC As Boolean

    'Me.lbMsg.Caption = "打開INTERNET句柄"

    'Me.Repaint

    lngINet = InternetOpen("FTP", 1, vbNullString, vbNullString, 0)

    If lngINet = 0 Then Exit Function

    'Me.lbMsg.Caption = "連接遠程主機"

    'Me.Repaint

    lngINetConn = InternetConnect(lngINet, "IP地址", 端口, "用戶", "密碼", 1, 0, 0)

    If lngINetConn = 0 Then Exit Function

    'Me.lbMsg.Caption = "上傳文件"

    'Me.Repaint

    blnRC = FtpPutFile(lngINetConn, LocateFile, RemoteFile, 1, 0)

    If blnRC = False Then Exit Function

    'Me.lbMsg.Caption = "上傳成功"

    'Me.Repaint

    InternetCloseHandle lngINetConn

    InternetCloseHandle lngINet

    UpLoadFile = True

    'Me.lbMsg.Caption = ""

End Function

Private Function DownLoadFile(ByVal RemoteFile As String, ByVal LocateFile As String) As Boolean

Dim lngINet As Long, lngINetConn As Long, blnRC As Boolean

    'Me.lbMsg.Caption = "打開INTERNET句柄..."

    'Me.Repaint

    lngINet = InternetOpen("FTP", 1, vbNullString, vbNullString, 0)

    If lngINet = 0 Then Exit Function

    'Me.lbMsg.Caption = "連接遠程主機..."

    'Me.Repaint

    lngINetConn = InternetConnect(lngINet, "IP地址", 端口, "帳號", "密碼", 1, 0, 0)

    If lngINetConn = 0 Then Exit Function

    'Me.lbMsg.Caption = "正在下載文件..."

    'Me.Repaint

    blnRC = FtpGetFile(lngINetConn, RemoteFile, LocateFile, False, 0, 1, 0)

    If blnRC = False Then Exit Function

    'Me.lbMsg.Caption = "下載成功"

    'Me.Repaint

    InternetCloseHandle lngINetConn

    InternetCloseHandle lngINet

    DownLoadFile = True

End Function

jzwwpp

我想是否可以調(diào)用ｗｅｂ瀏覽器直接打開ｆｔｐ，然后復(fù)制所需文件，再粘貼到ｗｅｂ瀏覽器，現(xiàn)在只能想到這樣了，不知高手門有沒有更好的辦法。

jzwwpp

另外一個做法：
直接用一個ole連接字段，然后把文件存進去。在界面上作個按鈕，用代碼插入ole連接對象，看起來就像上傳一樣，這樣唯一的缺點就是數(shù)據(jù)庫增大的很快，只能定期維護，我的解決的辦法就是作一個按鈕“查看”，打開文件的同時就將這個對象刪除，以減小數(shù)據(jù)庫的尺寸。請問那位有更好的辦法？？？

fremgo

暈， 這不把FTP軟件的FTP代碼都般過來了嗎， hoho～

lwwvb

做到了題目就OK啦！為什么要介意這個？這種題目就好象說：我要你走路，但不準(zhǔn)用腳走！[em11]

DC10

謝謝！跟chenzirong學(xué)了一招！[em07]

jzwwpp

不錯，能作到就好。，。

MosesCao

要的就是它!太感謝了!

fresh+men

好像可以用WINSOCK或EZFTP控件的，我沒用過，但應(yīng)該比WINAPI好寫