comment puis-je accéder à XHR responseBody (pour des données binaires) à partir de Javascript dans IE?

Oui, la réponse m'est venu pour la lecture de données binaires via XHR dans IE, est d'utiliser VBScript injection. C'était de mauvais goût pour moi au début, mais, moi, je vois juste un navigateur plus dépendants peu de code.
(La régulière XHR et responseText fonctionne très bien dans d'autres navigateurs; vous pouvez avoir à forcer le type mime de XMLHttpRequest.overrideMimeType(). Ce n'est pas disponible sur IE).

C'est comment j'ai obtenu une chose qui fonctionne comme responseText dans IE, même pour des données binaires.
Tout d'abord, injecter quelques VBScript comme une chose une seule fois, comme ceci:

if(/msie/i.test(navigator.userAgent) && !/opera/i.test(navigator.userAgent)) {
    var IEBinaryToArray_ByteStr_Script =
    "<!-- IEBinaryToArray_ByteStr -->\r\n"+
    "<script type='text/vbscript' language='VBScript'>\r\n"+
    "Function IEBinaryToArray_ByteStr(Binary)\r\n"+
    "   IEBinaryToArray_ByteStr = CStr(Binary)\r\n"+
    "End Function\r\n"+
    "Function IEBinaryToArray_ByteStr_Last(Binary)\r\n"+
    "   Dim lastIndex\r\n"+
    "   lastIndex = LenB(Binary)\r\n"+
    "   if lastIndex mod 2 Then\r\n"+
    "       IEBinaryToArray_ByteStr_Last = Chr( AscB( MidB( Binary, lastIndex, 1 ) ) )\r\n"+
    "   Else\r\n"+
    "       IEBinaryToArray_ByteStr_Last = "+'""'+"\r\n"+
    "   End If\r\n"+
    "End Function\r\n"+
    "</script>\r\n";

    //inject VBScript
    document.write(IEBinaryToArray_ByteStr_Script);
}

La JS classe que j'utilise qui lit les fichiers binaires expose une seule méthode intéressante, readCharAt(i), qui lit le caractère (un octet, vraiment) à la i-ième de l'index. C'est la façon dont je l'ai installé:

//see doc on http://msdn.microsoft.com/en-us/library/ms535874(VS.85).aspx
function getXMLHttpRequest() 
{
if (window.XMLHttpRequest) {
return new window.XMLHttpRequest;
}
else {
try {
return new ActiveXObject("MSXML2.XMLHTTP"); 
}
catch(ex) {
return null;
}
}
}
//this fn is invoked if IE
function IeBinFileReaderImpl(fileURL){
this.req = getXMLHttpRequest();
this.req.open("GET", fileURL, true);
this.req.setRequestHeader("Accept-Charset", "x-user-defined");
//my helper to convert from responseBody to a "responseText" like thing
var convertResponseBodyToText = function (binary) {
var byteMapping = {};
for ( var i = 0; i < 256; i++ ) {
for ( var j = 0; j < 256; j++ ) {
byteMapping[ String.fromCharCode( i + j * 256 ) ] =
String.fromCharCode(i) + String.fromCharCode(j);
}
}
//call into VBScript utility fns
var rawBytes = IEBinaryToArray_ByteStr(binary);
var lastChr = IEBinaryToArray_ByteStr_Last(binary);
return rawBytes.replace(/[\s\S]/g,
function( match ) { return byteMapping[match]; }) + lastChr;
};
this.req.onreadystatechange = function(event){
if (that.req.readyState == 4) {
that.status = "Status: " + that.req.status;
//that.httpStatus = that.req.status;
if (that.req.status == 200) {
//this doesn't work
//fileContents = that.req.responseBody.toArray(); 
//this doesn't work
//fileContents = new VBArray(that.req.responseBody).toArray(); 
//this works...
var fileContents = convertResponseBodyToText(that.req.responseBody);
fileSize = fileContents.length-1;
if(that.fileSize < 0) throwException(_exception.FileLoadFailed);
that.readByteAt = function(i){
return fileContents.charCodeAt(i) & 0xff;
};
}
if (typeof callback == "function"){ callback(that);}
}
};
this.req.send();
}
//this fn is invoked if non IE
function NormalBinFileReaderImpl(fileURL){
this.req = new XMLHttpRequest();
this.req.open('GET', fileURL, true);
this.req.onreadystatechange = function(aEvt) {
if (that.req.readyState == 4) {
if(that.req.status == 200){
var fileContents = that.req.responseText;
fileSize = fileContents.length;
that.readByteAt = function(i){
return fileContents.charCodeAt(i) & 0xff;
}
if (typeof callback == "function"){ callback(that);}
}
else
throwException(_exception.FileLoadFailed);
}
};
//XHR binary charset opt by Marcus Granado 2006 [http://mgran.blogspot.com] 
this.req.overrideMimeType('text/plain; charset=x-user-defined');
this.req.send(null);
}

