aview-app 1.0.2

package/aardio/lib/com/interface/IEnumGUID.aardio

@@ -0,0 +1,26 @@
+import com.interface;
+namespace com.interface;
+
+class IEnumGUID{
+	ctor(){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer Next = "int(INT celt,struct &rgelt,INT &celtFetched)"; 
+	pointer Skip = "int(INT ulCount)";
+	pointer Reset = "int()";
+	pointer Clone = "int(ptr ppEnum)";
+	each = function(){
+		// owner才是当前com对象,this指向的是接口定义
+		var this = owner;
+		
+		return function(){
+    		var guid = ..win.guid() 
+    		var hr,guid,celtFetched = this.Next(1,guid,0); 
+    		if( (hr>=0/*_SUCCEEDED*/) && celtFetched){  
+    			return guid;  
+    		}
+    	} ; 
+	}
+	
+}
+IEnumGUID.IID = "{0002E000-0000-0000-C000-000000000046}"; 

package/aardio/lib/com/interface/IEnumShellItems.aardio

@@ -0,0 +1,29 @@
+import com.interface.IShellItem;
+import com.interface;
+
+namespace com.interface;
+
+class IEnumShellItems {
+    ctor(){
+		this = ..com.interface.IUnknown(); 
+	};  
+	pointer Next = "int(INT celt,ptr &rgelt,INT &celtFetched)"; 
+	pointer Skip = "int(INT ulCount)";
+	pointer Reset = "int()";
+	pointer Clone = "int(ptr ppEnum)";
+	each = function(){
+		// owner才是当前com对象,this指向的是接口定义
+		var this = owner;
+		
+		return function(){ 
+    		var hr,pItem,celtFetched = this.Next(1,null,0); 
+    		if( (hr>=0/*_SUCCEEDED*/) && celtFetched){  
+    			var item = ..com.interface(pItem,..com.interface.IShellItem);
+    		}
+    	} ; 
+	}
+}
+
+namespace IEnumShellItems{
+    IID = "{70629033-e363-4a28-a567-0db78006e6d7}" 
+}

package/aardio/lib/com/interface/IFileDialog.aardio

@@ -0,0 +1,101 @@
+import com.interface.IModalWindow;
+import com.interface.IShellItem;
+
+namespace  com.interface;
+
+class IFileDialog {
+	ctor(  ){
+		this = ..com.interface.IModalWindow(); 
+	}; 
+	ptr $SetFileTypes = "int(INT cFileTypes, struct rgFilterSpec)";
+	ptr SetFileTypeIndex = "int(INT iFileType)"; 
+	ptr GetFileTypeIndex = "int(INT &piFileType)"; 
+	ptr Advise = "int(struct pfde,INT &pdwCookie)"; 
+	ptr Unadvise = "int(INT dwCookie)"; 
+	ptr SetOptions = "int(INT fos)"; 
+	ptr GetOptions = "int(INT &pfos)";
+	ptr SetDefaultFolder = "int(ptr psi)";  
+	ptr SetFolder = "int(ptr psi)"; 
+	ptr GetFolder = "int(ptr &psi)"; 
+	ptr GetCurrentSelection = "int(ptr &ppsi)";
+	ptr SetFileName = "int(ustring pszName)"; 
+	ptr GetFileName = "int(ustring &pszName)";  
+	ptr SetTitle = "int(ustring pszTitle)";
+	ptr SetOkButtonLabel = "int(ustring pszText)"; 
+	ptr SetFileNameLabel = "int(ustring pszLabel)"; 
+	ptr GetResult = "int(ptr &ppsi)"; 
+	ptr AddPlace = "int(ptr psi,int fdap)"; 
+	ptr SetDefaultExtension = "int(ustring pszDefaultExtension)";  
+	ptr Close = "int(int hr)"; 
+	ptr $SetClientGuid = "int(struct guid)"; 
+	ptr ClearClientData = "int()"; 
+	ptr SetFilter = "int(ptr pFilter)"; 
+	setFileTypes = function(strTypes){
+		var filerSpecs = strTypes;
+		if(type(strTypes)==type.string){
+			var types = string.split(strTypes,"|");
+			
+			filerSpecs = {};
+			for(i=1;#types;2){
+				..table.push(filerSpecs,{
+					ustring name = types[i];
+					ustring spec = types[i+1];
+				})
+			}
+		}
+		
+		if(#filerSpec) owner.$SetFileTypes(#filerSpec,{struct arr = filerSpecs});
+	};
+	setClientGuid = function(guid){
+		var guid = ..win.guid.valid(guid);
+		if(!guid) error("错误的GUID参数");
+		return owner.$SetClientGuid(guid) >= 0/*_SUCCEEDED*/;
+	};
+	setFolderPath = function(path){
+		var item = ..com.interface.IShellItem.createFromParsingName(path);
+		if(item){
+			var hr = owner.SetFolder(item);
+			..com.Release(item);
+			return  hr >= 0/*_SUCCEEDED*/
+		}
+	};
+	getDisplayFilePath = function(){
+			var hr,pItem = owner.GetResult()
+			if( hr>=0/*_SUCCEEDED*/){
+				var item = ..com.interface.IShellItem.query(pItem)
+				..com.Release(pItem);
+				
+				var path = item.getDisplayFilePath();
+				..com.Release(item);
+				
+				return path;
+			}
+	} 
+}
+
+namespace IFileDialog{
+	IID = "{42f85136-db7e-439c-85f1-e4075d135fc8}";
+}
+
+/**intellisense()
+_FOS_ALLNONSTORAGEITEMS=@0x80/*_FOS_ALLNONSTORAGEITEMS*/
+_FOS_ALLOWMULTISELECT=@0x200/*_FOS_ALLOWMULTISELECT*/
+_FOS_CREATEPROMPT=@0x2000/*_FOS_CREATEPROMPT*/
+_FOS_DEFAULTNOMINIMODE=@0x20000000/*_FOS_DEFAULTNOMINIMODE*/
+_FOS_DONTADDTORECENT=@0x2000000/*_FOS_DONTADDTORECENT*/
+_FOS_FILEMUSTEXIST=@0x1000/*_FOS_FILEMUSTEXIST*/
+_FOS_FORCEFILESYSTEM=@0x40/*_FOS_FORCEFILESYSTEM*/
+_FOS_FORCESHOWHIDDEN=@0x10000000/*_FOS_FORCESHOWHIDDEN*/
+_FOS_HIDEMRUPLACES=@0x20000/*_FOS_HIDEMRUPLACES*/
+_FOS_HIDEPINNEDPLACES=@0x40000/*_FOS_HIDEPINNEDPLACES*/
+_FOS_NOCHANGEDIR=@8/*_FOS_NOCHANGEDIR*/
+_FOS_NODEREFERENCELINKS=@0x100000/*_FOS_NODEREFERENCELINKS*/
+_FOS_NOREADONLYRETURN=@0x8000/*_FOS_NOREADONLYRETURN*/
+_FOS_NOTESTFILECREATE=@0x10000/*_FOS_NOTESTFILECREATE*/
+_FOS_NOVALIDATE=@0x100/*_FOS_NOVALIDATE*/
+_FOS_OVERWRITEPROMPT=@2/*_FOS_OVERWRITEPROMPT*/
+_FOS_PATHMUSTEXIST=@0x800/*_FOS_PATHMUSTEXIST*/
+_FOS_PICKFOLDERS=@0x20/*_FOS_PICKFOLDERS*/
+_FOS_SHAREAWARE=@0x4000/*_FOS_SHAREAWARE*/
+_FOS_STRICTFILETYPES=@4/*_FOS_STRICTFILETYPES*/
+end intellisense**/

package/aardio/lib/com/interface/IFileOpenDialog.aardio

@@ -0,0 +1,97 @@
+import fsys.dlg;
+import com.interface.IShellItemArray;
+import com.interface.IFileDialog;
+
+namespace com.interface;
+
+class IFileOpenDialog {
+	ctor(){
+		this = ..com.interface.IFileDialog(); 
+	}; 
+	ptr GetResults = "int(ptr &ppenum)";
+	ptr GetSelectedItems = "int(ptr &ppsai)";
+	getDisplayFilePaths = function(){
+		var hr,pItem = owner.GetResults()
+		if( hr>=0/*_SUCCEEDED*/){
+			var itemArray = ..com.interface(pItem,..com.interface.IShellItemArray )
+			..com.Release(pItem);
+			
+			var hr,count = itemArray.GetCount(0);
+			var result = {}
+			if(hr>=0/*_SUCCEEDED*/){
+				for(i=1;count;1){
+					var hr,pItem = itemArray.GetItemAt(i-1);
+					if( hr>=0/*_SUCCEEDED*/){
+						var item = ..com.interface.IShellItem.query(pItem);
+						..com.Release(pItem);
+						
+						var path = item.getDisplayFilePath();
+						..com.Release(item);
+						
+						if(path){
+							..table.push(result,path);
+						} 
+					}
+				}
+				
+			}
+			..com.Release(itemArray);
+				
+			return result;
+		}
+	} 
+}
+
+IFileOpenDialog.IID = "{d57c7288-d4ad-4768-be02-9d969532d960}"
+	
+IFileOpenDialog.create = function(){
+	return create("{DC1C5A9C-E88A-4dde-A5A1-60F82A20AEF7}", IFileOpenDialog);	
+}
+
+IFileOpenDialog.dir = function(path,hwndOwner,title,okLabel,clientGuid,multiSel){
+	if(_WINXP){
+		return ..fsys.dlg.openDir(path,hwndOwner,title);
+	}
+	
+	var opt = 0x20/*_FOS_PICKFOLDERS*/
+	if(multiSel) opt = opt | 0x200/*_FOS_ALLOWMULTISELECT*/
+
+	var dlg = IFileOpenDialog.create();
+	dlg.SetOptions(opt);
+	
+	if(title)dlg.SetTitle(title);
+	if(okLabel)dlg.SetOkButtonLabel(okLabel);
+	if(clientGuid)dlg.setClientGuid(clientGuid);
+	
+	if(path){ dlg.setFolderPath(path); }
+	
+	var ret;
+	var hr = dlg.Show(hwndOwner[["hwnd"]]:hwndOwner:0);
+	if( hr >= 0/*_SUCCEEDED*/){
+		
+		if(multiSel){
+			ret =  dlg.getDisplayFilePaths(); 
+		}
+		else {
+			ret = dlg.getDisplayFilePath();
+		}
+	}
+	
+	..com.Release(dlg);
+	return ret;
+}
+
+/**intellisense(com.interface.IFileOpenDialog)
+create() = 创建IFileOpenDialog接口对象\n!IFileOpenDialog.
+dir( = 打开目录对话框,XP系统自动降级为 fsys.dlg.opendir
+dir(.(path,hwndOwner,title,okLabel,clientGuid,multiSel) = 打开目录对话框,所有参数可省略,\n参数@path 指定打开的目录,\n参数@hwndOwner 指定父窗口,\n参数@title 指定窗口标题\n参数@okLabel 指定确定按钮上的文本,\n参数@clientGuid 指定单独存储对话框状态的GUID,\n参数@multiSel 如果为true，则允许选择多目录并返回数组,\n默认仅能选择单个目录并返回选中的路径,\n取消返回null
+end intellisense**/
+
+/**intellisense(!IFileOpenDialog)
+Show(__) = 显示对话框,\n参数指定父窗口句柄,例如 winform.hwnd
+SetOptions(0x20__) = 设置选项
+SetTitle(__) = 设置标题
+getDisplayFilePaths() = 返回数组，\n包含用户选择的一个或多个路径
+getDisplayFilePath() = 返回用户选择的路径
+setFolderPath(__) = 参数@1指定默认目录
+end intellisense**/

package/aardio/lib/com/interface/IFileSaveDialog.aardio

@@ -0,0 +1,22 @@
+import com.interface.IFileDialog;
+
+namespace  com.interface;
+
+class IFileSaveDialog {
+    ctor(){
+		this = ..com.interface.IFileDialog(); 
+	}; 
+	ptr SetSaveAsItem = "int(ptr psi)";
+	ptr SetProperties = "int(ptr pStore)";
+	ptr SetCollectedProperties = "int(ptr pList,bool default)"; 
+	ptr GetProperties = "int(ptr &ppStore)";
+	ptr ApplyProperties = "int(ptr psi,ptr pStore,addr hwnd,ptr pSink)";
+}
+
+IFileSaveDialog.IID = "{84bccd23-5fde-4cdb-aea4-af64b83d78ab}"
+
+IFileSaveDialog.create = function(){
+	return create("{C0B4E2F3-BA21-4773-8DBA-335EC946EB8B}", IFileSaveDialog);	
+}
+
+   

package/aardio/lib/com/interface/IKsPropertySet.aardio

@@ -0,0 +1,17 @@
+import com.interface; 
+namespace com.interface;
+
+class IKsPropertySet{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer Get = "int (struct rguidPropSet, INT ulId, pointer pInstanceData, INT ulInstanceLength, pointer pPropertyData, INT ulDataLength, INT& pulBytesReturned)";
+	pointer Set = "int(struct rguidPropSet, INT ulId, pointer pInstanceData, INT ulInstanceLength, pointer pPropertyData, INT ulDataLength)";
+	pointer QuerySupport = "int(struct rguidPropSet, INT ulId, INT& pulTypeSupport)"; 
+}
+IKsPropertySet.IID = "{31efac30-515c-11d0-a9aa-00aa0061be93}";
+
+/**intellisense()
+com.interface.IKsPropertySet = IKsPropertySet;
+end intellisense**/
+

package/aardio/lib/com/interface/IModalWindow.aardio

@@ -0,0 +1,13 @@
+import com.interface;
+namespace  com.interface;
+
+class IModalWindow {
+    ctor(){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	ptr Show = "int(addr hwndOwner)"; 
+}
+
+namespace IModalWindow{
+    IID = "{b4db1657-70d7-485e-8e3e-6fcb5a5c1802}" 
+}

package/aardio/lib/com/interface/IMultiLanguage2.aardio

@@ -0,0 +1,285 @@
+import win.ole;
+import com.interface; 
+import com.interface.IEnumCodePage;
+
+namespace com.interface;
+
+class IMultiLanguage2{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	ptr GetNumberOfCodePageInfo = "int(INT &pcCodePage)";
+	ptr GetCodePageInfo__ = "int(INT uiCodePage,  WORD  LangId,struct & pCodePageInfo)";
+	getCodePageInfo = function(uiCodePage,lcid){
+		var cpInfo = MIMECPINFO();
+		if(lcid===null) lcid = ::Kernel32.GetSystemDefaultLCID()
+		var hr = owner.GetCodePageInfo__(uiCodePage,lcid,cpInfo);
+		if( (hr)>=0/*_SUCCEEDED*/) return cpInfo;
+	}
+	ptr GetFamilyCodePage = "int(INT uiCodePage,INT &puiFamilyCodePage)";
+	ptr EnumCodePages = "int(INT grfFlags, WORD langId,ptr &ppEnumCodePage)";
+	eachCodepage = function(flags,langId){
+		if(flags===null) flags = 0/*_MIMECONTF_ALL*/;
+		if(langId===null) langId = ::Kernel32.GetSystemDefaultLCID()
+		var hr,penum = owner.EnumCodePages(flags,langId,null);
+		if( (hr)>=0/*_SUCCEEDED*/) {
+			var enum = ..com.interface(penum,..com.interface.IEnumCodePage);
+			return function(){
+				var cpInfo = MIMECPINFO();
+				var hr,cpInfo,celtFetched = enum.Next(1,cpInfo,0);
+				if( (hr)<0/*_FAILED*/ ) return;
+				if(celtFetched!=1) return;
+				return cpInfo;
+			}
+		}
+	}
+	ptr GetCharsetInfo__ = "int(ptr bstrCharset,struct &pCharsetInfo)";
+	getCharsetInfo = function(charset){
+		var bstr = ::SysAllocString(charset); 
+		var charsetInfo = {
+    		INT uiCodePage;
+    		INT uiInternetEncoding;
+    		WORD charset[ 50 ];
+    	} 
+		var hr = owner.GetCharsetInfo__(bstr,charsetInfo);
+		::SysFreeString(bstr);
+		if( (hr)>=0/*_SUCCEEDED*/) return charsetInfo;
+	} 
+	ptr IsConvertible = "int(INT dwSrcCodepage,INT dwDstCodepage)";
+	ptr ConvertString = "int(INT &pdwMode,INT dwSrcCodepage, INT dwDstCodepage,string pSrcStr,INT &pcSrcSize,string  &pDstStr,INT &pcDstSize)";
+	ptr ConvertStringToUnicode = "int(INT &pdwMode,INT dwCodepage,string pSrcStr,INT &pcSrcSize,ustring &pDstStr,INT &pcDstSize)";
+	ptr ConvertStringFromUnicode = "int(INT &pdwMode, INT dwCodepage,ustring pSrcStr, INT &pcSrcSize, string &pDstStr, INT &pcDstSize)";
+	ptr ConvertStringReset = "int()";
+	ptr GetRfc1766FromLcid = "int(INT Locale,ptr &pbstrRfc1766)";
+	ptr GetLcidFromRfc1766 = "int(INT &pLocale,ptr bstrRfc1766)";
+	ptr EnumRfc1766 = "int(WORD  LangId,ptr &ppEnumRfc1766)";
+	ptr GetRfc1766Info = "int(INT Locale,WORD  LangId,struct pRfc1766Info)";
+	ptr CreateConvertCharset = "int(INT uiSrcCodePage,INT uiDstCodePage, INT dwProperty,ptr &ppMLangConvertCharset)";
+	ptr ConvertStringInIStream = "int(INT &pdwMode, INT dwFlag, ustring lpFallBack,INT dwSrcCodepage, INT dwDstCodepage, ptr pstmIn, ptr pstmOut)";
+	ptr ConvertStringToUnicodeEx = "int( INT &pdwMode,INT dwCodepage, ustring pSrcStr, INT &pcSrcSize, ustring &pDstStr,INT &pcDstSize,INT dwFlag,ustring lpFallBack)";
+	ptr ConvertStringFromUnicodeEx = "int(INT &pdwMode,INT dwCodepage,ustring pSrcStr,INT &pcSrcSize,string &pDstStr,INT &pcDstSize,INT dwFlag, ustring lpFallBack)";
+	ptr DetectCodepageInIStream__ = "int(INT dwFlag, INT dwPrefWinCodePage,ptr pstmIn,struct &lpCodepage,int &pnScores)";
+	ptr DetectInputCodepage__ = "int(INT dwFlag, INT dwPrefWinCodePage, string pSrcStr,int &pcSrcSize,struct &lpCodepage,int &pnScores)";
+	detectInputCodepageInStream = function(pstmIn,scores,flag,prefWinCodePage){
+		if(flag===null) flag = 2/*MLDETECTCP_8BIT*/|4/*MLDETECTCP_DBCS*/|8/*MLDETECTCP_HTML*/; 
+		if(#src<256) src = ..raw.buffer(256,src);
+		if(scores===null) scores = 1;
+		var detectEncodingInfo = {
+			struct list[] = {
+				length = scores;
+				{ 
+    				INT langId;
+    				INT codePage;
+    				int docPercent;
+    				int confidence;
+				}
+			}
+		};
+				
+		var hr,lpCodepage,scores = owner.DetectCodepageInIStream__(flag:0,prefWinCodePage:0,pstmIn,detectEncodingInfo,scores);
+		if( ( hr>=0/*_SUCCEEDED*/) && scores) {
+			detectEncodingInfo.list = ..table.slice(detectEncodingInfo.list,1,scores);
+			return detectEncodingInfo.list; 
+		}
+	}; 
+	detectInputCodepage = function(src,scores,flag,prefWinCodePage){
+		if(flag===null) flag = 2/*MLDETECTCP_8BIT*/|4/*MLDETECTCP_DBCS*/|8/*MLDETECTCP_HTML*/; 
+		if(#src<256) src = ..raw.buffer(256,src);
+		if(scores===null) scores = 1;
+		var detectEncodingInfo = {
+			struct list[] = {
+				length = scores;
+				{ 
+    				INT langID;
+    				INT codePage;
+    				int docPercent;
+    				int confidence;
+				}
+			}
+		
+		};
+				
+		var hr,_,lpCodepage,scores = owner.DetectInputCodepage__(flag:0,prefWinCodePage:0,src,#src,detectEncodingInfo,scores);
+		if( ( hr>=0/*_SUCCEEDED*/) && scores) {
+			detectEncodingInfo.list = ..table.slice(detectEncodingInfo.list,1,scores);
+			return detectEncodingInfo.list; 
+		}
+	}; 
+	detectInputCodepageEx = function(str){
+		var cp = owner.detectInputCodepage(str,1);
+		if(#cp) return cp[1].codePage;
+	};
+	detectInputCodepageInStreamEx = function(pstmIn){
+		var cp = owner.detectInputCodepageInStream(pstmIn,1);
+		if(#cp) return cp[1].codePage;
+	};
+	ptr ValidateCodePage = "int(INT uiCodePage,addr hwnd)";
+	ptr GetCodePageDescription__ = "int(INT uiCodePage,WORD lcid,ustring& lpWideCharStr, int cchWideChar)";
+	getCodePageDescription = function(codepage,lcid){
+		if(lcid===null) lcid = ::Kernel32.GetSystemDefaultLCID();
+		var hr,desc = owner.GetCodePageDescription__(codepage,lcid,1000,1000);
+		if( (hr)>=0/*_SUCCEEDED*/ ) return desc;
+	}
+	ptr IsCodePageInstallable = "int(INT uiCodePage)";
+	ptr SetMimeDBSource = "int(int dwSource)";
+	ptr GetNumberOfScripts = "int(INT &pnScripts)";   
+	ptr EnumScripts = "int(INT dwFlags,WORD  LangId,ptr &ppEnumScript)";
+	ptr ValidateCodePageEx = "int(INT uiCodePage,addr hwnd,INT dwfIODControl)";
+ 
+	fromto = function(s,from,to,...){
+		
+		if(from !== null && from <0 ){
+			if(from==-65001) {
+				..string.setUtf(s,8); 
+			}
+			from = ..math.abs(from);
+		}
+		
+		if( to === null ) to = 65001; 
+		if(from == to) return s;
+
+		if(type(s)==="string"){
+			if(!..string.isUnicode(s)){
+				
+				var a,b = s[1],s[2];
+				if( a == 0xEF  && b == 0xBB && s[3] == 0xBF ){
+					s = ..string.right(s,-4);
+					..string.setUtf(s,8);
+				}
+				
+				if( #s%2 == 0 ){ 
+					if ( a == 0xFF  && b == 0xFE ){
+						s = ..string.fromUnicode( ..string.right(s,-3),from ); 
+					}
+					elseif ( a == 0xFF  && b == 0xFE ){
+						s = ..string.fromto( ..string.right(s,-3),1201,from ); 
+					}
+				}
+
+				if((..string.getUtf(s)&8) || ..string.len(s) ){
+					if(from!==65001){
+						if(from!==null){
+							s = ..string.fromto(s,65001,from);
+
+							if(..string.len(s)){
+								..string.setUtf(s,8);
+								from = 65001;
+							}
+						}
+						else {
+							from = 65001;
+						}
+					}
+				}
+				
+				..string.setUtf(s,0);
+			}
+			else {
+				if( from === null ) from = 1200;
+				elseif( from !== 1200 ) {
+					s = ..string.fromto( s,1200,from );
+				}
+			}
+		}
+		
+		if( from === null ) {
+			from = owner.detectInputCodepageEx(s);
+		} 
+		 
+		if(to<0){
+			if(to==-65001) ..string.setUtf(s,8); 
+			return owner.fromto(s,..math.abs(to),...);
+		}
+		
+		var s = ..string.fromto(s,from,to);
+		if( to === 65001  || ..string.len(s)){
+			s = ..string.removeBom(s); 
+		}
+		
+		if(...){
+			if(...<0){
+				return owner.fromto(s,...);
+			}
+
+			return owner.fromto(s,to,...);
+		}
+		
+		return s;
+	} 
+}
+
+namespace IMultiLanguage2{
+    
+	IID = "{DCCFC164-2B38-11d2-B7EC-00C04F8F5D9A}";
+	
+	class MIMECPINFO {
+		int flags;
+		int uiCodePage;
+		int uiFamilyCodePage;
+		WORD description[ 64 ];
+		WORD webCharset[ 50 ];
+		WORD headerCharset[ 50 ];
+		WORD bodyCharset[ 50 ];
+		WORD fixedWidthFont[ 32 ];
+		WORD proportionalFont[ 32 ];
+		BYTE bGDICharset;
+	}
+}
+
+IMultiLanguage2.Create = function(){ 
+	var mlang  =  ..com.interface.create( "{275C23E2-3747-11D0-9FEA-00AA003F8646}" /*CLSID_CMultiLanguage*/
+		, IMultiLanguage2, 0x1/*_CLSCTX_INPROC_SERVER*/  );
+		 
+	return mlang;
+}
+
+/**intellisense()
+com.interface.IMultiLanguage2 = IMultiLanguage2接口
+com.interface.IMultiLanguage2.Create() = 创建 CMultiLanguage对象并获取IMultiLanguage2\n!IMultiLanguage2.
+end intellisense**/
+
+/**intellisense(!IMultiLanguage2)
+detectInputCodepage( = 检测输入数据的代码页\n同一段内存数据可能是不同的编码,编码检测结果通常是不准确的,\n即使是系统提供的 IMultiLanguage2 也一样,不然为什么需要 BOM 呢?\n所以建议大家使用 aardio 默认就支持的 UTF-8!
+detectInputCodepage(.(字符串,最大返回个数,选项,优选代码页) = 检测输入数据的代码页\n参数@1可以是任意编码的字符串或 buffer 对象,\n其他参数可选\n\n返回值是一个数组,每个数组包含一个描述代码页信息的结构体
+detectInputCodepageInStream(.(流对象,最大返回个数,选项,优选代码页) = 检测输入数据的代码页\n参数@1可以是任意编码 fsys.stream等任何兼容IStream接口的对象,\n其他参数可选\n\n返回值是一个数组,每个数组包含一个描述代码页信息的结构体
+detectInputCodepageEx(__) = 检测输入数据库的代码页，成功直接返回数值\nn参数@1可以是任意编码的字符串或 buffer 对象\n同一段内存数据可能是不同的编码,编码检测结果通常是不准确的,\n即使是系统提供的 IMultiLanguage2 也一样,不然为什么需要 BOM 呢?\n所以建议大家使用 aardio 默认就支持的 UTF-8! 
+detectInputCodepageInStreamEx(__) =检测输入数据的代码页,检测输入数据库的代码页，成功直接返回数值\n参数@1可以是任意编码 fsys.stream等任何兼容IStream接口的对象,
+getCodePageDescription(.(codepage,lcid) = 返回代码页描述文本,\n参数@1指定代码页,可选用参数@2指定语言ID
+getCodePageInfo(.(codepage,lcid) = 返回代码页的详细信息,\n参数@1指定代码页,可选用参数@2指定语言ID
+getCodePageInfo() = !MIMECPINFO.
+eachCodepage(flags,langId) = @for( cpInfo in ??.eachCodepage() ){
+	__/*遍历代码页,cpInfo为MIMECPINFO结构体*/
+}
+eachCodepage() = !MIMECPINFO.
+fromto(.(字符串,源编码,目标编码,->->->) =  怪异模式转换文本编码,返回转换后的字符串,\n此函数仅用于修复一些老旧软件因为怪异模式转换导致的乱码，\n普通编码转换应使用 string.fromto 函数可自动避免怪异模式。\n\n源编码与目标编码使用代码页表示,UTF8 代码页 65001,\n如果源字符串是 UTF-8 字符串，而源编码参数不是 65001，\n此函数会先将字符串自 UTF-8 转换为源编码，再转换为目标编码，\n\n如果目标编码不是 65001，但实际转换结果却是 UTF-8 字符串，\n此函数会自动修复字符串为 UTF-8 字符串， \n可指定任意个数的目标编码,上一个目标编码是下一个转换源编码，\n目标编码为负数则不转换到该编码,并以该编码为源编码做下一次转换
+fromto( = 怪异模式转换文本编码,返回转换后的字符串, \n如果一段文件明明是A编码，却错误地作为B编码处理甚至错误地转换为了C编码,\n就称为怪异模式转换，怪异模式转换需要以同样的怪异模式才能还原。\n\naardio 存在特别的UTF标记可以自动避免这种怪异模式转换，\n但如果你有来自于其他程序怪异模式转换导致的乱码，可使用此函数，\n此函数会内部调用 string.fromto 转换，并在转换清除源字符串的 UTF 标记\n转换后如果存在 UTF 标记则予以保留。\n\n此字符串具有自动识别和修复 UTF-8 编码的作用
+end intellisense**/
+
+/**intellisense(!MIMECPINFO)
+flags = _MIMECONTF_ 选项
+uiCodePage = 代码页
+uiFamilyCodePage = 共享代码页
+description = 描述
+webCharset = 浏览器默认字符集
+headerCharset =  邮件头默认字符集
+bodyCharset = 默认字符集
+fixedWidthFont = 默认等宽字体
+proportionalFont = 默认字体
+bGDICharset = GDI 字符集代码\n参考标准库 gdi 中 _CHARSET 后缀的常量
+end intellisense**/
+
+ /**intellisense()
+_MIMECONTF_MAILNEWS=@1/*_MIMECONTF_MAILNEWS*/
+_MIMECONTF_BROWSER=@2/*_MIMECONTF_BROWSER*/
+_MIMECONTF_MINIMAL=@4/*_MIMECONTF_MINIMAL*/
+_MIMECONTF_IMPORT=@8/*_MIMECONTF_IMPORT*/
+_MIMECONTF_SAVABLE_MAILNEWS=@0x100/*_MIMECONTF_SAVABLE_MAILNEWS*/
+_MIMECONTF_SAVABLE_BROWSER=@0x200/*_MIMECONTF_SAVABLE_BROWSER*/
+_MIMECONTF_EXPORT=@0x400/*_MIMECONTF_EXPORT*/
+_MIMECONTF_PRIVCONVERTER=@0x10000/*_MIMECONTF_PRIVCONVERTER*/
+_MIMECONTF_VALID=@0x20000/*_MIMECONTF_VALID*/
+_MIMECONTF_VALID_NLS=@0x40000/*_MIMECONTF_VALID_NLS*/
+_MIMECONTF_MIME_IE4=@0x10000000/*_MIMECONTF_MIME_IE4*/
+_MIMECONTF_MIME_LATEST=@0x20000000/*_MIMECONTF_MIME_LATEST*/
+_MIMECONTF_MIME_REGISTRY=@0x40000000/*_MIMECONTF_MIME_REGISTRY*/
+end intellisense**/

package/aardio/lib/com/interface/IOleControl.aardio

@@ -0,0 +1,41 @@
+import com.interface; 
+namespace  com.interface;
+
+class IOleControl{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer GetControlInfo = "int(struct &info)";
+	pointer OnMnemonic = "int(struct msg)";
+	pointer OnAmbientPropertyChange = "int(int dispID)";
+	pointer FreezeEvents = "int(bool bFreeze)"; 
+}
+IOleControl.IID = "{B196B288-BAB4-101A-B69C-00AA00341D07}";
+
+ 
+IOleControl.Query = function(obj){
+		return ..com.interface(obj,IOleControl)
+}  
+
+/*intellisense(com.interface)*/
+IOleControl.CONTROLINFO = class{
+	INT cb=16;
+    pointer hAccel;
+    WORD cAccel;
+    INT dwFlags;
+}
+/*end intellisense*/
+ 
+
+/**intellisense()
+com.interface.IOleControl.Query(__/*com对象或指针*/) = 查询并创建IOleControl接口
+!IOleControl.AddRef() = 引用计数加一,返回引用计数
+!IOleControl.Release() = 引用计数减一,返回引用计数
+!IOleControl.QueryInterface(__/*接口数*/) = 参数是接口类,参考com.interface.IUnknown源码
+!IOleControl.OnAmbientPropertyChange(__) = 
+!IOleControl.FreezeEvents(__) =  
+!IOleControl.GetControlInfo(__) =  
+?com.interface.IOleControl.Query = !IOleControl.
+com.interface.IOleControl.OnAmbientPropertyChange(__/*com对象*/) = 查询IOleControl接口\n并调用OnAmbientPropertyChange方法
+com.interface.IOleControl.OnAmbientPropertyChange(__/*com对象*/,dispid) = 查询IOleControl接口\n并调用OnAmbientPropertyChange方法
+end intellisense**/

package/aardio/lib/com/interface/IOleWindow.aardio

@@ -0,0 +1,29 @@
+ 
+	
+import com.interface; 
+namespace  com.interface;
+
+class IOleWindow{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer GetWindow = "int(int &phwnd)";
+	pointer ContextSensitiveHelp = "int(bool fEnterMode)"; 
+}
+IOleWindow.IID = "{00000114-0000-0000-C000-000000000046}";
+
+ 
+IOleWindow.Query = function(obj){
+		return ..com.interface(obj,IOleWindow)
+}  
+ 
+/**intellisense()
+com.interface.IOleWindow.Query(__/*com对象或指针*/) = 查询并创建IOleWindow接口
+!IOleWindow.AddRef() = 引用计数加一,返回引用计数
+!IOleWindow.Release() = 引用计数减一,返回引用计数
+!IOleWindow.QueryInterface(__/*接口数*/) = 参数是接口类,参考com.interface.IUnknown源码 
+!IOleWindow.GetWindow(0) =  返回句柄
+!IOleWindow.ContextSensitiveHelp(false) =  
+?com.interface.IOleWindow.Query = !IOleWindow.
+com.interface.IOleWindow.Query() = !IOleWindow.
+end intellisense**/

package/aardio/lib/com/interface/IPersist.aardio

@@ -0,0 +1,12 @@
+
+import com.interface;
+namespace  com.interface;
+
+class IPersist{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer GetClassID = "int(struct &pClassID)"; 
+}
+IPersist.IID = "{0000010c-0000-0000-C000-000000000046}";
+