Index: trunk/ab5.0/ablib/src/basic.sbp =================================================================== --- trunk/ab5.0/ablib/src/basic.sbp (revision 669) +++ trunk/ab5.0/ablib/src/basic.sbp (revision 670) @@ -115,4 +115,5 @@ #require +#require #require Index: trunk/ab5.0/ablib/src/mlang.ab =================================================================== --- trunk/ab5.0/ablib/src/mlang.ab (revision 670) +++ trunk/ab5.0/ablib/src/mlang.ab (revision 670) @@ -0,0 +1,641 @@ +Enum MLSTR_FLAGS + MLSTR_READ = 1 + MLSTR_WRITE = 2 +End Enum + +Const CPIOD_PEEK = &h40000000 +Const CPIOD_FORCE_PROMPT = &h80000000 + +Dim LIBID_MultiLanguage = [&hE0235C27, &h4737, &hD011, [&h9F, &hEA, &h00, &hAA, &h00, &h3F, &h86, &h46]] As GUID + +'以下のものは省略 +Interface IMLangStringBufW : Inherits IUnknown : End Interface +Interface IMLangStringBufA : Inherits IUnknown : End Interface +Interface IMLangString : Inherits IUnknown : End Interface +Interface IMLangStringWStr : Inherits IUnknown : End Interface +Interface IMLangStringAStr : Inherits IUnknown : End Interface + +/* interface IMLangLineBreakConsole */ +/* [object][unique][helpstring][uuid] */ + +Dim IMLangLineBreakConsole = [&hF5BE2EE1, &hBFD7, &h11D0, [&hB1, &h88, &h00, &hAA, &h00, &h38, &hC9, &h69]] As IID + +Interface IMLangLineBreakConsole + Inherits IUnknown + + /* [helpstring] */ Function BreakLineML( + /* [in] */ pSrcMLStr As IMLangString, + /* [in] */ lSrcPos As Long, + /* [in] */ lSrcLen As Long, + /* [in] */ cMinColumns As Long, + /* [in] */ cMaxColumns As Long, + /* [out] */ ByRef lLineLen As Long, + /* [out] */ ByRef lSkipLen As Long) As HRESULT + /* [helpstring] */ Function BreakLineW( + /* [in] */ locale As LCID, + /* [size_is][in] */ pszSrc As PCWSTR, + /* [in] */ cchSrc As Long, + /* [in] */ cMaxColumns As Long, + /* [out] */ ByRef cchLine As Long, + /* [out] */ ByRef cchSkip As Long) As HRESULT + /* [helpstring] */ Function BreakLineA( + /* [in] */ locale As LCID, + /* [in] */ uCodePage As DWord, + /* [size_is][in] */ pszSrc As PCSTR, + /* [in] */ cchSrc As Long, + /* [in] */ cMaxColumns As Long, + /* [out] */ ByRef cchLine As Long, + /* [out] */ ByRef cchSkip As Long) As HRESULT + +End Interface + +/* interface IEnumCodePage */ +/* [unique][uuid][object] */ + +Const MAX_MIMECP_NAME = 64 + +Const MAX_MIMECSET_NAME = 50 + +Const MAX_MIMEFACE_NAME = 32 + +Const Enum MIMECONTF + MIMECONTF_MAILNEWS = &h1 + MIMECONTF_BROWSER = &h2 + MIMECONTF_MINIMAL = &h4 + MIMECONTF_IMPORT = &h8 + MIMECONTF_SAVABLE_MAILNEWS = &h100 + MIMECONTF_SAVABLE_BROWSER = &h200 + MIMECONTF_EXPORT = &h400 + MIMECONTF_PRIVCONVERTER = &h10000 + MIMECONTF_VALID = &h20000 + MIMECONTF_VALID_NLS = &h40000 + MIMECONTF_MIME_IE4 = &h10000000 + MIMECONTF_MIME_LATEST = &h20000000 + MIMECONTF_MIME_REGISTRY = &h40000000 +End Enum + +Type MIMECPINFO + dwFlags As DWord + uiCodePage As DWord + uiFamilyCodePage As DWord + wszDescription[ELM(64)] As WCHAR + wszWebCharset[ELM(50)] As WCHAR + wszHeaderCharset[ELM(50)] As WCHAR + wszBodyCharset[ELM(50)] As WCHAR + wszFixedWidthFont[ELM(32)] As WCHAR + wszProportionalFont[ELM(32)] As WCHAR + bGDICharset As Byte +End Type + +Type MIMECSETINFO + uiCodePage As DWord + uiInternetEncoding As DWord + wszCharset[ELM(50)] As WCHAR +End Type + +Dim IID_IEnumCodePage = [&h275c23e3, &h3747, &h11d0, [&h9f, &hea, &h00, &haa, &h00, &h3f, &h86, &h46]] As IID + +Interface IEnumCodePage + Inherits IUnknown + + Function Clone( + /* [out] */ ByRef Enum_ As IEnumCodePage) As HRESULT + Function Next_( + /* [in] */ celt As DWord, + /* [out] */ rgelt As *MIMECPINFO, + /* [out] */ ByRef celtFetched As DWord) As HRESULT + Function Reset() As HRESULT + Function Skip( + /* [in] */ celt As DWord) As HRESULT +End Interface + +/* interface IEnumRfc1766 */ +/* [unique][uuid][object] */ + +Const MAX_RFC1766_NAME = 6 + +Const MAX_LOCALE_NAME = 32 + +Type RFC1766INFO + lcid As LCID + wszRfc1766[ELM(6)] As WCHAR + wszLocaleName[ELM(32)] As WCHAR +End Type + +Dim IID_IEnumRfc1766 = [&h3dc39d1d, &hc030, &h11d0, [&hb8, &h1b, &h00, &hc0, &h4f, &hc9, &hb3, &h1f]] As IID + +Interface IEnumRfc1766 + Inherits IUnknown + + Function Clone( + /* [out] */ ByRef Enum_ As IEnumRfc1766) As HRESULT + Function Next_( + /* [in] */ celt As DWord, + /* [out] */ rgelt As *RFC1766INFO, + /* [out] */ ByRef celtFetched As DWord) As HRESULT + Function Reset() As HRESULT + Function Skip( + /* [in] */ celt As DWord) As HRESULT +End Interface + +/* interface IEnumScript */ +/* [unique][uuid][object] */ + +Const MAX_SCRIPT_NAME = 48 + +TypeDef SCRIPT_ID = BYTE + +TypeDef SCRIPT_IDS = Int64 + +Enum SCRIPTCONTF + sidDefault = 0 + sidMerge + sidAsciiSym + sidAsciiLatin + sidLatin + sidGreek + sidCyrillic + sidArmenian + sidHebrew + sidArabic + sidDevanagari + sidBengali + sidGurmukhi + sidGujarati + sidOriya + sidTamil + sidTelugu + sidKannada + sidMalayalam + sidThai + sidLao + sidTibetan + sidGeorgian + sidHangul + sidKana + sidBopomofo + sidHan + sidEthiopic + sidCanSyllabic + sidCherokee + sidYi + sidBraille + sidRunic + sidOgham + sidSinhala + sidSyriac + sidBurmese + sidKhmer + sidThaana + sidMongolian + sidUserDefined + sidLim + sidFEFirst = sidHangul + sidFELast = sidHan +End Enum + +Type SCRIPTINFO + ScriptId As SCRIPT_ID + uiCodePage As DWord + wszDescription[ELM(48)] As WCHAR + wszFixedWidthFont[ELM(32)] As WCHAR + wszProportionalFont[ELM(32)] As WCHAR +End Type + +Dim IID_IEnumScript = [&hAE5F1430, &h388B, &h11d2, [&h83, &h80, &h00, &hC0, &h4F, &h8F, &h5D, &hA1]] As IID + +Interface IEnumScript + Inherits IUnknown + + Function Clone( + /* [out] */ ByRef Enum_ As IEnumScript) As HRESULT + Function Next_( + /* [in] */ celt As DWord, + /* [out] */ rgelt As *SCRIPTINFO, + /* [out] */ ByRef celtFetched As DWord) As HRESULT + Function Reset() As HRESULT + Function Skip( + /* [in] */ celt As DWord) As HRESULT +End Interface + +/* interface IMLangConvertCharset */ +/* [unique][uuid][object] */ + +Const Enum MLCONVCHAR + MLCONVCHARF_AUTODETECT = 1 + MLCONVCHARF_ENTITIZE = 2 + MLCONVCHARF_NCR_ENTITIZE = 2 + MLCONVCHARF_NAME_ENTITIZE = 4 + MLCONVCHARF_USEDEFCHAR = 8 + MLCONVCHARF_NOBESTFITCHARS = 16 + MLCONVCHARF_DETECTJPN = 32 +End Enum + +Const Enum MLCP + MLDETECTF_MAILNEWS = &h1 + MLDETECTF_BROWSER = &h2 + MLDETECTF_VALID = &h4 + MLDETECTF_VALID_NLS = &h8 + MLDETECTF_PRESERVE_ORDER = &h10 + MLDETECTF_PREFERRED_ONLY = &h20 + MLDETECTF_FILTER_SPECIALCHAR = &h40 + MLDETECTF_EURO_UTF8 = &h80 +End Enum + +Dim IID_IMLangConvertCharset = [&hd66d6f98, &hcdaa, &h11d0, [&hb8, &h22, &h00, &hc0, &h4f, &hc9, &hb3, &h1f]] As IID + +Interface IMLangConvertCharset + Inherits IUnknown + + Function Initialize( + /* [in] */ uiSrcCodePage As DWord, + /* [in] */ uiDstCodePage As DWord, + /* [in] */ dwProperty As DWord) As HRESULT + Function GetSourceCodePage( + /* [out] */ ByRef uiSrcCodePage As DWord) As HRESULT + Function GetDestinationCodePage( + /* [out] */ ByRef uiDstCodePage As DWord) As HRESULT + Function GetProperty( + /* [out] */ ByRef dwProperty As DWord) As HRESULT + Function DoConversion( + /* [in] */ pSrcStr As *Byte, + /* [out][in] */ ByRef cSrcSize As DWord, + /* [in] */ pDstStr As *Byte, + /* [out][in] */ ByRef cDstSize As DWord) As HRESULT + Function DoConversionToUnicode( + /* [in] */ pSrcStr As *CHAR, + /* [out][in] */ ByRef cSrcSize As DWord, + /* [in] */ pDstStr As *WCHAR, + /* [out][in] */ ByRef cDstSize As DWord) As HRESULT + Function DoConversionFromUnicode( + /* [in] */ pSrcStr As *WCHAR, + /* [out][in] */ ByRef cSrcSize As DWord, + /* [in] */ pDstStr As *CHAR, + /* [out][in] */ ByRef cDstSize As DWord) As HRESULT +End Interface + +Dim CLSID_CMLangConvertCharset = [&hd66d6f99, &hcdaa, &h11d0, [&hb8, &h22, &h00, &hc0, &h4f, &hc9, &hb3, &h1f]] As CLSID + +/* interface IMultiLanguage */ +/* [unique][uuid][object] */ + +Dim IID_IMultiLanguage = [&h275c23e1, &h3747, &h11d0, [&h9f, &hea, &h00, &haa, &h00, &h3f, &h86, &h46]] As IID + +Interface IMultiLanguage + Inherits IUnknown + + Function GetNumberOfCodePageInfo( + /* [out] */ ByRef cCodePage As DWord) As HRESULT + Function GetCodePageInfo( + /* [in] */ uiCodePage As DWord, + /* [out] */ ByRef CodePageInfo As MIMECPINFO) As HRESULT + Function GetFamilyCodePage( + /* [in] */ uiCodePage As DWord, + /* [out] */ ByRef uiFamilyCodePage As DWord) As HRESULT + Function EnumCodePages( + /* [in] */ grfFlags As DWord, + /* [out] */ ByRef EnumCodePage As IEnumCodePage) As HRESULT + Function GetCharsetInfo( + /* [in] */ Charset As BSTR, + /* [out] */ ByRef CharsetInfo As MIMECSETINFO) As HRESULT + Function IsConvertible( + /* [in] */ dwSrcEncoding As DWord, + /* [in] */ dwDstEncoding As DWord) As HRESULT + Function ConvertString( + /* [out][in] */ ByRef dwMode As DWord, + /* [in] */ dwSrcEncoding As DWord, + /* [in] */ dwDstEncoding As DWord, + /* [in] */ pSrcStr As *Byte, + /* [out][in] */ ByRef cSrcSize As DWord, + /* [in] */ pDstStr As *Byte, + /* [out][in] */ ByRef cDstSize As DWord) As HRESULT + Function ConvertStringToUnicode( + /* [out][in] */ ByRef dwMode As DWord, + /* [in] */ dwEncoding As DWord, + /* [in] */ pSrcStr As *CHAR, + /* [out][in] */ ByRef cSrcSize As DWord, + /* [in] */ pDstStr As *WCHAR, + /* [out][in] */ ByRef cDstSize As DWord) As HRESULT + Function ConvertStringFromUnicode( + /* [out][in] */ ByRef dwMode As DWord, + /* [in] */ dwEncoding As DWord, + /* [in] */ pSrcStr As *WCHAR, + /* [out][in] */ ByRef cSrcSize As DWord, + /* [in] */ pDstStr As *CHAR, + /* [out][in] */ ByRef cDstSize As DWord) As HRESULT + Function ConvertStringReset() As HRESULT + Function GetRfc1766FromLcid( + /* [in] */ Locale As LCID, + /* [out] */ ByRef bstrRfc1766 As BSTR) As HRESULT + Function GetLcidFromRfc1766( + /* [out] */ ByRef Locale As LCID, + /* [in] */ bstrRfc1766 As BSTR) As HRESULT + Function EnumRfc1766( + /* [out] */ ByRef EnumRfc1766 As IEnumRfc1766) As HRESULT + Function GetRfc1766Info( + /* [in] */ Locale As LCID, + /* [out] */ ByRef Rfc1766Info As RFC1766INFO) As HRESULT + Function CreateConvertCharset( + /* [in] */ uiSrcCodePage As DWord, + /* [in] */ uiDstCodePage As DWord, + /* [in] */ dwProperty As DWord, + /* [out] */ ByRef MLangConvertCharset As IMLangConvertCharset) As HRESULT +End Interface + +/* interface IMultiLanguage2 */ +/* [local][unique][uuid][object] */ + +Const Enum MLDETECTCP + MLDETECTCP_NONE = 0 + MLDETECTCP_7BIT = 1 + MLDETECTCP_8BIT = 2 + MLDETECTCP_DBCS = 4 + MLDETECTCP_HTML = 8 + MLDETECTCP_NUMBER = 16 +End Enum + +Type DetectEncodingInfo + nLangID As DWord + nCodePage As DWord + nDocPercent As Long + nConfidence As Long +End Type + +Const Enum SCRIPTFONTCONTF + SCRIPTCONTF_FIXED_FONT = &h1 + SCRIPTCONTF_PROPORTIONAL_FONT = &h2 + SCRIPTCONTF_SCRIPT_USER = &h10000 + SCRIPTCONTF_SCRIPT_HIDE = &h20000 + SCRIPTCONTF_SCRIPT_SYSTEM = &h40000 +End Enum + +Type SCRIPTFONTINFO + scripts As SCRIPT_IDS + wszFont[ELM(32)] As WCHAR +End Type + +Dim IID_IMultiLanguage2 = [&hDCCFC164, &h2B38, &h11d2, [&hB7, &hEC, &h00, &hC0, &h4F, &h8F, &h5D, &h9A]] As IID + +Interface IMultiLanguage2 + Inherits IUnknown + + Function GetNumberOfCodePageInfo( + /* [out] */ ByRef cCodePage As DWord) As HRESULT + Function GetCodePageInfo( + /* [in] */ uiCodePage As DWord, + /* [in] */ LangId As LANGID, + /* [out] */ ByRef CodePageInfo As MIMECPINFO) As HRESULT + Function GetFamilyCodePage( + /* [in] */ uiCodePage As DWord, + /* [out] */ ByRef uiFamilyCodePage As DWord) As HRESULT + Function EnumCodePages( + /* [in] */ grfFlags As DWord, + /* [in] */ LangId As LANGID, + /* [out] */ ByRef EnumCodePage As IEnumCodePage) As HRESULT + Function GetCharsetInfo( + /* [in] */ Charset As BSTR, + /* [out] */ ByRef CharsetInfo As MIMECSETINFO) As HRESULT + Function IsConvertible( + /* [in] */ dwSrcEncoding As DWord, + /* [in] */ dwDstEncoding As DWord) As HRESULT + Function ConvertString( + /* [out][in] */ ByRef dwMode As DWord, + /* [in] */ dwSrcEncoding As DWord, + /* [in] */ dwDstEncoding As DWord, + /* [in] */ pSrcStr As *Byte, + /* [out][in] */ ByRef cSrcSize As DWord, + /* [in] */ pDstStr As *Byte, + /* [out][in] */ ByRef cDstSize As DWord) As HRESULT + Function ConvertStringToUnicode( + /* [out][in] */ ByRef dwMode As DWord, + /* [in] */ dwEncoding As DWord, + /* [in] */ pSrcStr As PCSTR, + /* [out][in] */ ByRef cSrcSize As DWord, + /* [in] */ pDstStr As PWSTR, + /* [out][in] */ ByRef cDstSize As DWord) As HRESULT + Function ConvertStringFromUnicode( + /* [out][in] */ ByRef dwMode As DWord, + /* [in] */ dwEncoding As DWord, + /* [in] */ pSrcStr As PCWSTR, + /* [out][in] */ ByRef cSrcSize As DWord, + /* [in] */ pDstStr As PSTR, + /* [out][in] */ ByRef cDstSize As DWord) As HRESULT + Function ConvertStringReset() As HRESULT + Function GetRfc1766FromLcid( + /* [in] */ Locale As LCID, + /* [out] */ ByRef bstrRfc1766 As BSTR) As HRESULT + Function GetLcidFromRfc1766( + /* [out] */ ByRef Locale As LCID, + /* [in] */ bstrRfc1766 As BSTR) As HRESULT + Function EnumRfc1766( + /* [in] */ LangId As LANGID, + /* [out] */ ByRef EnumRfc1766 As IEnumRfc1766) As HRESULT + Function GetRfc1766Info( + /* [in] */ LangId As LANGID, + /* [in] */ Locale As LCID, + /* [out] */ ByRef Rfc1766Info As RFC1766INFO) As HRESULT + Function CreateConvertCharset( + /* [in] */ uiSrcCodePage As DWord, + /* [in] */ uiDstCodePage As DWord, + /* [in] */ dwProperty As DWord, + /* [out] */ ByRef MLangConvertCharset As IMLangConvertCharset) As HRESULT + Function ConvertStringInIStream( + /* [out][in] */ ByRef dwMode As DWord, + /* [in] */ dwFlag As DWord, + /* [in] */ lpFallBack As *WCHAR, + /* [in] */ dwSrcEncoding As DWord, + /* [in] */ dwDstEncoding As DWord, + /* [in] */ stmIn As IStream, + /* [in] */ stmOut As IStream) As HRESULT + Function ConvertStringToUnicodeEx( + /* [out][in] */ ByRef dwMode As DWord, + /* [in] */ dwFlag As DWord, + /* [in] */ pSrcStr As *CHAR, + /* [out][in] */ ByRef cSrcSize As DWord, + /* [in] */ pDstStr As *WCHAR, + /* [out][in] */ ByRef cDstSize As DWord, + /* [in] */ dwFlag As DWord, + /* [in] */ lpFallBack As *WCHAR) As HRESULT + Function ConvertStringFromUnicodeEx( + /* [out][in] */ ByRef dwMode As DWord, + /* [in] */ dwFlag As DWord, + /* [in] */ pSrcStr As *WCHAR, + /* [out][in] */ ByRef cSrcSize As DWord, + /* [in] */ pDstStr As *CHAR, + /* [out][in] */ ByRef cDstSize As DWord, + /* [in] */ dwFlag As DWord, + /* [in] */ lpFallBack As *WCHAR) As HRESULT + Function DetectCodepageInIStream( + /* [in] */ dwFlag As DWord, + /* [in] */ dwPrefWinCodePage As DWord, + /* [in] */ stmIn As IStream, + /* [out][in] */ ByRef Encoding As DetectEncodingInfo, + /* [out][in] */ ByRef nScores As Long) As HRESULT + Function DetectInputCodepage( + /* [in] */ dwFlag As DWord, + /* [in] */ dwPrefWinCodePage As DWord, + /* [in] */ pSrcStr As *CHAR, + /* [out][in] */ ByRef cSrcSize As Long, + /* [out][in] */ ByRef Encoding As DetectEncodingInfo, + /* [out][in] */ ByRef nScores As Long) As HRESULT + Function ValidateCodePage( + /* [in] */ uiCodePage As DWord, + /* [in] */ hwnd As HWND) As HRESULT + Function GetCodePageDescription( + /* [in] */ uiCodePage As DWord, + /* [in] */ lcid As LCID, + /* [size_is][out][in] */ lpWideCharStr As LPWSTR, + /* [in] */ cchWideChar As Long) As HRESULT + Function IsCodePageInstallable( + /* [in] */ uiCodePage As DWord) As HRESULT + Function SetMimeDBSource( + /* [in] */ dwSource As MIMECONTF) As HRESULT + Function GetNumberOfScripts( + /* [out] */ ByRef nScripts As DWord) As HRESULT + Function EnumScripts( + /* [in] */ dwFlags As DWORD, + /* [in] */ LangId As LANGID, + /* [out] */ ByRef EnumScript As IEnumScript) As HRESULT + Function ValidateCodePageEx( + /* [in] */ uiCodePage As DWord, + /* [in] */ hwnd As HWND, + /* [in] */ dwfIODControl As DWord) As HRESULT +End Interface + +/* interface IMLangCodePages */ +/* [object][unique][helpstring][uuid] */ + +Dim IID_IMLangCodePages = [&h359F3443, &hBD4A, &h11D0, [&hB1, &h88, &h00, &hAA, &h00, &h38, &hC9, &h69]] As IID + +Interface IMLangCodePages + Inherits IUnknown + + /* [helpstring] */ Function GetCharCodePages( + /* [in] */ chSrc As WCHAR, + /* [out] */ ByRef dwCodePages As DWord) As HRESULT + /* [helpstring] */ Function GetStrCodePages( + /* [size_is][in] */ pszSrc As PCWSTR, + /* [in] */ cchSrc As Long, + /* [in] */ dwPriorityCodePages As DWord, + /* [out] */ ByRef dwCodePages As DWord, + /* [out] */ ByRef cchCodePages As Long) As HRESULT + /* [helpstring] */ Function CodePageToCodePages( + /* [in] */ uCodePage As DWord, + /* [out] */ ByRef dwCodePages As DWord) As HRESULT + /* [helpstring] */ Function CodePagesToCodePage( + /* [in] */ dwCodePages As DWord, + /* [in] */ uDefaultCodePage As DWord, + /* [out] */ ByRef uCodePage As DWord) As HRESULT +End Interface + +/* interface IMLangFontLink */ +/* [object][unique][helpstring][uuid] */ + +Dim IID_IMLangFontLink = [&h359F3441, &hBD4A, &h11D0, [&hB1, &h88, &h00, &hAA, &h00, &h38, &hC9, &h69]] As IID + +Interface IMLangFontLink + Inherits IMLangCodePages + + /* [helpstring] */ Function GetFontCodePages( + /* [in] */ hDC As HDC, + /* [in] */ hFont As HFONT, + /* [out] */ ByRef dwCodePages As DWord) As HRESULT + /* [helpstring] */ Function MapFont( + /* [in] */ hDC As HDC, + /* [in] */ dwCodePages As DWord, + /* [in] */ hSrcFont As HFONT, + /* [out] */ ByRef hDestFont As HFONT) As HRESULT + /* [helpstring] */ Function ReleaseFont( + /* [in] */ hFont As HFONT) As HRESULT + /* [helpstring] */ Function ResetFontMapping() As HRESULT +End Interface + +/* interface IMLangFontLink2 */ +/* [object][unique][helpstring][uuid] */ + +Type UNICODERANGE + wcFrom As WCHAR + wcTo As WCHAR +End Type + +Dim IID_IMLangFontLink2 = [&hDCCFC162, &h2B38, &h11d2, [&hB7, &hEC, &h00, &hC0, &h4F, &h8F, &h5D, &h9A]] As IID + +Interface IMLangFontLink2 + Inherits IMLangCodePages + + /* [helpstring] */ Function GetFontCodePages( + /* [in] */ hDC As HDC, + /* [in] */ hFont As HFONT, + /* [out] */ ByRef dwCodePages As DWord) As HRESULT + /* [helpstring] */ Function ReleaseFont( + /* [in] */ hFont As HFONT) As HRESULT + /* [helpstring] */ Function ResetFontMapping() As HRESULT + /* [helpstring] */ Function MapFont( + /* [in] */ hDC As HDC, + /* [in] */ dwCodePages As DWord, + /* [in] */ chSrc As WCHAR, + /* [out] */ ByRef hDestFont As HFONT) As HRESULT + /* [helpstring] */ Function GetFontUnicodeRanges( + /* [in] */ hDC As HDC, + /* [out][in] */ ByRef uiRanges As DWord, + /* [out] */ pUranges As *UNICODERANGE) As HRESULT + /* [helpstring] */ Function GetScriptFontInfo( + /* [in] */ sid As SCRIPT_ID, + /* [in] */ dwFlags As DWord, + /* [out][in] */ ByRef uiFonts As DWord, + /* [out] */ pScriptFont As *SCRIPTFONTINFO) As HRESULT + /* [helpstring] */ Function CodePageToScriptID( + /* [in] */ uiCodePage As DWord, + /* [out] */ ByRef Sid As SCRIPT_ID) As HRESULT +End Interface + +/* interface IMultiLanguage3 */ +/* [unique][uuid][object] */ + +Dim IID_IMultiLanguage3 = [&h4e5868ab, &hb157, &h4623, [&h9a, &hcc, &h6a, &h1d, &h9c, &hae, &hbe, &h04]] As IID + +Interface IMultiLanguage3 + Inherits IMultiLanguage2 + + Function DetectOutboundCodePage( + /* [in] */ dwFlags As DWord, + /* [in] */ lpWideCharStr As LPCWSTR, + /* [in] */ cchWideChar As DWord, + /* [in] */ puiPreferredCodePages As *DWord, + /* [in] */ nPreferredCodePages As DWord, + /* [in] */ puiDetectedCodePages As *DWord, + /* [out][in] */ ByRef nDetectedCodePages As DWord, + /* [in] */ lpSpecialChar As *WCHAR) As HRESULT + Function DetectOutboundCodePageInIStream( + /* [in] */ dwFlags As DWord, + /* [in] */ StrIn As IStream, + /* [in] */ puiPreferredCodePages As *DWord, + /* [in] */ nPreferredCodePages As DWord, + /* [in] */ puiDetectedCodePages As *DWord, + /* [out][in] */ ByRef nDetectedCodePages As DWord, + /* [in] */ lpSpecialChar As *WCHAR) As HRESULT +End Interface + +Dim CLSID_CMultiLanguage = [&h275c23e2, &h3747, &h11d0, [&h9f, &hea, &h00, &haa, &h00, &h3f, &h86, &h46]] As CLSID +/* +Declare Function LcidToRfc1766A Lib "mlang" (Locale As LCID, pszRfc1766 As LPSTR, iMaxLength As Long) As HRESULT +Declare Function LcidToRfc1766W Lib "mlang" (Locale As LCID, pszRfc1766 As LPWSTR, nChar As Long) As HRESULT +#ifdef UNICODE +Declare Function LcidToRfc1766 Lib "mlang" Alias "LcidToRfc1766W" (Locale As LCID, pszRfc1766 As LPWSTR, nChar As Long) As HRESULT +#else +Declare Function LcidToRfc1766 Lib "mlang" Alias "LcidToRfc1766A" (Locale As LCID, pszRfc1766 As LPSTR, iMaxLength As Long) As HRESULT +#endif + +Declare Function Rfc1766ToLcidA Lib "mlang" (ByRef Locale As LCID, pszRfc1766 As LPCSTR) As HRESULT +Declare Function Rfc1766ToLcidW Lib "mlang" (ByRef Locale As LCID, pszRfc1766 As LPCWSTR) As HRESULT +#ifdef UNICODE +Declare Function Rfc1766ToLcid Lib "mlang" Alias "Rfc1766ToLcidW" (ByRef Locale As LCID, pszRfc1766 As LPCWSTR) As HRESULT +#else +Declare Function Rfc1766ToLcid Lib "mlang" Alias "Rfc1766ToLcidA"(ByRef Locale As LCID, pszRfc1766 As LPCSTR) As HRESULT +#endif + +Delcare Function IsConvertINetStringAvailable Lib "mlang" (dwSrcEncoding As DWord, dwDstEncoding As DWord) As HRESULT +Declare Function ConvertINetString Lib "mlang" (ByRef lpdwMode As DWord, dwSrcEncoding As DWord, dwDstEncoding As DWord, lpSrcStr As LPCSTR, lpnSrcSize As *Long, lpDstStr As LPSTR, lpnDstSize As *Long) As HRESULT +Declare Function ConvertINetMultiByteToUnicode Lib "mlang" (ByRef lpdwMode As DWord, dwEncoding As DWord, lpSrcStr As LPCSTR, lpnMultiCharCount As *Long, lpDstStr As LPWSTR, lpnWideCharCount As *Long) As HRESULT +Declare Function ConvertINetUnicodeToMultiByte Lib "mlang" (ByRef lpdwMode As DWord, dwEncoding As DWord, lpSrcStr As LPCWSTR, lpnWideCharCount As *Long, lpDstStr As LPSTR, lpnMultiCharCount As *Long) As HRESULT +*/ Index: trunk/ab5.0/ablib/src/objidl.sbp =================================================================== --- trunk/ab5.0/ablib/src/objidl.sbp (revision 669) +++ trunk/ab5.0/ablib/src/objidl.sbp (revision 670) @@ -170,5 +170,4 @@ /* interface AsyncIMultiQI */ /* [uuid][local][object] */ - Dim IID_AsyncIMultiQI = [&h000e0020, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID @@ -709,4 +708,7 @@ End Interface +/* interface IEnumFORMATETC */ +/* [unique][uuid][object] */ + Type DVTARGETDEVICE tdSize As DWord @@ -730,10 +732,54 @@ TypeDef LPFORMATETC = *FORMATETC +Dim IID_IEnumFORMATETC = [&h00000103, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID + Interface IEnumFORMATETC Inherits IUnknown -End Interface + + /* [local] */ Function Next_( + /* [in] */ celt As DWord, + /* [length_is][size_is][out] */ rgelt As *FORMATETC, + /* [out] */ ByRef celtFetched As DWord) As HRESULT + Function Skip( + /* [in] */ celt As DWord) As HRESULT + Function Reset() As HRESULT + Function Clone( + /* [out] */ ByRef penum As *IEnumFORMATETC) As HRESULT +End Interface + +/* interface IEnumSTATDATA */ +/* [unique][uuid][object] */ + +Const Enum ADVF + ADVF_NODATA = 1 + ADVF_PRIMEFIRST = 2 + ADVF_ONLYONCE = 4 + ADVF_DATAONSTOP = 64 + ADVFCACHE_NOHANDLER = 8 + ADVFCACHE_FORCEBUILTIN = 16 + ADVFCACHE_ONSAVE = 32 +End Enum + +Type STATDATA + formatetc As FORMATETC + DWORD advf As DWord + pAdvSink As IAdviseSink + dwConnection As DWord +End Type + +Dim IID_IEnumSTATDATA = [&h00000105, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID Interface IEnumSTATDATA Inherits IUnknown + + /* [local] */ Function Next_( + /* [in] */ celt As DWord, + /* [length_is][size_is][out] */ rgelt As *STATDATA, + /* [out] */ ByRef celtFetched As DWord) As HRESULT + Function Skip( + /* [in] */ celt As DWord) As HRESULT + Function Reset() As HRESULT + Function Clone( + /* [out] */ ByRef penum As *IEnumSTATDATA) As HRESULT End Interface @@ -836,6 +882,6 @@ /* [local] */ Sub OnDataChange( - /* [unique][in] */ ByRef Formatetc As FORMATETC, - /* [unique][in] */ ByRef Stgmed As STGMEDIUM) + /* [unique][in] */ pFormatetc As *FORMATETC, + /* [unique][in] */ pStgmed As *STGMEDIUM) /* [local] */ Sub OnViewChange( /* [in] */ dwAspect As DWord, @@ -847,5 +893,28 @@ End Interface -' AsyncIAdviseSink +/* interface AsyncIAdviseSink */ +/* [uuid][unique][object] */ + +Dim IID_AsyncIAdviseSink = [&h00000150, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID + +Interface AsyncIAdviseSink + Inherits IUnknown + + /* [local] */ Sub Begin_OnDataChange( + /* [unique][in] */ pFormatetc As *FORMATETC, + /* [unique][in] */ pStgmed As *STGMEDIUM) + /* [local] */ Sub Finish_OnDataChange() + /* [local] */ Sub Begin_OnViewChange( + /* [in] */ dwAspect As DWord, + /* [in] */ lindex As Long) + /* [local] */ Sub Finish_OnViewChange() + /* [local] */ Sub Begin_OnRename( + /* [in] */ mk As IMoniker) + /* [local] */ Sub Finish_OnRename() + /* [local] */ Sub Begin_OnSave() + /* [local] */ Sub Finish_OnSave() + /* [local] */ Sub Begin_OnClose() + /* [local] */ Sub Finish_OnClose() +End Interface ' IAdviseSink2 Index: trunk/ab5.0/ablib/src/oleidl.ab =================================================================== --- trunk/ab5.0/ablib/src/oleidl.ab (revision 669) +++ trunk/ab5.0/ablib/src/oleidl.ab (revision 670) @@ -20,5 +20,28 @@ End Interface -'IOleCache +/* interface IOleCache */ +/* [unique][uuid][object] */ + +Dim IID_IOleCache = [&h0000011e, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID + +Interface IOleCache + Inherits IUnknown + + Function Cache( + /* [unique][in] */ pformatetc As *FORMATETC, + /* [in] */ advf As DWord, + /* [out] */ ByRef dwConnection As DWord) As HRESULT + Function Uncache( + /* [in] */ dwConnection As DWord) As HRESULT + Function EnumCache( + /* [out] */ ByRef enumSTATDATA As IEnumSTATDATA) As HRESULT + Function InitCache( + /* [unique][in] */ DataObject As IDataObject) As HRESULT + Function SetData( + /* [unique][in] */ pformatetc As *FORMATETC, + /* [unique][in] */ pmedium As *STGMEDIUM, + /* [in] */ fRelease As BOOL) As HRESULT +End Interface + 'IOleCache2 'IOleCacheControl @@ -60,5 +83,5 @@ End Enum -Dim IID_IOleClientSite = [&h00000118, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID +Dim IID_IOleClientSite = [&h00000118, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID Interface IOleClientSite Inherits IUnknown