La le code de conversion a été fourni par Miskun.

Très rapide, fonctionne très bien.

J'ai utilisé cette méthode pour lire et extraire des fichiers zip à partir de Javascript, et aussi dans une classe qui lit et affiche des fichiers EPUB en Javascript. Très raisonnable de la performance. Environ une demi-seconde pour un fichier de 500 ko.

Je suggère deux autres (rapide) options:

1. Tout d'abord, vous pouvez utiliser
   ADODB.Jeu d'enregistrements pour convertir le tableau d'octets en une chaîne de caractères. Je suppose que cet objet est plus commun que ADODB.Stream, qui est souvent désactivé pour des raisons de sécurité. Cette option est TRÈS rapide, moins de 30ms pour un fichier de 500 ko.

2. Deuxième, si le jeu n'est pas accessible, il y a un astuce pour accéder au tableau d'octets de données à partir de Javascript. Envoyer votre xhr.responseBody à VBScript, le passer à travers tout VBScript fonction de chaîne tels que CStr (ne prend pas le temps), et le retourner à la JS. Vous obtiendrez une étrange chaîne d'octets concaténés en unicode 16 bits (en sens inverse). Vous pouvez ensuite convertir cette chaîne rapidement utilisable à bytestring par le biais d'un expression régulière avec un dictionnaire de remplacement. Prend environ 1s pour 500kB.

À des fins de comparaison, l'octet-par-octet de conversion à l'aide de boucles prend plusieurs minutes pour cette même 500kB fichier, donc c'est un no-brainer 🙂 ci-Dessous le code que j'ai été en utilisant, pour les insérer dans votre en-tête. Puis appeler la fonction ieGetBytes avec votre xhr.responseBody.

