Changeset 141 for Include/api_wininet.sbp

Timestamp:

Mar 8, 2007, 10:42:50 AM (18 years ago)

Author:

イグトランス (egtra)

Message:

#50 API宣言の変更完了

File:

• Include/api_wininet.sbp (modified) (5 diffs)

Include/api_wininet.sbp

@@ -5 +5 @@
 #define _INC_WININET
 
+#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
@@ -24 +41 @@
 Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4   'prevent using java/script/INS
 
-Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (
-    lpszAgent As LPCSTR,
+Declare Function InternetOpen Lib "wininet.dll" Alias _FuncName_InternetOpen (
+    lpszAgent As LPCTSTR,
     dwAccessType As DWord,
-    lpszProxy As LPCSTR,
-    lpszProxyBypass As LPCSTR,
+    lpszProxy As LPCTSTR,
+    lpszProxyBypass As LPCTSTR,
     dwFlags As DWord) As HINTERNET
 
@@ -44 +61 @@
 Const INTERNET_DEFAULT_SOCKS_PORT    = 1080        'default for SOCKS firewall servers.
 
-Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (
+Declare Function InternetConnect Lib "wininet.dll" Alias _FuncName_InternetConnect (
     hInternet As HINTERNET,
-    lpszServerName As LPCSTR,
+    lpszServerName As LPCTSTR,
     nServerPort As INTERNET_PORT,
-    lpszUserName As LPCSTR,
-    lpszPassword As LPCSTR,
+    lpszUserName As LPCTSTR,
+    lpszPassword As LPCTSTR,
     dwService As DWord,
     dwFlags As DWord,
@@ -62 +79 @@
 '----------------
 
-Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (
+Declare Function FtpGetFile Lib "wininet.dll" Alias _FuncName_FtpGetFile (
     hConnect As HINTERNET,
-    lpszRemoteFile As LPCSTR,
-    lpszNewFile As LPCSTR,
+    lpszRemoteFile As LPCTSTR,
+    lpszNewFile As LPCTSTR,
     fFailIfExists As BOOL,
     dwFlagsAndAttributes As DWord,
@@ -71 +88 @@
     dwContext As DWORD_PTR) As BOOL
 
-Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" (
+Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias _FuncName_FtpGetCurrentDirectory (
     hConnect As HINTERNET,
-    lpszCurrentDirectory As LPSTR,
+    lpszCurrentDirectory As LPTSTR,
     lpdwCurrentDirectory As DWord) As BOOL
 
-Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (
+Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias _FuncName_FtpSetCurrentDirectory (
     hConnect As HINTERNET,
-    lpszDirectory As LPCSTR) As BOOL
+    lpszDirectory As LPCTSTR) As BOOL
 
-Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" (
+Declare Function FtpFindFirstFile Lib "wininet.dll" Alias _FuncName_FtpFindFirstFile (
     hConnect As HINTERNET,
-    lpszSearchFile As LPCSTR,
-    lpFindFileData As LPWIN32_FIND_DATA,
+    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 "InternetFindNextFileA" (
+Declare Function InternetFindNextFile Lib "wininet.dll" Alias _FuncName_InternetFindNextFile (
     hFind As HINTERNET,
-    lpvFindData As VoidPtr) As BOOL
+    ByREf vFindData As Any) As BOOL