source: trunk/ab5.0/ablib/src/api_wininet.sbp@ 506

' api_wininet.sbp

#ifdef UNICODE
Const _FuncName_InternetOpen = "InternetOpenW"
Const _FuncName_InternetConnect = "InternetConnectW"
Const _FuncName_FtpGetFile = "FtpGetFileW"
Const _FuncName_FtpGetCurrentDirectory = "FtpGetCurrentDirectoryW"
Const _FuncName_FtpSetCurrentDirectory = "FtpSetCurrentDirectoryW"
Const _FuncName_FtpFindFirstFile = "FtpFindFirstFileW"
Const _FuncName_InternetFindNextFile = "InternetFindNextFileW"
#else
Const _FuncName_InternetOpen = "InternetOpenA"
Const _FuncName_InternetConnect = "InternetConnectA"
Const _FuncName_FtpGetFile = "FtpGetFileA"
Const _FuncName_FtpGetCurrentDirectory = "FtpGetCurrentDirectoryA"
Const _FuncName_FtpSetCurrentDirectory = "FtpSetCurrentDirectoryA"
Const _FuncName_FtpFindFirstFile = "FtpFindFirstFileA"
Const _FuncName_InternetFindNextFile = "InternetFindNextFileA"
#endif

TypeDef HINTERNET = VoidPtr

TypeDef INTERNET_PORT = Word


Const INTERNET_FLAG_RELOAD = &H80000000  'retrieve the original item


Const FTP_TRANSFER_TYPE_UNKNOWN = &H00000000
Const FTP_TRANSFER_TYPE_ASCII   = &H00000001
Const FTP_TRANSFER_TYPE_BINARY  = &H00000002


Const INTERNET_OPEN_TYPE_PRECONFIG                   = 0   'use registry configuration
Const INTERNET_OPEN_TYPE_DIRECT                      = 1   'direct to net
Const INTERNET_OPEN_TYPE_PROXY                       = 3   'via named proxy
Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4   'prevent using java/script/INS

Declare Function InternetOpen Lib "wininet.dll" Alias _FuncName_InternetOpen (
    lpszAgent As LPCTSTR,
    dwAccessType As DWord,
    lpszProxy As LPCTSTR,
    lpszProxyBypass As LPCTSTR,
    dwFlags As DWord) As HINTERNET

Const INTERNET_SERVICE_FTP    = 1
Const INTERNET_SERVICE_GOPHER = 2
Const INTERNET_SERVICE_HTTP   = 3

Const INTERNET_FLAG_PASSIVE   = &H08000000  'used for FTP connections

Const INTERNET_INVALID_PORT_NUMBER   = 0           'use the protocol-specific default
Const INTERNET_DEFAULT_FTP_PORT      = 21          'default for FTP servers
Const INTERNET_DEFAULT_GOPHER_PORT   = 70          '   "     "  gopher "
Const INTERNET_DEFAULT_HTTP_PORT     = 80          '   "     "  HTTP   "
Const INTERNET_DEFAULT_HTTPS_PORT    = 443         '   "     "  HTTPS  "
Const INTERNET_DEFAULT_SOCKS_PORT    = 1080        'default for SOCKS firewall servers.

Declare Function InternetConnect Lib "wininet.dll" Alias _FuncName_InternetConnect (
    hInternet As HINTERNET,
    lpszServerName As LPCTSTR,
    nServerPort As INTERNET_PORT,
    lpszUserName As LPCTSTR,
    lpszPassword As LPCTSTR,
    dwService As DWord,
    dwFlags As DWord,
    dwContext As DWORD_PTR) As HINTERNET

Declare Function InternetCloseHandle Lib "wininet.dll" (hInternet As HINTERNET) As BOOL



'----------------
' FTP
'----------------

Declare Function FtpGetFile Lib "wininet.dll" Alias _FuncName_FtpGetFile (
    hConnect As HINTERNET,
    lpszRemoteFile As LPCTSTR,
    lpszNewFile As LPCTSTR,
    fFailIfExists As BOOL,
    dwFlagsAndAttributes As DWord,
    dwFlags As DWord,
    dwContext As DWORD_PTR) As BOOL

Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias _FuncName_FtpGetCurrentDirectory (
    hConnect As HINTERNET,
    lpszCurrentDirectory As LPTSTR,
    lpdwCurrentDirectory As DWord) As BOOL

Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias _FuncName_FtpSetCurrentDirectory (
    hConnect As HINTERNET,
    lpszDirectory As LPCTSTR) As BOOL

Declare Function FtpFindFirstFile Lib "wininet.dll" Alias _FuncName_FtpFindFirstFile (
    hConnect As HINTERNET,
    lpszSearchFile As LPCTSTR,
    ByRef FindFileData As WIN32_FIND_DATA,
    dwFlags As DWord,
    dwContext As DWORD_PTR) As HINTERNET

Declare Function InternetFindNextFile Lib "wininet.dll" Alias _FuncName_InternetFindNextFile (
    hFind As HINTERNET,
    ByREf vFindData As Any) As BOOL