// ==Client Invoke Server Methods Com==
//<script>
var RemoteServerObjectBuilder=function(url,typename,methods)
{
	var undefinedValue;
	
	function CreateXMLDOM()
	{
		try{return new ActiveXObject('MSXML2.DOMDocument');}catch(x){}
		try{return new ActiveXObject('Microsoft.XMLDOM');}catch(x){}
		throw(new Error(-1,'Cant Create XMLDOM'));
	}
	function CreateXMLHTTP()
	{
		try{return new ActiveXObject('MSXML2.XMLHTTP');}catch(x){}
		try{return new ActiveXObject('Microsoft.XMLHTTP');}catch(x){}
		throw(new Error(-1,'Cant Create XMLHTTP'));
	}

	var Code62Chars='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
	var Encode62Codes=new Array(65536);
	function Encode62(ch)
	{
		return Encode62Code(ch.charCodeAt(0))
	}
	function Encode62Code(code)
	{
		var cacheV=Encode62Codes[code];
		if(cacheV)return cacheV;
		var l=code%62;
		var x=code-code%3844;
		var m=(code-x-l)/62;
		var h=x/3844;
		cacheV=Code62Chars.charAt(h)+Code62Chars.charAt(m)+Code62Chars.charAt(l);
		Encode62Codes[code]=cacheV;
		return cacheV;
	}
	function Decode62(str)
	{
		var h=Code62Chars.indexOf(str.charAt(0));
		var m=Code62Chars.indexOf(str.charAt(1));
		var l=Code62Chars.indexOf(str.charAt(2));
		return String.fromCharCode(h*3844+m*62+l);
	}
	function SharpEncode(str)
	{
		str=str.replace(/\#/g,'#A');
		str=str.replace(/\$/g,'#B');
		str=str.replace(/\ /g,'#C');
		str=str.replace(/\t/g,'#D');
		str=str.replace(/\r/g,'#E');
		str=str.replace(/\n/g,'#F');


		var ct='';
		var ctl=0;

		var re=/[\u007F-\uFFFF]/;
		do
		{
			var m=re.exec(str);
			if(m==null)break;
			var c=m.input.charAt(m.index)
			var e62=Encode62(c);
			str=str.replace(new RegExp(c,'g'),'#'+ctl.toString(16)+'$');
			ct+=e62;
			ctl++;
		}
		while(true);
		return ct+'#'+str;
	}

	function CodeEncode(str)
	{
		var res='';
		for(var i=0;i<str.length;i++)
		{
			var c=str.charCodeAt(i).toString(16);
			while(c.length<4)c='0'+c;
			res+='\\u'+c;
		}
		return res;
	}
	function MakeToString(obj,str)
	{
		if(str==null||str=='null')return;
		obj.toString=new Function('','return \''+CodeEncode(str+'')+'\';');
	}
	function SerializeToElement(e,obj)
	{
		var parsedObjs=[];
		return Serialize(obj,e);
		function Serialize(o,e)
		{
			switch(typeof(o))
			{
			case 'boolean':
			case 'number':
			case 'string':
				e.setAttribute('type',typeof(o));
				e.setAttribute('value',o);
				return;
			case 'object':
				if(o==null)
				{
					e.setAttribute('type','null');
					return;
				}
				switch(o.constructor)
				{
				case Number:
					e.setAttribute('type','number');
					e.setAttribute('value',o);
					return;
				case Boolean:
					e.setAttribute('type','boolean');
					e.setAttribute('value',o);
					return;
				case String:
					e.setAttribute('type','string');
					e.setAttribute('value',o);
					return;
				case Object:
					parsedObjs[parsedObjs.length]=o;
					e.setAttribute('type','complex');
					for(var ppt in o)
					{
						var ov=o[ppt];
						if(typeof(ov)=='function')
							continue;
						var enew=e.ownerDocument.createElement('i');
						enew.setAttribute('p',ppt);
						e.appendChild(enew);
						Serialize(ov,enew);
					}
					return;
				case Array:
					parsedObjs[parsedObjs.length]=o;
					e.setAttribute('type','array');
					for(var i=0;i<o.length;i++)
					{
						var item=o[i];
						var enew=e.ownerDocument.createElement('i');
						e.appendChild(enew);
						Serialize(item,enew);
					}
					return;
				case Date:
					e.setAttribute('type','datetime');
					e.setAttribute('value',o.getTime());
					return;
				default:
					e.setAttribute('type','undefined');
					return;
			}
			default:
				e.setAttribute('type','undefined');
				return;
			}
		}
	}
	function DeserializeElement(e)
	{
		var value=e.getAttribute('value');
		switch(e.getAttribute('type'))
		{
		case 'string':
			return e.getAttribute('value');
		case 'boolean':
			return value=='True'||value=='true'||value=='1'||value=='-1';
		case 'number':
			return parseFloat(value);
		case 'datetime':
			var date=new Date(parseInt(value));
			date.ticks=e.getAttribute('ticks');
			return date;
		case 'array':
			var arr=new Array();
			with(new Enumerator(e.selectNodes('*')))
			for(;!atEnd();moveNext())
			{
				arr[arr.length]=DeserializeElement(item());
			}
			return arr;
		case 'complex':
			var obj=new Object();
			var str=e.getAttribute('tostring');
			if(str!=null)MakeToString(obj,str);
			with(new Enumerator(e.selectNodes('*')))
			for(;!atEnd();moveNext())
			{
				obj[item().getAttribute('p')]=DeserializeElement(item());
			}
			return obj;
		case 'null':
			return null;
		case 'undefined':
			return undefinedValue;
		default:
			throw(new Error(-1,'unknown type:'+e.getAttribute('type')));
		}
	}
	
	return CreateObject();
	function CreateObject()
	{
		function RaneObject()
		{
		}
		function RaneObject.Vars()
		{
		}
		function RaneObject.SetClientVar(name,value)
		{
			if(typeof(value)=='undefined')value=null;
			if(value!==null)value=value+'';
			RaneObject.Vars[name]=value;
		}
		function RaneObject.GetClientVar(name)
		{
			return RaneObject.Vars[name]
		}
		function RaneObject.GetServerVar(name)
		{
			return RaneObject.GetServerVar[name];
		}
		
		with(new Enumerator(methods))
		for(;!atEnd();moveNext())
			RaneObject[item()]=CreateMethod(item());
			
		return RaneObject;
		function CreateMethod(methodname)
		{
			return Method;
			function Method()
			{
				return Method.CreateCall().Invoke(Method.arguments);
			}
			function Method.Vars()
			{
			}
			function Method.SetClientVar(name,value)
			{
				if(typeof(value)=='undefined')value=null;
				if(value!==null)value=value+'';
				Method.Vars[name]=value;
			}
			function Method.GetClientVar(name)
			{
				return Method.Vars[name]
			}
			function Method.GetServerVar(name)
			{
				return Method.GetServerVar[name];
			}
			
			function Method.GetName()
			{
				return methodname;
			}
			function Method.GetObject()
			{
				return RaneObject;
			}
			
			function Method.CreateCall(func,errhandler,finalyhandler)
			{
				var calling=false;
				var xhrequest=null;

				if(func&&typeof(func)!='function')throw(new Error(-1,'arguments of CreateCall must be function'));

				Call.Execute=Call;
				return Call;
				function Call()
				{
					return Call.Invoke(Call.arguments);
				}
				function Call.Vars()
				{
				}
				function Call.SetClientVar(name,value)
				{
					if(typeof(value)=='undefined')value=null;
					if(value!==null)value=value+'';
					Call.Vars[name]=value;
				}
				function Call.GetClientVar(name)
				{
					return Call.Vars[name]
				}
				function Call.GetServerVar(name)
				{
					return Call.GetServerVar[name];
				}
				
				function Call.GetMethod()
				{
					return Method;
				}
				function Call.Invoke(args)
				{
					Call.Arguments=args;
					if(func)
						return InvokeAsync(args);
					return InvokeSync(args);
				}
				function InvokeSync(args)
				{
					ParseResponse(SendXMLHTTP(args,false));
					return Call.Result;
				}
				function InvokeAsync(args)
				{
					if(calling)
						throw(new Error(-1,'Method.Call object is using '));
					calling=true;
					xhrequest=SendXMLHTTP(args,true);
					xhrequest.onreadystatechange=xhrequest_onreadystatechange;
					return Call;
				}
				function xhrequest_onreadystatechange()
				{
					if(xhrequest==null)return;
					if(xhrequest.readyState!=4)
						return;
					var xh=xhrequest;
					xhrequest=null;
					calling=false;
					var skiperrhandler=false;
					try
					{
						ParseResponse(xh,Method,Call);
						skiperrhandler=true;						
						func(Call.Result,Call);
					}
					catch(x)
					{
						Call.Error=x;
						if(errhandler&&!skiperrhandler)
							errhandler(x,Call);
						else
							throw(x);					
					}
					finally
					{
						if(finalyhandler)
							finalyhandler(Call);
					}
				}
				function SendXMLHTTP(args,async)
				{
					var xd=CreateXMLDOM();
					xd.loadXML('<rane><request/></rane>');
					var xe=xd.documentElement.firstChild;
					for(var i=0;i<args.length;i++)
					{
						var e=xd.createElement('arg');
						SerializeToElement(e,args[i]);
						xe.appendChild(e);
					}
					SetArg(RaneObject);
					SetArg(Method);
					SetArg(Call);
					function SetArg(o)
					{
						o=o.Vars;
						for(var n in o)
						{
							var v=o[n];
							if(typeof(v)!='string')continue;
							var e=xd.createElement('var');
							e.setAttribute('name',n);
							e.setAttribute('value',v);
							xe.appendChild(e);
						}
					}
					//alert(xd.xml);
					var str=SharpEncode(xd.xml);
					var xh=CreateXMLHTTP();				
					xh.open('POST',url+'?type=invoke&rand='+new Date().getTime()+'-'+Math.random(),async);
					xh.setRequestHeader('ranetype',typename);
					xh.setRequestHeader('ranemethod',methodname);
					xh.send(str);					
					return xh;
				}
				function ParseResponse(xh)
				{
					if(xh.status!=200)
						throw(new Error(xh.status,'network error :'+xh.status+':'+xh.statusText+':\n'+xh.responseText));
					var xd=CreateXMLDOM();
					xd.load(xh.responseXML);//alert(xd.xml);
					if(xd.parseError.errorCode)
						throw(new Error(-1,'Response error:'+xd.parseError.reason+':\n'+xh.responseText));
					var resElement=xd.documentElement.selectNodes('*').item(0);
					if(resElement.tagName=='exception')
					{
						var er=new Error(-1,'');
						er.type=resElement.getAttribute('type');
						er.message=resElement.getAttribute('message');
						er.stacktrace=resElement.getAttribute('stacktrace');
						er.description='server side '+er.type+':\n'+resElement.text;
						er.method=Method;
						er.call=Call;
						throw(er);
					}

					Call.Result=DeserializeElement(resElement.selectNodes('result').item(0));
					var nlargs=resElement.selectNodes('arg');
					for(var i=0;i<nlargs.length;i++)
					{
						var argx=DeserializeElement(nlargs.item(i));
						if(typeof(argx)!='undefined')
						{
							Call.Arguments[i]=argx;
						}
					}
					var nlvars=resElement.selectNodes('var');
					for(var i=0;i<nlvars.length;i++)
					{
						var varx=nlvars[i];
						var n=varx.getAttribute('name');
						var v=varx.getAttribute('value');
						Call.GetServerVar[n]=v;
						Method.GetServerVar[n]=v;
						RaneObject.GetServerVar[n]=v;
					}
				}
			}
		}
	}
}
//</script>