aview-app 1.0.2

package/aardio/lib/com/interface/IUniformResourceLocator.aardio

@@ -0,0 +1,18 @@
+import com.interface;
+import com.interface.IPersistFile;
+namespace  com.interface;
+
+class IUniformResourceLocator{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	};  
+	pointer SetURL = "int(str url,INT flag)";
+	pointer GetURL  = "int(pointer &url)";
+	pointer InvokeCommand  = "int(struct &url)";
+	
+}
+IUniformResourceLocator.IID = "{fbf23b80-e3f0-101b-8488-00aa003e56f8}"; 
+
+ /**intellisense()
+com.interface.IUniformResourceLocator = Url快捷方式接口
+end intellisense**/

package/aardio/lib/com/interface/IViewObject2.aardio

@@ -0,0 +1,38 @@
+ 
+import com.interface;
+namespace  com.interface;
+
+class IViewObject2{
+	ctor(  ){
+		this = ..com.interface.IUnknown(); 
+	}; 
+	pointer Draw = "int(INT dwDrawAspect,int lindex,pointer pvAspect,struct ptd, pointer hdcTargetDev,pointer hdcDraw
+              ,struct lprcBounds,struct lprcWBounds,pointer pfnContinue,INT dwContinue)"; 
+    pointer GetColorSet = "int(INT dwDrawAspect,int lindex,pointer pvAspect,struct ptd,pointer hicTargetDev,pointer &ppColorSet)"; 
+    pointer Freeze = "int(INT dwDrawAspect,int lindex,pointer pvAspect,INT &pdwFreeze)"; 
+    pointer Unfreeze = "int(INT dwFreeze)"; 
+    pointer SetAdvise = "int(INT aspects, INT advf,pointer pAdvSink)"; 
+    pointer GetAdvise = "int(INT &pAspects,INT &pAdvf,pointer &ppAdvSink)"; 
+    pointer GetExtent = "int(INT dwDrawAspect,int lindex,struct ptd,struct &lpsizel)"; 
+}
+IViewObject2.IID = "{00000127-0000-0000-C000-000000000046}";
+
+IViewObject2.Query = function(obj){
+		return ..com.interface(obj,IViewObject2)
+} 
+
+IViewObject2.DVTARGETDEVICE = class {
+	INT tdSize;
+	WORD tdDriverNameOffset;
+	WORD tdDeviceNameOffset;
+	WORD tdPortNameOffset;
+	WORD tdExtDevmodeOffset;
+	BYTE tdData[ 1 ];
+}
+    
+ /**intellisense()
+_DVASPECT_CONTENT=@0x1/*_DVASPECT_CONTENT*/
+_DVASPECT_THUMBNAIL=@0x2/*_DVASPECT_THUMBNAIL*/
+_DVASPECT_ICON=@0x4/*_DVASPECT_ICON*/
+_DVASPECT_DOCPRINT=@0x8/*_DVASPECT_DOCPRINT*/
+end intellisense**/

package/aardio/lib/com/interface/_.aardio

