как получить доступ к xhr responseBody (для двоичных данных) из Javascript в IE?

XMLHttpRequest.responseBody это VBArray объект, содержащий необработанные байты. Вы можете преобразовать эти объекты в стандартные массивы, используя :

var data = xhr.responseBody.toArray();

Я бы предложил два других (быстрый) параметры:

1. во-первых, вы можете использовать объект adodb.Recordset для преобразования массива байтов в строку. Я бы предположил, что этот объект более распространен, чем ADODB.Поток, который часто отключается по соображениям безопасности. Эта опция очень быстрая, меньше чем 30ms для файла 500kB.

2. во-вторых, если компонент набора записей недоступен, существует трюк для доступа к байту массив данных из Javascript. Отправьте свой xhr.responseBody к VBScript, передайте его через любую строковую функцию VBScript, такую как CStr (не занимает много времени), и верните его в JS. Вы получите странную строку с байтами, объединенными в 16-битный Юникод (в обратном порядке). Затем вы можете быстро преобразовать эту строку в полезный bytestring через регулярные выражения С заменой на основе словаря. Занимает около 1s для 500kB.

Для сравнения, преобразование байт за байтом через циклы принимает через несколько минут для этого же файла 500kB, так что это без проблем :) ниже кода, который я использовал, чтобы вставить в ваш заголовок. Затем вызовите функцию ieGetBytes С вашим 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]-->

большое спасибо за это решение. функция BinaryToArray () в VbScript отлично работает для меня.

кстати, мне нужны двоичные данные для предоставления его в апплет. (Не спрашивайте меня, почему апплеты нельзя использовать для загрузки двоичных данных. Длинная короткая история.. странная аутентификация MS, которая не может пройти через апплеты (URLConn). Его особенно странно в случаях, когда пользователи находятся за прокси)

апплету нужен массив байтов из этих данных, поэтому вот что я делаю, чтобы получить это:

 String[] results = result.toString().split(",");
    byte[] byteResults = new byte[results.length];
    for (int i=0; i<results.length; i++){
        byteResults[i] = (byte)Integer.parseInt(results[i]);
    }

массив байтов затем может быть преобразован в bytearrayinputstream для дальнейшей обработки.

Я пытался загрузить файл и подписать его с помощью CAPICOM.файл DLL. Единственный способ сделать это-ввести функцию VBScript, которая выполняет загрузку. Вот мое решение:

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);
}

Спасибо за этот пост.

Я нашел эту полезную ссылку:

http://www.codingforums.com/javascript-programming/47018-help-using-responsetext-property-microsofts-xmlhttp-activexobject-ie6.html

особенно эта часть:

</script>
<script language="VBScript">
Function BinaryToString(Binary)
Dim I,S
For I = 1 to LenB(Binary)
S = S & Chr(AscB(MidB(Binary,I,1)))
Next
BinaryToString = S
End Function
</script>

я добавил Это на свою страницу htm. Затем я вызываю эту функцию из своего javascript:

 responseText = BinaryToString(xhr.responseBody);

работает на IE8, IE9, IE10, FF и Chrome.

вы также можете просто сделать прокси-скрипт, который идет по адресу, который вы запрашиваете & base64. Затем вам просто нужно передать строку запроса прокси-скрипту, который сообщает ему адрес. В IE вы должны вручную сделать base64 в JS. Но это способ пойти, если вы не хотите использовать VBScript.

я использовал это для мой эмулятор цвета GameBoy.

вот PHP скрипт, который делает магию:

<?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) { }
}
?>