Чтение бинарного плавающего значения Windows в переменную jscript ASP - PullRequest
Новая
       25

Чтение бинарного плавающего значения Windows в переменную jscript ASP

1 голос
/ 02 июня 2010

Мне нужно прочитать файлы, созданные устаревшим приложением Windows, которое хранит действительные числа (8-байтовый «двойной» тип) в двоичном виде, то есть в виде упакованного массива из 8 байтов. Я могу прочитать 8-байтовую группу, но как я могу представить ее в своем коде JScript ASP, чтобы я мог снова получить действительное число.

Или, говоря иначе:

Скажем, файл был создан программой Windows (Delphi): 

Assign (f, 'test.bin') ;
rewrite (f, 1) ;
r := 1234.56E78 ;
BlockWrite (f, r, SizeOf (Double)) ;
Close (f) ;

Проверка файла покажет, что он содержит 8 байтов, а именно: 

94 0E 4C CA C2 97 AD 53

, которое является действительным числом в формате IEEE. Предполагая, что я могу прочитать эти 8 байтов обратно в ASP, есть ли простой способ вернуть реальное число снова?

Ответы [ 3 ]

1 голос
/ 02 июня 2010

Посмотрите на BitConverter.ToDouble () .

На странице ASP.NET это может выглядеть так: 

<%@ Page Language="JScript"
    AutoEventWireup="true"
    CodeBehind="Default.aspx.cs"
    Inherits="WebApplication1._Default" %>
<%
    var bytes: byte[] = [0x94, 0x0e, 0x4c, 0xca, 0xc2, 0x97, 0xad, 0x53];
    var d = BitConverter.ToDouble(bytes, 0);
    Response.Write(d);
%>

Что дает вам вывод: 

1.2345678E+95

(Вы можете проверить правильность на http://babbage.cs.qc.edu/IEEE-754/)

1 голос
/ 03 июня 2010

Спасибо, Орен, за помощь. Материал для мусора был особенно полезен. Для чего стоит здесь код, который мне пришлось написать (не проверенный ни на что, кроме норм): 

function ReadFileDouble (Stream)
{ 
var Bytes0To3 = ReadFileLongword (Stream) ;
var Bytes4To5 = ReadFileWord (Stream) ;
var Bytes6To7 = ReadFileWord (Stream) ;

var Mantissa = Bytes0To3 + (Bytes4To5 * 65536 * 65536) + ((Bytes6To7 & 0x0F) * 65536 * 65536 * 65536) ;
var Fraction = Mantissa / 0x0010000000000000 ;
var Exponent = ((Bytes6To7 >>> 4) & 0x07FF) ;
var SignBit  = ((Bytes6To7 & 0x8000) != 0) ;
if (SignBit)
    {
    Sign = -1 ;
    }
else
    {
    Sign = +1 ;
    }    

var Bias     = 1023 ;

if (Exponent == 0)
    {
    if (Mantissa == 0)
        {
        return (0.00 * Sign) ;
        }
    else
        {
        return ((Fraction * (Math.pow (2.0, - Bias + 1))) * Sign) ;
        }        
    }
else if (Exponent == 1023)
    {
    if (Mantissa == 0)
        {
        return (Number.POSITIVE_INFINITY * Sign) ;
        }
    else if (Mantissa < 0x0008000000000000)
        {
        return (Number.NaN * Sign) ;
        }
    else
        {
        return (Number.NaN * Sign) ;
        }        
    }    
else 
    {
    return ((1.0 + Fraction) * (Math.pow (2.0, Exponent - Bias)) * Sign) ;
    }    
}
0 голосов
/ 02 июня 2010

Вы можете использовать поток ADO. Он используется для чтения, записи и управления потоком двоичных данных или текста. 

Dim objStream As ADODB.Stream
objStream.Type = 1
objStream.LoadFromFile path

Dim Number : Number = BytesToNumEx(objStream.Read 8, 1, 8, False)

Вам понадобится следующая функция: 

Function BytesToNumEx(ByteArray(), StartRec, EndRec, UnSigned) 
    Dim i
    Dim lng256 : lng256 = 1
    Dim lngReturn : lngReturn = 0

    If EndRec < 1 Then
        EndRec = UBound(ByteArray)
    End If

    If StartRec > EndRec Or StartRec < 0 Then
        BytesToNumEx = -1
        Exit Function
    End If

    lngReturn = lngReturn + (ByteArray(StartRec))
    For i = (StartRec + 1) To EndRec
        lng256 = lng256 * 256
        If i < EndRec Then
            lngReturn = lngReturn + (ByteArray(i) * lng256)
        Else
            If ByteArray(i) > 127 And UnSigned = False Then
             lngReturn = (lngReturn + ((ByteArray(i) - 256) * lng256))
            Else
                lngReturn = lngReturn + (ByteArray(i) * lng256)
            End If
        End If
    Next 

    BytesToNumEx = lngReturn
End Function
...