aview-app 1.0.2

package/aardio/lib/com/picture.aardio

@@ -0,0 +1,235 @@
+//picture 图像
+import com; 
+import win;
+import gdi;
+import win.ole;
+namespace com.picture;
+
+IID_IPicture = '\x80\x09\xF8\x7B\x32\xBF\x1A\x10\x8B\xBB\x00\xAA\x00\x30\x0C\xAB'
+OleLoadPicture = ::OleAut32.api("OleLoadPicture","int(pointer lpStream,int lSize,int fRunmode,ptr riid,pointer &pic)");
+
+load = function(strfile){  
+	var bin = "";
+	var len = #strfile;
+	
+	if(!len) return null,"无效参数";
+	elseif( len < 0x410/*_MAX_PATH_U8*/){
+		if( (strfile[1] == 'h'#) && ..string.startWith(strfile,"http") && ..inet[["http"]]  ){
+			if( !self.http ) self.http = ..inet.http();
+			bin = self.http.get(strfile);
+		}
+		else{
+			bin = ..string.load(strfile)
+		};
+		
+		if( !bin ) bin = strfile;
+	}
+	else{
+		bin = strfile;
+	}
+	
+	len = #bin;
+	if(!len) return null,"图像数据为空"; 
+	
+	var hImageMemory = ::GlobalAlloc( 0x2 /*_GMEM_MOVEABLE*/, len); 
+	pImageMemory = ::GlobalLock(hImageMemory); 
+	::CopyMemory(pImageMemory,bin,len);
+	::GlobalUnlock(hImageMemory); 
+		
+	var re,pIStream,pIPicture ;
+	re,pIStream = ::CreateStreamOnHGlobal(hImageMemory,true/*GlobalFree*/,pIStream) 
+	if( re ){
+		::GlobalFree(hImageMemory); 
+		return null,..lasterr() 
+	}
+	
+	re,pIPicture =  OleLoadPicture(pIStream, len, 0, IID_IPicture, pIPicture  );
+	..com.Release(pIStream);
+		
+	if(re) return null,..lasterr() 
+	var pic = ..com.GetIPicture( pIPicture )
+	..com.Release(pIPicture)
+
+	return  pic; 
+}
+
+loadObject = function(path){
+	var pic = load(path);
+	if(pic) return ..com.QueryObject(pic);
+}
+
+loadBitmap = function(path){
+	var p,e = load(path);
+	if(!p) return null,e;
+	
+	var h =  p.CopyHandle();
+		..com.Release(p); 
+	return h; 
+};
+
+OleCreatePictureIndirect = ::OleAut32.api("OleCreatePictureIndirect","int(struct desc, ptr riid, bool fOwn, pointer &obj)");
+fromBitmap = function(hBmp,fOwn=true,picType=0x1/*_PICTYPE_BITMAP*/){
+	var picdesc = {
+		INT cbSize = 20;
+		INT picType;
+		union desc = {
+			struct bmp = {pointer hbitmap; pointer hpal;} 
+			struct wmf = {pointer hmeta;int xExt;int yExt;} 
+			struct icon ={pointer hicon;} ;
+			struct emf = {int hemf;} 
+		};
+	}
+	picdesc.cbSizeofstruct = ..raw.sizeof( picdesc );
+	picdesc.desc.bmp.hbitmap = hBmp;
+	picdesc.picType = picType;
+		
+	var re ,pIPicture  = OleCreatePictureIndirect( picdesc, IID_IPicture, fOwn );  
+	var pic = ..com.GetIPicture( pIPicture )
+	..com.Release(pIPicture); 
+	
+	return pic; 
+}
+
+fromIcon = function(hIcon,fOwn=true){
+	return fromBitmap(hIcon,fOwn,0x3/*_PICTYPE_ICON*/);
+}
+
+printClient = function(hwnd,x,y,w,h){
+	return printWindow(hwnd,x,y,w,h,true);
+}
+
+printWindow = function(hwnd,x=0,y=0,w,h,clientOnly) {
+	
+	if( hwnd===null ) hwnd =  ..win.getDesktop();
+	if( ..win.isIconic(hwnd)  || ( !..win.isVisible(hwnd) ) ) 
+		..win.show(hwnd, 0x4/*_SW_SHOWNOACTIVATE*/);
+
+	var picture; 
+	..gdi.windowBuffer( hwnd,
+		function( hdc,hMemDc,hMemBitmap,width,height ){
+			::PrintWindow( hwnd,hMemDc,0)
+			
+			if( x : y : w : h : clientOnly ){  
+				if( clientOnly ){ 
+					var left,top,width,height = ..win.getClientPos(hwnd);
+					x = x + left;
+					y = y + top; 
+				} 
+				width = w:( width - x)
+				height = h:( height - y)  
+					
+				..gdi.doubleBuffer( hMemDc,width,height,
+					function( hdc,hMemDc,hMemBitmap ){
+						::BitBlt( hMemDc , 0, 0,width,height, hdc, x, y,0xCC0020/*_SRCCOPY*/ | 0x40000000/*_CAPTUREBLT*/) 
+							picture = fromBitmap(hMemBitmap);
+							return true/*borrowBitmap*/;
+					}
+				)  
+			}  
+				else {
+					picture = fromBitmap(hMemBitmap);
+					return true/*borrowBitmap*/;
+				} 
+		} 
+	) 
+	return picture; 
+} 
+
+snapClient = function(hwnd,x,y,w,h){
+	return snap(hwnd,x,y,w,h,true);
+}
+
+snap = function(hwnd,x=0,y=0,w,h,clientOnly)   {
+	var hSrc = ..win.getDesktop();
+	if( hwnd===null ) hwnd =  hSrc; 
+	if( hSrc!==hwnd ){
+		..win.showForeground(hwnd);	
+		..thread.delay(10);
+	}
+	
+	var hdc = ::GetWindowDC(hSrc);
+	var rc;
+	
+	if(clientOnly){ 
+		rc = ..win.getClientRect(hwnd); 
+		..win.toScreenRect(hwnd,rc);
+	}
+	else{
+		rc = ..win.getRect(hwnd,true);
+	}
+	if(!w) w = rc.right - rc.left - x;
+	if(!h) h = rc.bottom - rc.top - y;
+	x = rc.left + x;
+	y = rc.top + y;
+	
+	var hBmp = ..gdi.doubleBuffer( hdc,w,h,
+		function( hdc,hMemDc,hMemBitmap ){ 
+				::BitBlt(hMemDc,0,0,w,h, hdc, x, y,0xCC0020/*_SRCCOPY*/ | 0x40000000/*_CAPTUREBLT*/)
+			picture = fromBitmap(hMemBitmap);
+				return true/*borrowBitmap*/;
+		}
+	)
+	::ReleaseDC(hSrc, hdc);
+		
+	return picture;
+} 
+
+self.type = {
+	none = 0;
+	uninitialized = -1;
+	bitmap = 1;
+	metafile = 2;
+	icon = 3;
+	enhmetafile = 4;
+}
+
+is = function(v){
+	return( type(v) == type.cdata && type.rget(v) == "com.IPicture")
+}
+
+/**intellisense(com.picture) 
+load(__/*请输入文件路径*/) =  载入图像并返回 com.IPicture 对象,\n参数也可以指定资源路径、或者图像的内存数据\n如果已经导入了inet.http,加载路径可以使用小写http,https开头的网址,网址长度必须小于1040字节
+loadObject(__/*请输入文件路径*/) =  载入图像并返回 com.IDispath 对象,\n参数也可以指定资源路径、或者图像的内存数据\n如果已经导入了inet.http,加载路径可以使用小写http,https开头的网址,网址长度必须小于1040字节
+snap(.(窗口句柄,左坐标,顶坐标,宽,高) = 自屏幕抓取窗口图象并返回com.IPicture对象,\n截图结果会包含透明部分的背景图像，\n所有参数都是可选参数
+snapClient(.(窗口句柄,左坐标,顶坐标,宽,高) = 自屏幕抓取窗口客户区图像并返回com.IPicture对象,\n截图结果会包含透明部分的背景图像，\n所有参数都是可选参数
+printWindow(.(窗口句柄,左坐标,顶坐标,宽,高) = 后台抓取窗口图象并返回com.IPicture对象\n所有参数都是可选参数
+printClient(.(窗口句柄,左坐标,顶坐标,宽,高) = 后台抓取窗口客户区图像并返回com.IPicture对象 \n所有参数都是可选参数
+loadBitmap(__/*请输入文件路径*/) = 载入图像并返回位图句柄,\n参数也可以指定资源路径、或者图像的内存数据
+fromBitmap(__/*位图句柄*/) = 自位置句柄返回IPicture对象
+fromIcon(__/*图标句柄*/) = 从图标句柄返回IPicture对象
+fromBitmap(__/*位图句柄*/,false) = 自位置句柄返回IPicture对象\n不负责销毁位图
+fromIcon(__/*图标句柄*/,false) = 从图标句柄返回IPicture对象\n不负责销毁位图
+IID_IPicture = IPicture IID;
+is(__) = 判断对象是否 com.IPicture 对象
+end intellisense**/
+	
+/**intellisense()
+com.picture = IPictrue图像支持库\n在导入win.ui,win.ui.ctrl中时自动导入此库
+!ipicture.Handle = 位图句柄
+!ipicture.Type = 图片类型\n参考com.picture.type成员
+!ipicture.Save(__/*文件路径*/) = 保存位图到文件，只能保存为bmp格式\n使用 com.interface.IPicture 可保存到内存
+!ipicture.CopyHandle(.(宽度,高度) = 复制新的位图并返回位图句柄,位图类型(_IMAGE_BITMAP 或 _IMAGE_ICON)\n可选指定宽度、高度
+!ipicture.Width = 图像宽度
+!ipicture.Height = 图像高度
+com.picture.snap() = !ipicture.
+com.picture.snapClient() = !ipicture.
+com.picture.printWindow() = !ipicture.
+com.picture.printClient() = !ipicture.
+com.picture.load() = !ipicture.
+com.picture.snap() = !ipicture.
+com.picture.load() = !ipicture.
+com.picture.loadObject() = !ipicture.
+com.picture.fromBitmap() = !ipicture.
+com.picture.fromIcon() = !ipicture.
+com.GetIPicture(__) = 转换为 com.IPicture 对象\n参数可指定 IPictrue 接口的指针或 COM 对象
+com.GetIPicture() = !ipicture.
+end intellisense**/ 
+
+/**intellisense()
+_PICTYPE_UNINITIALIZED=@0xFFFFFFFF/*_PICTYPE_UNINITIALIZED*/
+_PICTYPE_NONE=@0x0/*_PICTYPE_NONE*/
+_PICTYPE_BITMAP=@0x1/*_PICTYPE_BITMAP*/
+_PICTYPE_METAFILE=@0x2/*_PICTYPE_METAFILE*/
+_PICTYPE_ICON=@0x3/*_PICTYPE_ICON*/
+_PICTYPE_ENHMETAFILE=@0x4/*_PICTYPE_ENHMETAFILE*/
+end intellisense**/

package/aardio/lib/com/sapi/voice.aardio

@@ -0,0 +1,178 @@
+import com;
+namespace com.sapi;
+
+class voice{
+	ctor(  ){
+		this = ..com.CreateObject("Sapi.SpVoice"); 
+
+		this[["getVoicesEx"]] = function(attr){
+			var result = {};
+			var voices = this.GetVoices();
+			for(i=1;this.GetVoices().Count;1){
+				var v = voices.Item(i-1);
+				..table.push(result,{
+					name = v.GetAttribute("Name");
+					language = v.GetAttribute("Language");
+					gender = v.GetAttribute("Gender");
+					age = v.GetAttribute("Age");
+					vendor = v.GetAttribute("Vendor");
+					description = v.GetDescription();
+				}) 
+    		}
+    		
+    		if(attr){
+    			return ..table.map(result,lambda(v,k,result)v[attr])	
+    		}
+    		return 	result;
+		}
+		
+		this[["eachVoices"]] = function(attr){
+			var voices = this.getVoicesEx();
+			var i,v;
+			return function(){
+				i,v = ..table.next(voices,i);
+				if(v){
+					return v.name,v.language,v.gender,v.age,v.vendor,v.description
+				}
+			} 
+		}
+		
+		this[["setVoiceByIndex"]] = function(idx){
+			var v = this.GetVoices().Item(idx-1);
+			if(v){
+				this.setVoice(v);
+			} 
+		}
+		
+		this[["setVoiceByAttributes"]] = function(required,optional){
+			var v = this.GetVoices(required,optional).Item(0);
+			if(v){
+				return this.setVoice(v);
+			} 
+		}
+		
+		this[["setVoiceByName"]] = function(name){
+			var v = this.GetVoices("Name="+name).Item(0);
+			if(v){
+				return this.setVoice(v);
+			} 
+		}
+		
+		this[["setVoiceByLanguage"]] = function(lang){
+			var v = this.GetVoices("Language="+lang).Item(0);
+			if(v){
+				return this.setVoice(v);
+			} 
+		}
+		
+		this[["speakAsync"]] = function(text,flags){ 
+			return this.speak(text,(flags:0) | 1)
+		}
+		 
+		this[["speakXml"]] = function(text,flags){ 
+			return this.speak(text,(flags:0) | 8 | 1)
+		}
+		
+		this[["speakCompleteEvent2"]] = this.speakCompleteEvent;
+		this[["speakCompleteEvent"]] = function(){
+			return topointer( this.speakCompleteEvent2() );
+		}
+		
+		this[["waitOne"]] = function(){
+			return ..thread.waitOne( topointer( this.speakCompleteEvent2() ) );
+		}
+		
+		this[["event"]] = {
+			@{
+				_set = function(k,v){ 
+					if(k=="AudioLevel"){
+						this.setEventInterests( this.EventInterests | this.SVEAudioLevel ); 
+					}
+					owner[[k]] = v;
+				} 
+			}
+		}
+		..com.Connect(this,this.event);  
+	};
+}
+
+/**intellisense()
+com.sapi.voice = SAPI语音对象,\nSAPI为正常系统自带组件，如果是精简过删除了SAPI组件的系统请自行安装修复该组件
+com.sapi.voice() = 创建SAPI语音对象\n!stdcomsapivoice.
+end intellisense**/
+
+/**intellisense(!stdcomsapivoice)
+getVoicesEx() = 返回数组,数组由所有语音库的属性列表组成\n如果在参数中使用一个字符串参数指定要返回的属性,\n则返回由所有语音库的对应属性值组成的数组
+setVoiceByIndex(__) = 使用索引设置语音库
+setVoiceByAttributes(.(必需属性,可选属性) =  使用属性设置语音库\n属性使用"Attribute = Value"或者"Attribute != Value" 格式的字符串表示
+setVoiceByName(__) = 使用名称设置语音库
+setVoiceByLanguage(__) = 使用语言代码设置语音库\n804 表示中文,409表示英文
+setVoice(__) = 设置当前语音库
+voice = 当前语音库
+rate =  说话速度，值范围从 -10到10
+volume = 音量，值范围从 0到100
+speak(.(text,flags) = 朗读,text参数指定要朗读的字符串\nflags为可选参数,可指定如下值：\n    SVSFDefault = 0\n    SVSFlagsAsync = 1\n    SVSFPurgeBeforeSpeak = 2\n    SVSFIsFilename = 4 \n    SVSFIsXML = 8\n    SVSFIsNotXML = 16\n    SVSFPersistXML = 32 \n    SVSFNLPSpeakPunc = 64 \n    SVSFNLPMask = 64\n    SVSFVoiceMask = 127\n    SVSFUnusedFlags = -128   
+speakAsync(.(text,flags) = 异步非阻塞朗读,text参数指定要朗读的字符串\nflags为可选参数,参考speak函数flags参数的说明\n此函数与speak用法相同,但flags默认指定了SVSFlagsAsync选项
+speakXml(.(text,flags) = 异步非阻塞朗读XML格式文本,text参数指定要朗读的字符串\nflags为可选参数,参考speak函数flags参数的说明\n此函数与speak用法相同,但flags默认指定了SVSFlagsAsync,SVSFIsXML选项
+speakStream(.(stream,flags) = 朗读文件流，例如SAPI.SpFileStream
+skip(.(type,numItems) = 跳过指定的文本
+pause() = 暂停朗读
+resume() = 继续朗读
+waitUntilDone(_) = 等待直到完成,参数指定超时,超时指定为-1表示直到朗读完成
+isUiSupported(.(typeOfUI,extraData) = 是否支持指定界面
+displayUI(.(hWndParent,title,typeOfUI,extraData) = 显示指定界面
+getStatus() = 返回当前状态\n!stdcomsapivoicestatus.
+status = 当前状态\n!stdcomsapivoicestatus.
+event = 回调事件表\n!stdcomsapivoiceevent.
+eachVoices() = @for name,lang,gender,age,vendor,description in ??.eachVoices(){
+	__/*遍历所有语音库,\nname为名称,lang为语言代码,gender为性别,age为年龄,vendor为厂商,description为详细说明*/
+}
+speakCompleteEvent() = 返回一个用于等待的事件句柄,\n可作为 thread.waitOne 的参数使用
+waitOne() = 异步朗读时,可使用此函数等待朗读结束
+end intellisense**/
+
+/**intellisense(!stdcomsapivoicestatus)
+currentStreamNumber = 输入流数目. 
+inputSentenceLength = 当前语句长度
+inputSentencePosition = 当前语句开始位置
+inputWordLength = 当前朗读的单词长度
+inputWordPosition = 当前朗读的单词开始位置
+runningState = 当前朗读状态\nSRSEIsSpeaking 值为2 表示正在朗读\nSRSEDone 值为1表示朗读已完成
+visemeId = 当前口形ID
+phonemeId = 当前音素ID
+lastStreamNumberQueued = 朗读的最后一个音频流编号
+lastHResult = 最后一次调用speak,speakStream的状态码
+lastBookmark = 最后一个书签的字符串值
+lastBookmarkId = 最后一个书签的ID
+end intellisense**/
+
+/**intellisense(!stdcomsapivoiceevent)
+AudioLevel = @.AudioLevel = function(streamNumber,streamPosition,audioLevel){ 
+	__/*音频变化触发*/  
+}
+Word = @.Word =  function(streamNumber,streamPosition,characterPosition,length ){ 
+   __/*一个新单词开始*/
+} 
+Viseme = @.Viseme =  function(streamNumber,streamPosition,duration,nextVisemeId,feature,currentVisemeId){
+   __/*新的嘴形*/
+}
+Phoneme = @.Phoneme =  function(streamNumber, streamPosition,Duration,nextPhoneId,Feature,currentPhoneId){
+   __/*新的音素*/
+}
+
+Sentence = @.Sentence =  function(streamNumber,streamPosition,characterPosition,length){
+   __/*新的句子*/
+}
+EndStream = @.EndStream = function(streamNumber ,streamPosition){ 
+    
+}
+StartStream = @.StartStream = function(streamNumber,streamPosition ){ 
+    
+}
+VoiceChange = @.VoiceChange =  function(streamNumber,streamPosition ,voiceObjectToken ){ 
+    var v = voiceObjectToken.GetDescription();
+} 
+EnginePrivate = @.EnginePrivate =  function(streamNumber,streamPosition,engineData){
+	
+}
+end intellisense**/

package/aardio/lib/com/shell.aardio

@@ -0,0 +1,69 @@
+//shell 外壳接口
+import com;
+import com.interface.IApplicationActivationManager;
+
+namespace com;
+
+class shell{
+	ctor(){
+		return ..com.CreateObject("Shell.Application");
+	}; 
+}
+
+namespace shell;
+
+eachApp = function(){
+	var shell = ..com.CreateObject("Shell.Application")
+	if(!_WIN10_LATER){ return function(){} }
+		
+	return ..com.each( 
+		shell.NameSpace("shell:::{4234d49b-0245-4df3-b780-3893943456e1}"/*Shell:AppsFolder*/).Items() 
+	)
+} 
+
+findApp = function(name,path){
+	 
+	for i,item in eachApp(){ 
+		if( (name && ..string.find(item.name,name))
+			|| (path && ..string.find(item.path,path)) ) {
+			return item;
+		} 
+	}
+} 
+
+activateApp = function(aumid,arguments,options){
+	if(_WIN10_LATER){
+		if(!..string.indexOf(aumid,"!")){
+			var app = findApp(,"@"+aumid);
+			aumid = app ? app.path : aumid + "!App"
+		}
+		
+		var mgr = ..com.interface.IApplicationActivationManager.Create()
+		var hr,pid = mgr.ActivateApplication(aumid,arguments:"",options:0/*_AO_NONE*/, 0);
+		if( (hr)>=0/*_SUCCEEDED*/){
+			return pid;
+		}    	
+	}
+}
+
+eachWindow = function(){
+	var shell = ..com.CreateObject("Shell.Application")
+	return ..com.each(shell.Windows)
+} 
+
+/**intellisense()
+com.shell() = 返回 ..com.CreateObject("Shell.Application") 创建的对象\n!stdComShell.
+com.shell.activateApp(.(aumid,arguments,options) = 打开 APP 应用。\n参数@1 指定 Application User Model ID。\n如果参数 @1 不含感叹号，则自动查找并添加合适的应用程序 ID。\n\ncom.shell.eachApp 可以获取 应用的 AUMID,\n也可以将应用拖到桌面上,然后打开快捷方式的属性在taget中查看，\n参数@2,@3为可选参数,
+com.shell.eachApp = @for i,item in com.shell.eachApp(){ 
+	console.log( item.name,item.path );__/*遍历WIN10 appsFolder目录下安装的应用\nitem.path 是应用的 AUMID 或者原生程序路径*/
+}
+com.shell.findApp(.(name,path) = 查找指定的 APP 是否安装。\n成功则返回对象的 name 字段为应用名，path 字段为应用路径。\n失败返回 null 。\n\n可用 @name 指定应用名搜索关键字，\n或用 @path 指定应用路径搜索关键字。\n参数支持模式匹配语法
+com.shell.eachWindow() = @for i,shWnd in com.shell.eachWindow(){\n	var typeName = com.GetTypeInfo(shWnd.document).GetDocumentation().name;\n	if(typeName=="IShellFolderViewDual3" || typeName=="IShellFolderViewDual2"){\n		var items = shWnd.document.SelectedItems();\n		for index,item in com.each(items) {\n			console.log(item.Path,shWnd.HWND);__/*资源管理器被选中的文件路径与所在窗口句柄*/\n		} \n	} \n}\n!comShellWnd.
+com.shell.eachApp() = !comShellAppItem.
+!comShellAppItem.name = 应用名称
+!comShellAppItem.path = 应用路径
+!comShellWnd.document = 文档对象
+!stdComShell.ControlPanelItem("__.cpl") = 打开控制面板指定项目\n也可以改用 raw.execute("control.exe","__.cpl")
+!stdComShell.MinimizeAll() = 最小化所有窗口
+!stdComShell.SetTime() = 打开日期时间设置
+end intellisense**/