aview-app 1.0.2

package/aardio/lib/inet/httpFile.aardio

@@ -0,0 +1,312 @@
+//httpFile 断点续传
+import fsys;
+import inet.http;
+namespace inet
+
+class httpFile {
+
+     ctor( url,path,resumePath,...){ 
+     	if( !#path ) error("请指定保存路径",2);
+     	
+     	this.url = url; 
+     	this.path = path;
+     	this.resumePath = resumePath;  
+     	this.session = ..inet.http( ... );
+     	this.session.disableCache();
+		var readBuffer; 
+     };
+     close = function(){
+     	if( this.session ){
+     		this.session.close();
+     		this.session = null;
+     	}
+     };
+     download = function( headers,referer,accept,flags,postData,test){
+        this.complete = false;
+         
+        if(!flags) flags = 0;
+        flags = flags | 0x8000 | 0x4000/*_INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS*/; 
+        this.url =  this.session.location(this.url,postData?"POST":"GET",postData,headers,referer,accept,flags);
+     	
+     	var path = this.path;
+     	if( ..fsys.isDir(path)  
+     		||  ..fsys.path.eofBackslash(path) 
+     		|| !(  ..io.exist(path)  ||  ..string.match(path,"\.[^\\/.]+$")  ) 
+     		){ 
+     		
+     		if(!this.filename){
+     			if( this.session.headEx(this.url,postData?"POST":"GET",postData,headers,referer,accept,flags) ){
+     				this.filename = this.session.readHeaderContent()[["disposition"]][["filename"]];
+     			}
+     			
+     			if(!this.filename) this.filename = ..inet.url.getFileName(this.url);
+     		}
+     		
+     		path = ..io.joinpath(  path,this.filename );
+     	}
+     	else {
+     		this.filename = ..io.splitpath(path).file;
+     	}
+     	
+     	this.path = ..io.fullpath(path);
+     	
+     	if( ! ..fsys.createParentDir(path) ){
+     		return null,"创建存储目录失败";
+     	}
+     	
+     	var resumePath = this.resumePath;
+		if(!resumePath){ 
+			resumePath  = ..io.exist( path + ".dowload" ) || path + ".dow!oad" ;
+		}
+		elseif( ..fsys.isDir(resumePath)  ||  !(  ..io.exist(resumePath)  ||  ..string.match(resumePath,"\.[^\\/.]+$")  ) ){
+			resumePath = ..fsys.joinpath(resumePath,..io.splitpath(path).name + ".dow!oad");
+		}
+		this.resumePath = resumePath;
+		
+     	this.modified = false;  
+		var method = postData?"POST":"GET"
+		
+		var fileSize = 0;
+		if(!test){
+			this.file = ..io.open(path,"a+b",0x10 /* _SH_DENYRW */)
+			if(!this.file) return null,'创建文件失败,请指定正确的存储路径';
+				
+			this.file.seek("end")
+			fileSize = this.file.seek();	
+		}
+		else {
+			this.file = ..io.open(path,"rb",0x10 /* _SH_DENYRW */)
+			if(this.file){
+				this.file.seek("end")
+				fileSize = this.file.seek();
+				this.file.close();
+				this.file = null;
+			}
+		}
+		
+		var rangeInfoOld;
+		
+		var http = this.session;
+		if(!http.beginRequest(this.url,method,referer,accept,flags) ){
+			if(!test) this.file.close();
+			return null,"请求失败";
+		}
+		http.writeHeader(headers)
+		
+		if( fileSize > 0 ) {
+    		if( ..io.exist(resumePath,4) ) {
+    			var content = ..string.load( resumePath );
+    			if( content ){
+     				rangeInfoOld = eval( content ) ;
+     				
+     				if( fileSize === rangeInfoOld.contentLength ) { //修正:12030错误
+     					var ok,err,errCode  = http.send(postData)  ;
+     					if(!ok){
+							if(!test) this.file.close(); 
+							http.endRequest();
+							return null,err,errCode;
+						}
+     				 
+						var rangeInfoNew = http.readHeaderRange();
+
+						var modified = true;
+						if(#rangeInfoNew.eTag) modified =  (rangeInfoNew.eTag != rangeInfoOld.eTag); 
+						else modified = rangeInfoNew.lastModified != rangeInfoOld.lastModified;
+						
+						if( !modified ){
+							if(!test) this.file.close();
+							http.endRequest();
+							this.contentLength = fileSize;
+							this.complete = true;
+							return true,"已下载完成, 无须重新下载!",fileSize;
+						}
+						
+						http.endRequest();
+						if(!http.beginRequest(this.url,method,referer,accept,flags) ){
+							if(!test) this.file.close(); 
+							return null,"请求失败";
+						}
+						http.writeHeader(headers)
+     				}
+     				else {
+     					//if( rangeInfoOld.acceptRanges ? ..string.cmp( rangeInfoOld.acceptRanges,"bytes" ) == 0 ) {
+     					http.writeHeaderRange(rangeInfoOld,fileSize) 
+     					//}
+     				}
+     			}
+    		}
+		}  
+		 
+		var ok; 
+		ok,err,errCode  = http.send(postData)  
+
+		if(!ok){
+			if(!test) this.file.close(); 
+			http.endRequest();
+			return null,err,errCode
+		} 
+		this.statusCode = err;
+		this.contentLength = errCode;
+			
+		//保存一次断点续传配置
+		var rangeInfoNew = http.readHeaderRange();
+	 
+		if( this.statusCode == 200 ){
+			//如果需要重新下载,存储相关信息,清除原来的文件 
+			if( fileSize>0 && rangeInfoOld ){ 
+				var modified = true;
+				if(#rangeInfoNew.eTag) modified =  (rangeInfoNew.eTag != rangeInfoOld.eTag); 
+				else modified = rangeInfoNew.lastModified != rangeInfoOld.lastModified;
+
+				if(/* ! this.contentLength || */ 
+					!modified && ( this.contentLength == fileSize) ){
+					if(!test) this.file.close()  
+					http.endRequest();
+					this.contentLength = fileSize;
+					this.complete = true;
+     				return true,"已下载完成, 无须重新下载!",fileSize
+     			}
+			} 
+
+			this.modified = true;
+			if( test  ){  
+				http.endRequest();
+				return false/*需要下载*/;
+			}
+
+			if(fileSize!=0){
+				this.file.close();
+				this.file = ..io.open(path,"w+b",0x10 /* _SH_DENYRW */);
+				if(!this.file) return null,'创建文件失败,请指定正确的存储路径';
+				fileSize = 0;
+			}
+			rangeInfoNew.contentLength = this.contentLength;
+		} 
+		elseif( this.statusCode == 206 ) { 
+			rangeInfoNew.contentLength = this.contentLength + fileSize
+			if( test  ){ 
+				http.endRequest();
+				return false/*需要续传*/;
+			}
+		}
+		elseif( this.statusCode == 412 ){
+			//precondition failed,文件已变更
+			if(!test) this.file.close(); 
+			http.endRequest();
+			this.removeResumeFile();
+			this.modified = true;
+			if( test  ){ return false/*需要重新下载*/;}
+			return this.download( headers,referer,accept,flags,postData); 
+		} 
+		elseif( this.statusCode == 416 ){
+			if(!test) this.file.close();
+			http.endRequest();
+			if( fileSize>0 && rangeInfoOld ){ 
+				this.contentLength = fileSize;
+				this.complete = true;
+				return true,"已下载完成, 无须重新下载!",fileSize
+     		}
+     		return null,"下载遇到错误, HTTP状态码:" + this.statusCode;
+		} 
+		else {
+			if(!test) this.file.close();
+			http.endRequest();
+			return null,"下载遇到错误, HTTP状态码:" + this.statusCode;
+		}
+		
+		this.totalContentLength = rangeInfoNew.contentLength; 
+		..fsys.attrib(resumePath,2);
+		..string.save(resumePath,(..table.tostring(rangeInfoNew)) );
+		..fsys.attrib(resumePath,,2); 
+		
+		if( this.onReceiveBegin ){
+    		var ret = this.onReceiveBegin( this.statusCode,this.contentLength,fileSize  )
+    		if( ( ret!==null) && ( !ret ) ){ 
+    			this.file.close();
+    			http.endRequest();
+    			return null,"下载已取消";
+    		}
+    	}
+
+    	if(this.onReceive){	 
+    		var total = this.contentLength;
+    		var bufferSize = this.bufferSize;
+    		if( ( !bufferSize) || ( bufferSize <= 0 ) ){
+    			bufferSize = 1024 * 128;
+    		}
+    		
+    		var readBuffer = this.readBuffer;
+    		if( #readBuffer < bufferSize ){
+    			readBuffer = ..raw.buffer( bufferSize );
+    			this.readBuffer = readBuffer;
+    		}
+    		
+			for( readSize in http.eachReadBuffer(readBuffer,bufferSize) ){ 
+				this.file.writeBuffer(readBuffer,readSize)
+				if( this.onReceive( readBuffer,readSize,total ) === false ){
+					this.file.flush();
+    				this.file.close();
+    				http.endRequest();
+    				return false;
+    			}
+			}
+		}
+		else { 
+			for(str,size in http.eachRead() ){ 
+				this.file.write(str)
+			}  
+		} 
+
+		this.file.flush();
+		this.file.seek("set");
+		
+		var fileSize = this.file.size();
+		this.complete = (this.totalContentLength === null) : ( this.totalContentLength == fileSize );
+		this.contentLength = this.totalContentLength : fileSize;
+		this.file.close();
+		http.endRequest(); 
+		
+		return this.complete,,this.contentLength;
+     }
+     removeResumeFile = function(){
+         if(this.resumePath){
+         	..io.remove(this.resumePath);
+         	this.resumePath = null;
+         }
+     };
+     test = function( headers,referer,accept,flags,postData){
+     	return this.download( headers,referer,accept,flags,postData,true);
+     };
+     isModified = function(){ 
+		return this.download( headers,referer,accept,flags,postData,true) === false;
+     } 
+} 
+
+/**intellisense()
+inet.httpFile = 下载文件,支持断点续传
+inet.httpFile(.(URL,存储路径,配置文件路径,userAgent,proxy,->->->) = 存储路径如果是目录则必须以反斜杠结尾,\n存储路径如果是目录或者未指定后缀名,则尝试自动获取文件名\n配置文件可指定目录,也可以是文件路径（必须指定后缀名）\n如果不指定配置文件路径,则指定为存储路径 + ".dow!oad"\n其他可选参数用于创建http对象,参考inet.http构造函数说明
+inet.httpFile() = !inet_file.
+?inet.file() = !inet_file.
+!inet_file.complete = 是否下载完成
+!inet_file.close() = 关闭连接
+!inet_file.session = HTTP连接对象\n!inet_http.
+!inet_file.resumePath = 续传文件路径,\n可在调用download函数以前修改
+!inet_file.path = 存储路径,\n可在调用download函数以前修改
+!inet_file.filename = 存储文件名,\n仅在存储路径为目录时有效,\n可在调用download函数以前修改,\n如果未指定则在调用 test 或 download 函数时自动获取
+!inet_file.test(.(HTTP头,引用网址,accept,flags,postData) = 检测是否已下载最新文件\n已下载文件未变更返回true\n需要下载或续传返回false,下载错误返回null以及错误信息
+!inet_file.download(.(HTTP头,引用网址,accept,flags,postData) = 下载文件,所有参数都是可选参数.\n下载成功返回true,\n文件已下载成功无需重新下载返回true,错误信息,\n下载失败返回null以及错误信息\n取消返回false,无错误信息\n\n可通过complete属性检测本次下载文件是否成功 
+!inet_file.statusCode = HTTP状态码
+!inet_file.bufferSize = 缓冲区大小\n不指定则默认为128KB
+!inet_file.contentLength = 需要下载的文件长度\n如果文件长度为零,并且modified属性为false,表示不需要重新下载\ndownload函数返回值为 true 则 contentLength 表示已下载文件总长度
+!inet_file.onReceive = @.onReceive = function(buffer,readSize,contentLength){
+	
+}
+!inet_file.onReceiveBegin = @.onReceiveBegin = function(statusCode,contentLength,fileSize){
+	if( statusCode == 206/*断点续传*/ ){
+		 __
+	}
+}
+!inet_file.removeResumeFile() = 移除断点续传配置文件
+!inet_file.isModified() = 检测已下载的文件在服务器上是否已被修改,\n 该函数会调用 download() 进行测试(不会启动下载)
+!inet_file.modified = 文件是否己更新
+end intellisense**/

package/aardio/lib/inet/httpStatusCode.aardio

@@ -0,0 +1,143 @@
+//httpStatusCode HTTP状态码
+namespace inet.httpStatusCode;
+	
+..table.assign( self, {
+	[100]="提示/客户端应继续请求";
+	[101]="提示/切换协议";
+	[200]="已成功";
+	[201]="已成功/创建资源";
+	[202]="已成功/接受请求";
+	[203]="已成功/非权威信息";
+	[204]="已成功/无内容";
+	[205]="已成功/重置内容";
+	[206]="已成功/断点续传部分内容";
+	[300]="重定向/多项选择";
+	[301]="重定向/永久移动地址";
+	[302]="重定向/已找到地址";
+	[303]="重定向/参见其他";
+	[304]="重定向/未修改使用缓存";
+	[305]="重定向/需使用代理";
+	[306]="重定向/未使用";
+	[307]="重定向/临时";
+	[400]="客户端错误/错误请求";
+	[401]="客户端错误/未授权";
+	[402]="客户端错误/需付费";
+	[403]="客户端错误/禁止访问";
+	[404]="客户端错误/未找到";
+	[405]="客户端错误/错误的指令动词";
+	[406]="客户端错误/拒绝请求";
+	[407]="客户端错误/要求代理认证";
+	[408]="客户端错误/请求超时";
+	[409]="客户端错误/冲突";
+	[410]="客户端错误/已删除";
+	[411]="客户端错误/未指定长度";
+	[412]="客户端错误/未满足前提条件";
+	[413]="客户端错误/请求实体太大";
+	[414]="客户端错误/请求地址太长";
+	[415]="客户端错误/不支持的媒体类型";
+	[416]="客户端错误/错误的字节区段";
+	[417]="客户端错误/预期结果失败";
+	[451]="客户端错误/法律原因禁止访问";
+	[500]="服务器错误/内部错误";
+	[501]="服务器错误/未实现";
+	[502]="服务器错误/网关故障";
+	[503]="服务器错误/无效服务";
+	[504]="服务器错误/网关超时";
+	[505]="服务器错误/不支持的HTTP协议版本"
+} )
+
+en = {
+	[100] = "Continue";
+	[101] = "Switching Protocols";
+	[200] = "OK";
+	[201] = "Created";
+	[202] = "Accepted";
+	[203] = "Non-Authoritative Information";
+	[204] = "No Content";
+	[205] = "Reset Content";
+	[206] = "Partial Content";
+	[300] = "Multiple Choices";
+	[301] = "Moved Permanently";
+	[302] = "Moved Temporarily";
+	[303] = "See Other";
+	[304] = "Not Modified";
+	[305] = "Use Proxy";
+	[307] = "Redirect Keep Verb";
+	[400] = "Bad Request";
+	[401] = "Unauthorized";
+	[402] = "Payment Required";
+	[403] = "Forbidden";
+	[404] = "Not Found";
+	[405] = "Bad Request";
+	[406] = "Not Acceptable";
+	[407] = "Proxy Authentication Required";
+	[408] = "Request Timed-Out";
+	[409] = "Conflict";
+	[410] = "Gone";
+	[411] = "Length Required";
+	[412] = "Precondition Failed";
+	[413] = "Request Entity Too Large";
+	[414] = "Request, URI Too Large";
+	[415] = "Unsupported Media Type";
+	[416] = "Requested Range not satisfiable";
+	[417] = "Expectation failed";
+	[451] = "Unavailable For Legal Reason";
+	[500] = "Internal Server Error";
+	[501] = "Not Implemented";
+	[502] = "Bad Gateway";
+	[503] = "Server Unavailable";
+	[504] = "Gateway Timed-Out";
+	[505] = "HTTP Version not supported";
+}
+
+format = function(status){
+	if( type(status) == "string" ) return status;
+	status = ..math.floor(status);
+	return ..string.format("%d %s",status,en[status])
+}
+
+/**intellisense(inet.httpStatusCode) 
+continue=@100/*continue*/
+switchingProtocols=@101/*switchingProtocols*/
+ok=@200/*ok*/
+created=@201/*created*/
+accepted=@202/*accepted*/
+non=@203/*non*/-AuthoritativeInformation;
+noContent=@204/*noContent*/
+resetContent=@205/*resetContent*/
+partialContent=@206/*partialContent*/
+multipleChoices=@300/*multipleChoices*/
+movedPermanently=@301/*movedPermanently*/
+found=@302/*found*/
+seeOther=@303/*seeOther*/
+notModified=@304/*notModified*/
+useProxy=@305/*useProxy*/
+useProxy=@306/*Unused*/ 
+temporaryRedirect=@307/*temporaryRedirect*/
+badRequest=@400/*badRequest*/
+unauthorized=@401/*unauthorized*/
+paymentRequired=@402/*paymentRequired*/
+forbidden=@403/*forbidden*/
+notFound=@404/*notFound*/
+methodNotAllowed=@405/*methodNotAllowed*/
+notAcceptable=@406/*notAcceptable*/
+proxyAuthenticationRequired=@407/*proxyAuthenticationRequired*/
+requestTimeout=@408/*requestTimeout*/
+conflict=@409/*conflict*/
+gone=@410/*gone*/
+lengthRequired=@411/*lengthRequired*/
+preconditionFailed=@412/*preconditionFailed*/
+requestEntityTooLarge=@413/*requestEntityTooLarge*/
+request=@414/*request*/-URITooLong;
+unsupportedMediaType=@415/*unsupportedMediaType*/
+requestedRangeNotSatisfiable=@416/*requestedRangeNotSatisfiable*/
+expectationFailed=@417/*expectationFailed*/
+internalServerError=@500/*internalServerError*/
+notImplemented=@501/*notImplemented*/
+badGateway=@502/*badGateway*/
+serviceUnavailable=@503/*serviceUnavailable*/
+gatewayTimeout=@504/*gatewayTimeout*/
+httpVersionNotSupported=@505/*httpVersionNotSupported*/
+en[__] = 状态码英文描述
+format(__) = 状态码数值转为文本
+end intellisense**/

package/aardio/lib/inet/installer.aardio

@@ -0,0 +1,76 @@
+//installer 安装程序
+import inet.downBox;
+import process;
+		
+namespace inet;
+
+class installer{
+	ctor( appName,url,parameters,savePath,winform,operation){
+		if(!savePath){
+			savePath = ..io.appData("aardio/inet/installer/");
+		}
+		
+		if(type(url)==type.table){
+			url = _WIN_64 ? url.x64 : url.x86;
+		}
+		
+		if(_WINXP && operation === null ){
+			operation = "open"
+		}
+		
+		var downBox = ..inet.downBox(winform : ..win.getActive(),"正在下载程序运行必需组件：" + appName,100) 
+		downBox.endProc = function(){ 
+			downBox.text = "安装本程序运行必需组件：" + appName;  
+			
+			if(operation=="open") downBox.labInfo.text = "正在启动 " + appName + " 安装程序 ……"; 
+			else downBox.labInfo.text = "请允许 " + appName + " 安装程序以管理权限启动  ……"; 
+			
+			downBox.labProgress.text = ""; 
+
+			downBox.progress.setProgressRange(0,100) 
+			
+			var prcs,err; 
+			if(..string.endWith(downBox.savePath,".msi",true)){
+				parameters = `/i "` + downBox.savePath + `" ` + (parameters : "/quiet /qn /passive /norestart") ; 
+				prcs,err = ..process.shell("msiexec.exe",parameters,operation:"runas",,,downBox[["hwnd"]]);
+			}
+			elseif(..string.endWith(downBox.savePath,".msu",true)){
+				parameters = `"` + downBox.savePath + `" ` + (parameters : "/quiet /norestart") ; 
+				prcs,err = ..process.shell("wusa.exe",parameters,operation:"runas",,,downBox[["hwnd"]]);
+			}
+			else {
+				prcs,err = ..process.shell(downBox.savePath,parameters,operation:"runas",,,downBox[["hwnd"]]);
+			} 
+			
+			if(prcs){ 
+				downBox.labInfo.text = "正在安装，请稍候数分钟 ……" 
+				downBox.labProgress.text = "如果安全软件阻止安装，请选择「允许全部操作」"; 
+				downBox.progress.startProgress();  
+	
+				prcs.waitOne();
+				prcs.free();
+				
+				::Kernel32.MoveFileEx(this.savePath,null,0x4/*_MOVEFILE_DELAY_UNTIL_REBOOT*/)
+			}
+			else {
+				downBox.labInfo.text = "启动安装时遇到错误" 
+				downBox.labProgress.text = ..string.replace(err:"","[\r\n]",""); 
+				downBox.progress.hide = false;
+				downBox.complete = false;
+			}
+		} 
+	
+		downBox.download(url,savePath);  
+		return downBox.complete ? downBox.savePath;
+	}; 
+}
+
+installer.asInvoker = function(appName,url,parameters,savePath,winform){
+	return ..inet.installer(appName,url,parameters,savePath,winform,"open");
+}
+
+/**intellisense()
+inet.installer( = 下载并启动安装程序\n通常启动安装程序加上 /? 参数可以查看该安装程序支持的参数
+inet.installer(.(appName,url,parameters,savePath,winform) = 下载并启动安装程序,以管理权限启动安装,\n@appName 参数下载窗口标题显示的应用程序名,\n@url 参数为下载地址,允许传入一个动态返回 url 的线程函数,\n@url 参数也可以传入一个表,使用x64,x86键值分别指定64位、32位系统下载网址，\n@parameters 参数为运行安装程序的参数,可选参数,\n@savePath 参数为存储路径,可选参数,\n@winform 用于指定父窗口,可选参数\n用户阻止安装程序以管理权限启动返回false,成功启动并关闭返回true\n返回true并不表明安装过程中没有出错
+inet.installer.asInvoker(.(appName,url,parameters,savePath,winform) = 下载并启动安装程序,以当前进程权限启动安装,\n@appName 参数下载窗口标题显示的应用程序名,\n@url 参数为下载地址,允许传入一个动态返回 url 的线程函数,\n@parameters 参数为运行安装程序的参数,可选参数,\n@savePath 参数为存储路径,可选参数,\n@winform 用于指定父窗口,可选参数\n安装程序未正常启动返回false,成功启动并关闭返回true\n返回 true 并不表明安装过程中没有出错
+end intellisense**/

package/aardio/lib/inet/mac.aardio

@@ -0,0 +1,49 @@
+//mac 地址
+import fsys.file;
+import inet.adapter; 
+import wsock.tcp.client;
+
+namespace inet.mac;
+getPermanentAddress = function(adapterName){
+	if(!adapterName) error("请使用参数@1指定网卡ID",2);
+	var permanentMac;
+	var file = ..fsys.file("\\.\"+adapterName,"r+")
+
+    if( file ){
+    	var address = { BYTE permanentAddress[6] };
+    	if( file.deviceIoControl(
+    		0x00170002/*_IOCTL_NDIS_QUERY_GLOBAL_STATS*/,{ int n = 0x01010101/*_PERMANENT_ADDRESS*/},address
+    	) ){
+    		var a = address.permanentAddress;
+			permanentMac = ..string.format("%02X-%02X-%02X-%02X-%02X-%02X", a[1],a[2],a[3],a[4],a[5],a[6] )
+    	}
+
+    	file.close()
+    }
+    return permanentMac;
+}
+	
+getAddress = function(host,port){
+	if(!host) error("请使用参数@1指定主机",2);
+	
+	var c = ..wsock.tcp.client();
+	if( ! c.connect(host,port : 80) ){
+		return;
+	}
+	var ip = c.getLocalIp()
+	c.close()
+	 
+	for adptInfo in ..inet.adapter.each() {  
+		for( addrInfo in adptInfo.ipAddressList.eachAddress() ){
+			if( ip == addrInfo.ipAddress ){
+    			return adptInfo.mac,getPermanentAddress(adptInfo.adapterName);
+			} 
+		}  
+	}
+}
+
+/**intellisense(inet)
+mac = Media Access Control
+mac.getPermanentAddress(.("网卡ID") = 返回硬件MAC - OID_802_3_PERMANENT_ADDRESS
+mac.getAddress(.("IP或域名",端口) = 返回当前联网目标主机的网卡的MAC地址\n返回值1为 OID_802_3_CURRENT_ADDRESS,\n返回值2为硬件MAC,即OID_802_3_PERMANENT_ADDRESS\n无法连接目标主机返回空值
+end intellisense**/