박군의 사진, 일상, IT 이야기

Public Const BUFFERSIZE = 255
Public Const INTERNET_FLAG_PASSIVE = &H8000000
Public Const FTP_TRANSFER_TYPE_BINARY = &H2
Public Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0

Public 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
Public 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 Long
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Long
Public Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Public Declare Function FtpOpenFile Lib "wininet.dll" Alias "FtpOpenFileA" (ByVal hFtpSession As Long, ByVal sBuff As String, ByVal Access As Long, ByVal Flags As Long, ByVal Context As Long) As Long
Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByRef sBuffer As Byte, ByVal lNumBytesToRead As Long, dwNumberOfBytesRead As Long) As Integer
Public Declare Function InternetWriteFile Lib "wininet.dll" (ByVal hFile As Long, ByRef sBuffer As Byte, ByVal lNumBytesToWrite As Long, dwNumberOfBytesWritten As Long) As Integer

Public hOpen As Long
Public hConnection As Long
Public hFile As Long
Public dwType As Long
Public dwSeman As Long

 ' FTP서버 접속
Public Function FtpOpen(strIP As String, strPort As String, strUser As String, strPassword As String) As Boolean
  
    '기존에 이미 접속되어 있으면 기존 접속 종료
    If hConnection <> 0 Then InternetCloseHandle hConnection
  
    '접속에대한 핸들링값 얻음
    hOpen = InternetOpen("FTP Module", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  
    '접속시도
    hConnection = InternetConnect(hOpen, strIP, strPort, strUser, strPassword, 1, INTERNET_FLAG_PASSIVE, 0)
  
    '==== 접속이 되었다면 기본적인 값을 설정해준다.
    If hConnection <> 0 Then
        FtpOpen = True
        dwType = FTP_TRANSFER_TYPE_BINARY
        dwSeman = INTERNET_FLAG_PASSIVE
    End If
  
End Function

'파일 업로드
Public Function FTPUpload(strLocal As String, strRemote As String, objTarget As Object) As Boolean
  
    Dim Data(BUFFERSIZE - 1) As Byte
    Dim Written As Long
    Dim lonSize As Long
    Dim Sum As Long
    Dim lBlock As Long
   
    Sum = 0
    lBlock = 0
   
    FTPUpload = False
   
    '프로그레스바 폼 호출
    objTarget.Show
   
    '로컬파일이나 원격파일 파라미터가 공백인지 체크
    If strLocal <> "" And strRemote <> "" Then
   
        hFile = FtpOpenFile(hConnection, strRemote, GENERIC_WRITE, dwType, 0)
   
        If hFile = 0 Then Exit Function
   
        Open strLocal For Binary Access Read As #1
   
        lonSize = FileLen(strLocal)
        objTarget.PBar.Max = lonSize
   
   
        For lBlock = 1 To lonSize \ BUFFERSIZE
       
            Get #1, , Data
       
            If (InternetWriteFile(hFile, Data(0), BUFFERSIZE, Written) = 0) Then Exit Function
       
            DoEvents
       
            Sum = Sum + BUFFERSIZE
            objTarget.PBar.Value = Sum
            DoEvents
       
        Next
       
        Get #1, , Data
   
        If (InternetWriteFile(hFile, Data(0), lonSize Mod BUFFERSIZE, Written) = 0) Then Exit Function
   
        Sum = Sum + (lonSize Mod BUFFERSIZE)
        lonSize = Sum
   
        Close #1
       
        InternetCloseHandle (hFile)
        FTPUpload = True
   
    End If
 
End Function