@@ -0,0 +1,231 @@
+import com;
+import win.guid;
+import raw.interface;
+
+namespace com;
+ 
+class interface{
+	ctor(pObj,itface){ 
+		itface = checkInterface(itface,2); 
+		if(!pObj) error("参数@1 不能为空值!",2)
+		
+		if( (!pObj@) && type(pObj) == "table" ){ 
+			..table.mix(pObj, {
+				QueryInterface = function(iid,ptr){
+					iid = ..raw.convert(iid, ..win.guid() );
+					if( iid == IUnknown.IID ){
+						this.AddRef() 
+						return 0/*_S_OK*/,this ;
+					}
+					if( iid == itface.IID){
+						this.AddRef()
+						return 0x0/*_S_OK*/,this;
+					}
+					return -2147467262/*_E_NOINTERFACE*/
+				}
+				AddRef = function(){
+					this.count = ( this.count : 0 ) + 1;
+					__box__[this] = true;
+					return this.count;
+				}
+				Release = function(){   
+					this.count = ( this.count : 0 ) - 1;
+					if( this.count < 1 ) { __box__[this] = null}; 
+					return this.count;
+				} 
+			} );
+			
+			this  = ..raw.interface( pObj, itface ); 
+		}
+		else{
+			var pItface = ..com.GetIUnknown(pObj,itface.IID);
+			assert(pItface,"无效的com指针");
+			
+			this  = ..raw.interface( pItface, itface );
+			var queryInterface = this.QueryInterface;
+			this.QueryInterface = function(itface){
+				itface = checkInterface(itface,2); 
+				var hr,pObj = queryInterface( itface.IID );
+				if(  (hr)>=0/*_SUCCEEDED*/ ){
+					var obj =  ..com.interface(pObj,itface); 
+					..com.Release(pObj);
+					return obj;
+				}
+				else {
+					return null,..lasterr(hr);
+				}
+			}
+		}
+	} 
+}
+
+namespace interface{
+	::Ole32 := ..raw.loadDll("ole32.dll");
+	CoCreateInstance = Ole32.api("CoCreateInstance","int(struct rclsid, pointer pUnkOuter,INT dwClsContext, struct riid, pointer &ppv)" )
+    
+	var guid = ..win.guid;
+	checkInterface = function(interface,el=1){
+		var interfaceType = type(interface);
+	    if(interfaceType!=type.class){
+	    	if( interfaceType == type.string && ! ..com.interface[interface] )
+	    		error("无效的接口类",el+1);
+	    	
+	    	interface = ..com.interface[interface];
+	    	if( type(interface) != type.class ) error("无效的接口类",el+1);
+	    }
+	    
+	    interface.IID = guid.valid(interface.IID)
+	    if( ! interface.IID ) error("未指定有效的接口IID(类的静态成员,字符串或 win.guid 对象)",el+1); 
+	    return interface; 
+	}
+	
+ 	checkError = function(hr,ci = 1){
+		if(  hr<0/*_FAILED*/ ) 
+			error(..lasterr(hr),ci + 1) 
+	}
+	
+	create = function(clsid,itface,context=7/*_CLSCTX_INPROC | _CLSCTX_LOCAL_SERVER*/){
+		if(type(clsid)==type.string)
+			clsid = guid.fromString(clsid)
+			 
+		itface = checkInterface(itface,2);  
+		var iid =itface.IID ;
+		var hr,unknown =CoCreateInstance(clsid,null,context,iid ); 
+		checkError(hr,2);
+		
+		var iterface =  ..com.interface(unknown,itface);
+		..com.Release(unknown) 
+		return iterface;
+	}
+	
+	var tlbTemplate = /*
+	namespace com.interface;
+
+	class ${INTERFACE}{
+		ctor(){
+			this = ..com.interface.IUnknown(); 
+			if(self._funtions){ ..table.assign(this,_funtions); }
+		}; 
+		${FIELD}
+	}
+	${INTERFACE}.IID = "${IID}"
+	*/
+	
+	loadTypelibrary = function(tlb,interface){
+		if(type(tlb) === type.string){
+			tlb = ..com.LoadTypeLibrary(tlb);
+		}
+		
+		if(!tlb){ error("请指定正确的类型库",2) }
+		
+		for(i=1;tlb.GetTypeInfoCount();1){
+			var info = tlb.GetTypeInfo(i) 
+			if(info.GetDocumentation().name===interface){
+				var attr = info.GetTypeAttr();
+				if(attr.typekind === "interface"){
+					var fields = {}
+					for(i=1;attr.Funcs;1){
+						var f = info.GetFuncDesc(i)
+						..table.push(fields,"ptr " + (f.name:"unknown"));
+					}
+					
+					var code = ..string.replace(tlbTemplate,"@${FIELD}",..string.join(fields,";"));
+					var code = ..string.replace(code,"@${IID}",attr.GUID);
+					var code = ..string.replace(code,"@${INTERFACE}",interface);
+					loadcodex(code);
+				}
+			} 
+		} 
+	}
+
+	class IUnknown{
+    	ptr QueryInterface = "int(struct iid,ptr &ptr)" ;
+    	ptr AddRef = "int()" ;
+    	ptr Release ="int()" ;
+	}
+	IUnknown.IID = guid.fromString("{00000000-0000-0000-C000-000000000046}");
+	
+	__box__ = {};
+}
+ 
+/**intellisense(com.interface)
+checkInterface(__/*接口类*/) = 检查是否com.interface名字空间下的接口类或类名,\n不合法则抛出异常,可使用参数2指定调用级别,\n成功返回类对象
+checkError(__/*请输入COM静态接口函数返回值*/) = 如果有错误调用error函数抛出异常
+checkError(__/*请输入COM静态接口函数返回值+函数返回值*/,2) = 如果有错误调用error函数抛出异常\n参数2指定抛出异常的调用级别\n2表示调用当前函数的函数
+create(.(clsid,静态接口类) = 创建静态接口对象
+loadTypelibrary(.(类型库,接口类名) = 自类型库加载接口类,\n并在com.interface名字空间创建参数@2指定名称的类,\n类型库可以是路径等可传入com.LoadTypeLibrary函数的参数,\n也可以是该函数创建的类型库对象,\n可选在定义接口类以后,\n在该类的名字空间下使用_funtions对象补全函数原型
+IUnknown = COM 静态接口基类,\n所有 COM 原生静态接口必须直接继承此接口,\n所有 COM 静态接口类中的自定义函数必须用 owner 代替 this,\nowner 才是实例对象,this指向的是接口定义结构体\nCOM 静态接口类在构造函数中使用 this 引用 COM 接口定义结构体
+end intellisense**/                
+
+/**intellisense()
+com.interface = 所有 COM 原生静态接口定义在此名字空间，\n所有 COM 静态接口类中的自定义函数必须用 owner 代替 this,\nowner 才是实例对象,this指向的是接口定义结构体\nCOM 静态接口类在构造函数中使用 this 引用 COM 接口定义结构体
+com.interface(.(com对象,静态接口类) = 参数一可以是com对象、com指针、托管com指针\n参数二是com.interface名字空间下的接口类或类名\n注意com.interface下接口类中的自定义函数必须用owner代替this,\nowner才是com实例对象,this指向的是接口定义结构体
+?.QueryInterface = !interface.
+?.interface = !interface.
+?.interface.create = !interface. 
+!interface.AddRef() = 引用计数加一,返回引用计数
+!interface.Release() = 引用计数减一,返回引用计数
+!interface.QueryInterface(__/*接口数*/) = 参数是接口类,参考com.interface.IUnknown源码
+end intellisense**/           
+
+/**intellisense()
+_SUCCEEDED = @ __/*hr*/ >= 0/*_SUCCEEDED*/
+_FAILED = @ __/*hr*/ < 0/*_FAILED*/
+_CLSCTX_INPROC_SERVER=@1/*_CLSCTX_INPROC_SERVER*/
+_CLSCTX_INPROC_HANDLER=@2/*_CLSCTX_INPROC_HANDLER*/
+_CLSCTX_LOCAL_SERVER=@4/*_CLSCTX_LOCAL_SERVER*/
+_CLSCTX_SERVER=@5/*_CLSCTX_LOCAL_SERVER*/
+_CLSCTX_INPROC=@3/*_CLSCTX_INPROC*/
+_VT_EMPTY=@0/*_VT_EMPTY*/
+_VT_NULL=@1/*_VT_NULL*/
+_VT_I2=@2/*_VT_I2*/
+_VT_I4=@3/*_VT_I4*/
+_VT_R4=@4/*_VT_R4*/
+_VT_R8=@5/*_VT_R8*/
+_VT_CY=@6/*_VT_CY*/
+_VT_DATE=@7/*_VT_DATE*/
+_VT_BSTR=@8/*_VT_BSTR*/
+_VT_DISPATCH=@9/*_VT_DISPATCH*/
+_VT_ERROR=@0xA/*_VT_ERROR*/
+_VT_BOOL=@0xB/*_VT_BOOL*/
+_VT_VARIANT=@0xC/*_VT_VARIANT*/
+_VT_UNKNOWN=@0xD/*_VT_UNKNOWN*/
+_VT_DECIMAL=@0xE/*_VT_DECIMAL*/
+_VT_I1=@0x10/*_VT_I1*/
+_VT_UI1=@0x11/*_VT_UI1*/
+_VT_UI2=@0x12/*_VT_UI2*/
+_VT_UI4=@0x13/*_VT_UI4*/
+_VT_I8=@0x14/*_VT_I8*/
+_VT_UI8=@0x15/*_VT_UI8*/
+_VT_INT=@0x16/*_VT_INT*/
+_VT_UINT=@0x17/*_VT_UINT*/
+_VT_VOID=@0x18/*_VT_VOID*/
+_VT_HRESULT=@0x19/*_VT_HRESULT*/
+_VT_PTR=@0x1A/*_VT_PTR*/
+_VT_SAFEARRAY=@0x1B/*_VT_SAFEARRAY*/
+_VT_CARRAY=@0x1C/*_VT_CARRAY*/
+_VT_USERDEFINED=@0x1D/*_VT_USERDEFINED*/
+_VT_LPSTR=@0x1E/*_VT_LPSTR*/
+_VT_LPWSTR=@0x1F/*_VT_LPWSTR*/
+_VT_RECORD=@0x24/*_VT_RECORD*/
+_VT_INT_PTR=@0x25/*_VT_INT_PTR*/
+_VT_UINT_PTR=@0x26/*_VT_UINT_PTR*/
+_VT_FILETIME=@0x40/*_VT_FILETIME*/
+_VT_BLOB=@0x41/*_VT_BLOB*/
+_VT_STREAM=@0x42/*_VT_STREAM*/
+_VT_STORAGE=@0x43/*_VT_STORAGE*/
+_VT_STREAMED_OBJECT=@0x44/*_VT_STREAMED_OBJECT*/
+_VT_STORED_OBJECT=@0x45/*_VT_STORED_OBJECT*/
+_VT_BLOB_OBJECT=@0x46/*_VT_BLOB_OBJECT*/
+_VT_CF=@0x47/*_VT_CF*/
+_VT_CLSID=@0x48/*_VT_CLSID*/
+_VT_VERSIONED_STREAM=@0x49/*_VT_VERSIONED_STREAM*/
+_VT_BSTR_BLOB=@0xFFF/*_VT_BSTR_BLOB*/
+_VT_VECTOR=@0x1000/*_VT_VECTOR*/
+_VT_ARRAY=@0x2000/*_VT_ARRAY*/
+_VT_BYREF=@0x4000/*_VT_BYREF*/
+_VT_RESERVED=@0x8000/*_VT_RESERVED*/
+_VT_ILLEGAL=@0xFFFF/*_VT_ILLEGAL*/
+_VT_ILLEGALMASKED=@0xFFF/*_VT_ILLEGALMASKED*/
+_VT_TYPEMASK=@0xFFF/*_VT_TYPEMASK*/
+end intellisense**/

package/aardio/lib/com/lite.aardio

@@ -0,0 +1,183 @@
+//lite 免组件调用
+import com.typeAttrs;
+import com.interface.IClassFactory;
+import com.interface.IClassFactory2;
+namespace com
+
+class lite{
+	ctor( dllFile,... ){
+		if( (#dllFile < 0x410/*_MAX_PATH_U8*/) && ..io.exist(dllFile) ){
+			this.$filePath = dllFile;
+		}
+		
+		this.dll = ..raw.loadDll(dllFile,... )
+		..table.push( _dll_cache__,this.dll );
+
+		this.DllGetClassObject = this.dll.api("DllGetClassObject","int(struct clsId, struct iid, pointer& ppv)" )
+		if( !this.DllGetClassObject ){
+			return;
+		}
+	};
+	registerServer = function(){
+		return this.dll.DllRegisterServer &&  (this.dll.DllRegisterServer())>=0/*_SUCCEEDED*/
+	};
+	unregisterServer = function(){
+		return this.dll.DllUnregisterServer &&  (this.dll.DllUnregisterServer())>=0/*_SUCCEEDED*/
+	};
+	requestLicKey = function(clsId){
+		clsId = guid.valid(clsId)
+		if(!clsId) error("参数@1 指定了错误的CLSID",2);
+		
+		var hr,pFactory = this.DllGetClassObject(clsId,IClassFactory2.IID  ); 
+		if( (hr)<0/*_FAILED*/ ) return;
+
+		var classFactory =  ..com.interface(pFactory,IClassFactory2 );
+		..com.Release(pFactory);
+		
+		var hr,strKey = classFactory.RequestLicKey();
+		if( (hr)>=0/*_SUCCEEDED*/ ) return strKey;
+	};
+	createUnknown = function(clsId,iid){
+	
+		clsId = guid.valid(clsId)
+		if(!clsId) error("参数@1 指定了错误的CLSID",2);
+		
+		var IFactory = this.licenseKey ? IClassFactory2 : IClassFactory; 
+		var hr,pFactory = this.DllGetClassObject(clsId,IFactory.IID  ); 
+		if( (hr)<0/*_FAILED*/ ) return hr;
+
+		var classFactory =  ..com.interface(pFactory,IFactory );
+		..com.Release(pFactory);
+		var hr,unknown;
+		
+		if(! this.licenseKey)
+			return classFactory.CreateInstance(null,iid); 
+		else
+			return classFactory.CreateInstanceLic(null,null,iid, this.licenseKey);
+	};
+	createInstance = function(clsId,itface){
+		clsId = guid.valid(clsId)
+		if(!clsId) error("参数@1 指定了错误的CLSID",2);
+			
+		if(!itface) itface = ..com.interface.IUnknown; 
+		checkInterface(itface,2);  
+		
+		var hr,unknown =  owner.createUnknown(clsId,itface.IID);
+		checkError(hr,2); 
+		
+		var interface =  ..com.interface(unknown,itface);
+		..com.Release(unknown)
+		return interface;
+	};
+	createObject = function(clsId,iid){
+		if(!iid) iid = IID_IDispatch; 
+		else{
+			iid = guid.valid(iid);
+			if(!iid) error("参数@2 指定了错误的IID",2)
+		} 
+		
+		if(!clsId){
+			clsId = this.firstCoClassId();
+			if(!clsId) error("请指定CLSID参数",2)
+		}
+		
+		clsId = guid.valid(clsId)
+		if(!clsId) error("参数@1 指定了错误的CLSID",2)
+		
+		var hr,unknown =  owner.createUnknown(clsId,iid);
+		checkError(hr,2);  
+		
+		var object = ..com.QueryObject(unknown); 
+		..com.Release(unknown) 
+		return object; 
+	};
+	createEmbed = function(winform,clsId,iid,embedObject){
+		if(!clsId){
+			clsId = this.firstCoClassId();
+			if(!clsId) error("请指定CLSID参数",2)
+		}
+		
+		var obj = this.createObject(clsId,iid);
+		return winform.createEmbed(obj,embedObject);
+	};
+	createEmbedEx = function(winform,clsId,iid){
+		var embed = this.createEmbed(winform,clsId,iid);
+		embed@ = {
+			_get = embed._object;
+			_set = function(k,v){ 
+				if(type(v) === "function") owner[[k]] = v;
+				else owner._object[k] = v; 
+			}
+		};
+		
+		return embed;
+	};
+	firstCoClassId = function(){
+		var path = this.getPath();
+		if(path){
+			if(!this.$firstCoClassId) {
+				this.$firstCoClassId = ..com.typeAttrs.firstCoClass(path)[["GUID"]];
+			}
+			return this.$firstCoClassId;
+		} 
+	};
+	getPath = function(){
+		if(!this.$filePath && (#dllFile < 0x410/*_MAX_PATH_U8*/)){
+			var buf = {WORD path[0x104]}
+			::Kernel32.GetModuleFileNameW(this.dll, buf, 0x104/*_MAX_PATH*/);
+			if(#buf.path) this.$filePath = buf.path;	
+		}
+		
+		return this.$filePath;	
+	};
+}
+	
+namespace lite{ 
+	guid = ..win.guid;
+	IID_IDispatch = guid.fromString("{00020400-0000-0000-C000-000000000046}");  
+	
+	checkError = ..com.interface.checkError;
+	checkInterface = ..com.interface.checkInterface;
+	IClassFactory2 = checkInterface(..com.interface.IClassFactory2);
+	IClassFactory = checkInterface(..com.interface.IClassFactory);
+	_dll_cache__ = {};
+	
+	appData = function(p,d){
+		var p = ..io.specialData(p,d,0x23/*_CSIDL_COMMON_APPDATA*/);
+		if(p) return ..com.lite(p);
+	}
+	
+	//@Deprecated
+	loadTypeAttrs = ..com.typeAttrs.load;
+}
+
+/**intellisense()
+com.lite = 免注册 COM 组件调用接口
+com.lite(.("x->dll") = 参数用法与 raw.loadDll() 函数相同,支持内存OCX\n如果该组件不是合法的COM组件,返回null空值
+com.lite() = !com_lite_dll.
+!com_lite_dll.createEmbed( = 创建嵌入控件,返回控件容器对象,\n容器对象的 _object 成员是创建的 COM 对象,\n容器对象可通过添加成员函数响应 COM 对象事件，\n容器对象的主要作用是充当访问 COM 对象的中间代理对象。\n通常使用 util.metaProperty 为容器对象添加属性元表，\n属性元表可拦截属性、函数调用并调用 _object 对象,\n\ncreateEmbedEx 返回的容器已添加默认代理以直接访问 COM 对象
+!com_lite_dll.createEmbed(.(winform,clsId,iid,embedObj) = 创建嵌入控件,返回控件容器对象,\n容器对象的 _object 成员是创建的 COM 对象,\n容器对象可通过添加成员函数响应 COM 对象事件，\n容器对象的主要作用是充当访问 COM 对象的中间代理对象,\n@clsId 指定控件 CLSID,如果控件不是自内存加载,\n则可省略 @clsId 并由 firstCoClassId函数自动获取,\n参数@3指定接口IID,可省略,默认值为 IID_IDispatch,\n可选在参数@4 中指定 COM 对象绑定的容器对象
+!com_lite_dll.createEmbed() = !embedObject.
+!com_lite_dll.createEmbedEx( = 创建嵌入控件,返回控件容器对象,\n容器对象的 _object 成员是创建的 COM 对象,\n容器对象可通过添加成员函数响应 COM 对象事件，\n容器对象的主要作用是充当访问 COM 对象的中间代理对象。\n此函数返回的容器已添加元表并创建代理以直接访问 COM 对象
+!com_lite_dll.createEmbedEx(.(winform,clsId,iid,embedObj) = 创建嵌入控件,返回控件容器对象,\n此函数返回的容器已添加元表并创建代理以直接访问 COM 对象,\n@clsId 指定控件 CLSID,如果控件不是自内存加载,\n则可省略 @clsId 并由 firstCoClassId函数自动获取,\n参数@3指定接口IID,可省略,默认值为 IID_IDispatch,\n可选在参数@4 中指定 COM 对象绑定的容器对象
+!com_lite_dll.createEmbedEx() = !embedObject.
+!com_lite_dll.createObject(.(clsId,iid) = 创建COM对象\n参数2可省略,默认值为 IID_IDispatch
+!com_lite_dll.createInstance(.(clsId,interface) = 创建COM接口\n参数@interface 指定接口类,可省略,\n@interface 认值为 com.interface.IUnknown
+!com_lite_dll.createInstance() = !interface.
+!com_lite_dll.registerServer() = 注册组件
+!com_lite_dll.unregisterServer() = 卸载组件
+!com_lite_dll.licenseKey = 设置创建控件使用的许可证密钥
+!com_lite_dll.getPath() = 返回加载的 DLL 文件路径,\n内存 DLL 返回 null
+!com_lite_dll.requestLicKey(.(clsId) = 开发时调用此函数返回许可证密钥
+!com_lite_dll.firstCoClassId() = 获取控件的首个 CLSID,\n通过内存加载控件时此函数不可用
+com.lite.appData( = 将@path指定的相对路径转换为系统  %CommonAppData% 目录下的绝对路径
+com.lite.appData(.(path,data) = 可选使用@data指定需要存入的数据,\n在文件路径前加上$符号即可将文件编译到代码中并可作为@data参数,\n只有在存入字节与目标文件内容长度不同时才会更新文件,\n最后使用该路径加载并返回组件对象\n\n使用这个方法可将控件嵌入EXE以生成独立文件,\n也可以解决一些控件不支持在包含Unicode字符的目录下运行的问题
+com.lite.appData() = !com_lite_dll.
+!embedObject._form = COM 控件宿主窗口,\n也就创建控件的构造参数中指定的 aardio 控件或窗口对象\n也是控件窗口的上级父窗口,\n!static.
+!embedObject._object = COM 控件对象,\n通过此对象可以访问 COM 对象的成员函数和成员属性,\n 可改造容器对象并在内部调用 _object 以改进 COM 对象接口\n也可以通过指定容器对象的成员函数以响应 COM 对象的事件
+!embedObject._host = COM 控件宿主对象
+!embedObject._host.close() = 关闭对象
+!embedObject._host.adjust() = 自动调整 COM 控件窗口大小
+!embedObject._host.tranacc(.(MSG消息对象) = 解析 COM 控件 快捷键,\n如果是快捷键返回真值
+!embedObject._host.doObjectVerb( _OLEIVERB__ ) = 执行指定的动词命令
+end intellisense**/

package/aardio/lib/com/oleDb.aardio

@@ -0,0 +1,57 @@
+//oleDb 数据库
+import com;
+import win.reg;
+namespace com.oleDb;
+
+getProviders = function(){
+	var reg = ..win.regReader("HKEY_CLASSES_ROOT\CLSID")
+	var name,description;
+	var ret = {}
+	for(clsid in reg.eachKey() ){
+		var regCls = reg.open(clsid); 
+		if(!regCls) continue;
+		
+		if(regCls.queryValue("OLEDB_SERVICES")){
+			var keyOle = regCls.open("OLE DB Provider"); 
+			if(keyOle){
+				description = keyOle.queryValue("")
+				keyOle.close()	
+				
+				var keyProgID = regCls.open("ProgID"); 
+				if(keyProgID){
+					name = keyProgID.queryValue("");
+					keyProgID.close();
+					ret[name] = {clsid=clsid;description} 
+				} 
+			} 
+		}
+		regCls.close()
+	}
+
+	return ret;
+}
+
+hasProvider = function(name){
+	
+	var reg = ..win.regReader("HKEY_CLASSES_ROOT\" + name + "\CLSID")
+	if( reg ){ 
+		var clsId = reg.queryValue("");
+    	reg.close();
+    	
+    	if(clsId){
+    		var regCls = ..win.regReader("HKEY_CLASSES_ROOT\CLSID\" + clsId)
+    		if(regCls){
+    		    var ret = regCls.queryValue("OLEDB_SERVICES");
+    		    regCls.close();
+    			
+    			return !!ret; 
+    		} 
+    	} 
+	}	
+}
+
+/**intellisense()
+com.oleDb = 用于检查、获取 OLEDB 提供程序
+com.oleDb.getProviders() = 获取所有 OLEDB 提供程序。\n返回一个表，键为提供程序名，\n值为包含 clsid,description 字段的对象
+com.oleDb.hasProvider(__) = 是否安装参数 @1 指定名称的 OLEDB 提供程序
+end intellisense**/