<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of exceptions" rel=Appendix href="index_exceptions.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of class methods" rel=Appendix href="index_methods.html"> <link title="Index of class types" rel=Appendix href="index_class_types.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Index of module types" rel=Appendix href="index_module_types.html"> <link title="CSS" rel="Chapter" href="CSS.html"> <link title="Dom" rel="Chapter" href="Dom.html"> <link title="Dom_events" rel="Chapter" href="Dom_events.html"> <link title="Dom_html" rel="Chapter" href="Dom_html.html"> <link title="Event_arrows" rel="Chapter" href="Event_arrows.html"> <link title="File" rel="Chapter" href="File.html"> <link title="Firebug" rel="Chapter" href="Firebug.html"> <link title="Form" rel="Chapter" href="Form.html"> <link title="Js" rel="Chapter" href="Js.html"> <link title="Json" rel="Chapter" href="Json.html"> <link title="Lwt_js" rel="Chapter" href="Lwt_js.html"> <link title="Lwt_js_events" rel="Chapter" href="Lwt_js_events.html"> <link title="Regexp" rel="Chapter" href="Regexp.html"> <link title="Typed_array" rel="Chapter" href="Typed_array.html"> <link title="Url" rel="Chapter" href="Url.html"> <link title="WebGL" rel="Chapter" href="WebGL.html"> <link title="XmlHttpRequest" rel="Chapter" href="XmlHttpRequest.html"><title>XmlHttpRequest</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> readyState = <span class="constructor">UNSENT</span> <span class="keywordsign">|</span> <span class="constructor">OPENED</span> <span class="keywordsign">|</span> <span class="constructor">HEADERS_RECEIVED</span> <span class="keywordsign">|</span> <span class="constructor">LOADING</span> <span class="keywordsign">|</span> <span class="constructor">DONE</span><br> <span class="keyword">class</span> <span class="keyword">type</span> xmlHttpRequest =<br> <span class="keyword">object</span> (<span class="keywordsign">'</span>a)<br> <span class="keyword">method</span> _open :<br> <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="keywordsign">-></span> <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="keywordsign">-></span> bool <span class="constructor">Js</span>.t <span class="keywordsign">-></span> unit <span class="constructor">Js</span>.meth<br> <span class="keyword">method</span> _open_full :<br> <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="keywordsign">-></span><br> bool <span class="constructor">Js</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="constructor">Js</span>.opt <span class="keywordsign">-></span> <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="constructor">Js</span>.opt <span class="keywordsign">-></span> unit <span class="constructor">Js</span>.meth<br> <span class="keyword">method</span> abort : unit <span class="constructor">Js</span>.meth<br> <span class="keyword">method</span> getAllResponseHeaders : <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="constructor">Js</span>.meth<br> <span class="keyword">method</span> getResponseHeader :<br> <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="keywordsign">-></span> <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="constructor">Js</span>.opt <span class="constructor">Js</span>.meth<br> <span class="keyword">method</span> onabort :<br> (<span class="keywordsign">'</span>a <span class="constructor">Js</span>.t, <span class="keywordsign">'</span>a <span class="constructor">File</span>.progressEvent <span class="constructor">Js</span>.t) <span class="constructor">Dom</span>.event_listener<br> <span class="constructor">Js</span>.writeonly_prop<br> <span class="keyword">method</span> onerror :<br> (<span class="keywordsign">'</span>a <span class="constructor">Js</span>.t, <span class="keywordsign">'</span>a <span class="constructor">File</span>.progressEvent <span class="constructor">Js</span>.t) <span class="constructor">Dom</span>.event_listener<br> <span class="constructor">Js</span>.writeonly_prop<br> <span class="keyword">method</span> onload :<br> (<span class="keywordsign">'</span>a <span class="constructor">Js</span>.t, <span class="keywordsign">'</span>a <span class="constructor">File</span>.progressEvent <span class="constructor">Js</span>.t) <span class="constructor">Dom</span>.event_listener<br> <span class="constructor">Js</span>.writeonly_prop<br> <span class="keyword">method</span> onloadend :<br> (<span class="keywordsign">'</span>a <span class="constructor">Js</span>.t, <span class="keywordsign">'</span>a <span class="constructor">File</span>.progressEvent <span class="constructor">Js</span>.t) <span class="constructor">Dom</span>.event_listener<br> <span class="constructor">Js</span>.writeonly_prop<br> <span class="keyword">method</span> onloadstart :<br> (<span class="keywordsign">'</span>a <span class="constructor">Js</span>.t, <span class="keywordsign">'</span>a <span class="constructor">File</span>.progressEvent <span class="constructor">Js</span>.t) <span class="constructor">Dom</span>.event_listener<br> <span class="constructor">Js</span>.writeonly_prop<br> <span class="keyword">method</span> onprogress :<br> (<span class="keywordsign">'</span>a <span class="constructor">Js</span>.t, <span class="keywordsign">'</span>a <span class="constructor">File</span>.progressEvent <span class="constructor">Js</span>.t) <span class="constructor">Dom</span>.event_listener<br> <span class="constructor">Js</span>.writeonly_prop<br> <span class="keyword">method</span> onreadystatechange :<br> (unit <span class="keywordsign">-></span> unit) <span class="constructor">Js</span>.callback <span class="constructor">Js</span>.writeonly_prop<br> <span class="keyword">method</span> ontimeout :<br> (<span class="keywordsign">'</span>a <span class="constructor">Js</span>.t, <span class="keywordsign">'</span>a <span class="constructor">File</span>.progressEvent <span class="constructor">Js</span>.t) <span class="constructor">Dom</span>.event_listener<br> <span class="constructor">Js</span>.writeonly_prop<br> <span class="keyword">method</span> readyState : <span class="constructor">XmlHttpRequest</span>.readyState <span class="constructor">Js</span>.readonly_prop<br> <span class="keyword">method</span> responseText : <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="constructor">Js</span>.readonly_prop<br> <span class="keyword">method</span> responseXML :<br> <span class="constructor">Dom</span>.element <span class="constructor">Dom</span>.document <span class="constructor">Js</span>.t <span class="constructor">Js</span>.opt <span class="constructor">Js</span>.readonly_prop<br> <span class="keyword">method</span> send : <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="constructor">Js</span>.opt <span class="keywordsign">-></span> unit <span class="constructor">Js</span>.meth<br> <span class="keyword">method</span> send_document : <span class="constructor">Dom</span>.element <span class="constructor">Dom</span>.document <span class="keywordsign">-></span> unit <span class="constructor">Js</span>.meth<br> <span class="keyword">method</span> send_formData : <span class="constructor">Form</span>.formData <span class="constructor">Js</span>.t <span class="keywordsign">-></span> unit <span class="constructor">Js</span>.meth<br> <span class="keyword">method</span> setRequestHeader :<br> <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="keywordsign">-></span> <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="keywordsign">-></span> unit <span class="constructor">Js</span>.meth<br> <span class="keyword">method</span> status : int <span class="constructor">Js</span>.readonly_prop<br> <span class="keyword">method</span> statusText : <span class="constructor">Js</span>.js_string <span class="constructor">Js</span>.t <span class="constructor">Js</span>.readonly_prop<br> <span class="keyword">end</span><br> <span class="keyword">val</span> create : unit <span class="keywordsign">-></span> <span class="constructor">XmlHttpRequest</span>.xmlHttpRequest <span class="constructor">Js</span>.t<br> <span class="keyword">module</span> <span class="constructor">Event</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> typ =<br> <span class="constructor">XmlHttpRequest</span>.xmlHttpRequest <span class="constructor">File</span>.progressEvent <span class="constructor">Js</span>.t <span class="constructor">Dom</span>.<span class="constructor">Event</span>.typ<br> <span class="keyword">val</span> readystatechange :<br> <span class="constructor">XmlHttpRequest</span>.xmlHttpRequest <span class="constructor">Dom</span>.event <span class="constructor">Js</span>.t <span class="constructor">Dom</span>.<span class="constructor">Event</span>.typ<br> <span class="keyword">val</span> loadstart : <span class="constructor">XmlHttpRequest</span>.<span class="constructor">Event</span>.typ<br> <span class="keyword">val</span> progress : <span class="constructor">XmlHttpRequest</span>.<span class="constructor">Event</span>.typ<br> <span class="keyword">val</span> abort : <span class="constructor">XmlHttpRequest</span>.<span class="constructor">Event</span>.typ<br> <span class="keyword">val</span> error : <span class="constructor">XmlHttpRequest</span>.<span class="constructor">Event</span>.typ<br> <span class="keyword">val</span> load : <span class="constructor">XmlHttpRequest</span>.<span class="constructor">Event</span>.typ<br> <span class="keyword">val</span> timeout : <span class="constructor">XmlHttpRequest</span>.<span class="constructor">Event</span>.typ<br> <span class="keyword">val</span> loadend : <span class="constructor">XmlHttpRequest</span>.<span class="constructor">Event</span>.typ<br> <span class="keyword">end</span><br> <span class="keyword">type</span> http_frame = {<br> url : string;<br> code : int;<br> headers : string <span class="keywordsign">-></span> string option;<br> content : string;<br> content_xml : unit <span class="keywordsign">-></span> <span class="constructor">Dom</span>.element <span class="constructor">Dom</span>.document <span class="constructor">Js</span>.t option;<br> }<br> <span class="keyword">exception</span> <span class="constructor">Wrong_headers</span> <span class="keyword">of</span> (int * (string <span class="keywordsign">-></span> string option))<br> <span class="keyword">val</span> perform_raw_url :<br> ?headers:(string * string) list <span class="keywordsign">-></span><br> ?content_type:string <span class="keywordsign">-></span><br> ?post_args:(string * string) list <span class="keywordsign">-></span><br> ?get_args:(string * string) list <span class="keywordsign">-></span><br> ?form_arg:<span class="constructor">Form</span>.form_contents <span class="keywordsign">-></span><br> ?check_headers:(int <span class="keywordsign">-></span> (string <span class="keywordsign">-></span> string option) <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> string <span class="keywordsign">-></span> <span class="constructor">XmlHttpRequest</span>.http_frame <span class="constructor">Lwt</span>.t<br> <span class="keyword">val</span> perform :<br> ?headers:(string * string) list <span class="keywordsign">-></span><br> ?content_type:string <span class="keywordsign">-></span><br> ?post_args:(string * string) list <span class="keywordsign">-></span><br> ?get_args:(string * string) list <span class="keywordsign">-></span><br> ?form_arg:<span class="constructor">Form</span>.form_contents <span class="keywordsign">-></span><br> ?check_headers:(int <span class="keywordsign">-></span> (string <span class="keywordsign">-></span> string option) <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span><br> <span class="constructor">Url</span>.url <span class="keywordsign">-></span> <span class="constructor">XmlHttpRequest</span>.http_frame <span class="constructor">Lwt</span>.t<br> <span class="keyword">val</span> get : string <span class="keywordsign">-></span> <span class="constructor">XmlHttpRequest</span>.http_frame <span class="constructor">Lwt</span>.t<br> <span class="keyword">end</span></code></body></html>