<!--[if IE]>    
<script type="text/vbscript">
'Best case scenario when the ADODB.Recordset object exists
'We will do the existence test in Javascript (see after)
'Extremely fast, about 25ms for a 500kB file
Function ieGetBytesADO(byteArray)
Dim recordset
Set recordset = CreateObject("ADODB.Recordset")
With recordset
.Fields.Append "temp", 201, LenB(byteArray)
.Open
.AddNew
.Fields("temp").AppendChunk byteArray
.Update
End With
ieGetBytesADO = recordset("temp")
recordset.Close
Set recordset = Nothing
End Function
'Trick to return a Javascript-readable string from a VBScript byte array
'Yet the string is not usable as such by Javascript, since the bytes
'are merged into 16-bit unicode characters. Last character missing if odd length.
Function ieRawBytes(byteArray)
ieRawBytes = CStr(byteArray)
End Function
'Careful the last character is missing in case of odd file length
'We Will call the ieLastByte function (below) from Javascript
'Cannot merge directly within ieRawBytes as the final byte would be duplicated
Function ieLastChr(byteArray)
Dim lastIndex
lastIndex = LenB(byteArray)
if lastIndex mod 2 Then
ieLastChr = Chr( AscB( MidB( byteArray, lastIndex, 1 ) ) )
Else
ieLastChr = ""
End If
End Function
</script>
<script type="text/javascript">
try {   
//best case scenario, the ADODB.Recordset object exists
//we can use the VBScript ieGetBytes function to transform a byte array into a string
var ieRecordset = new ActiveXObject('ADODB.Recordset');
var ieGetBytes = function( byteArray ) {
return ieGetBytesADO(byteArray);
}
ieRecordset = null;
} catch(err) {
//no ADODB.Recordset object, we will do the conversion quickly through a regular expression
//initializes for once and for all the translation dictionary to speed up our regexp replacement function
var ieByteMapping = {};
for ( var i = 0; i < 256; i++ ) {
for ( var j = 0; j < 256; j++ ) {
ieByteMapping[ String.fromCharCode( i + j * 256 ) ] = String.fromCharCode(i) + String.fromCharCode(j);
}
}
//since ADODB is not there, we replace the previous VBScript ieGetBytesADO function with a regExp-based function,
//quite fast, about 1.3 seconds for 500kB (versus several minutes for byte-by-byte loops over the byte array)
var ieGetBytes = function( byteArray ) {
var rawBytes = ieRawBytes(byteArray),
lastChr = ieLastChr(byteArray);
return rawBytes.replace(/[\s\S]/g, function( match ) {
return ieByteMapping[match]; }) + lastChr;
}
}
</script>
<![endif]-->

J'ai essayé de télécharger un fichier et de le signer à l'aide de CAPICOM.DLL. La seule façon que j'petit plus ponctuellement le faire est par l'injection d'une fonction VBScript qui ne le téléchargement. C'est ma solution:

if(/msie/i.test(navigator.userAgent) && !/opera/i.test(navigator.userAgent)) {
var VBConteudo_Script =
'<!-- VBConteudo -->\r\n'+
'<script type="text/vbscript">\r\n'+
'Function VBConteudo(url)\r\n'+
'   Set objHTTP = CreateObject("MSXML2.XMLHTTP")\r\n'+
'   objHTTP.open "GET", url, False\r\n'+
'   objHTTP.send\r\n'+
'   If objHTTP.Status = 200 Then\r\n'+
'       VBConteudo = objHTTP.responseBody\r\n'+
'   End If\r\n'+
'End Function\r\n'+
'\<\/script>\r\n';
//inject VBScript
document.write(VBConteudo_Script);
}

Vous pourriez tout aussi bien faire un script de proxy qui va à l'adresse que vous demandez & base64 est tout. Ensuite vous avez juste à passer d'une chaîne de requête pour le script de proxy qui lui indique l'adresse. Dans IE vous avez à faire manuellement en base64 en JS si. Mais c'est une voie à suivre si vous ne voulez pas utiliser VBScript.

J'ai utilisé ce pour mon émulateur GameBoy Color.

Voici le script PHP qui fait la magie:

<?php
//Binary Proxy
if (isset($_GET['url'])) {
try {
$curl = curl_init();
curl_setopt($curl, CURLOPT_URL, stripslashes($_GET['url']));
curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($curl, CURLOPT_USERAGENT, $_SERVER['HTTP_USER_AGENT']);
curl_setopt($curl, CURLOPT_POST, false);
curl_setopt($curl, CURLOPT_CONNECTTIMEOUT, 30);
$result = curl_exec($curl);
curl_close($curl);
if ($result !== false) {
header('Content-Type: text/plain; charset=ASCII');
header('Expires: '.gmdate('D, d M Y H:i:s \G\M\T', time() + (3600 * 24 * 7)));
echo(base64_encode($result));
}
else {
header('HTTP/1.0 404 File Not Found');
}
}
catch (Exception $error) { }
}
?>