Microsoft Binary Format

[javiquero]

Hola a tod@s,

A ver si me podéis echar una mano, necesito pasar esta función que tengo en una aplicación asp a php:

Código PHP:

  Private Declare Sub DxToIEEEd Lib "mbfiee32" (ByRef X As Byte)
 
Private Function CVDMBF(ByRef bTmp() As Byte) As Double
        CVDMBF = 0
        DxToIEEEd(bTmp(0))
        Dim objDouble As Object = CDbl(0)
        Dim MyGC As System.Runtime.InteropServices.GCHandle = System.Runtime.InteropServices.GCHandle.Alloc(objDouble, System.Runtime.InteropServices.GCHandleType.Pinned)
        Dim AddofLongValue As IntPtr = MyGC.AddrOfPinnedObject()
        System.Runtime.InteropServices.Marshal.Copy(bTmp, 0, AddofLongValue, 8)
        MyGC.Free()
        CVDMBF = objDouble
    End Function CVDMBF 
   

He estado buscando en la documentación de php, en google y no encuentro nada sobre el tema.

Muchas gracias

[iviamontes]

bueno es que no se asp, si traduces que hace cada funcion, te decimos su equivalente php

[javiquero]

Si, perdona.

Básicamente me pasa un Array de 4 bytes a tipo Long.

Toda la documentación que he encontrado por internet hace referencia a funciones MBR to IEEE bajo windows, aunque tambien he visto la equivalente en pyhton, pero como no tengo ni idea...

la pongo en pyhton por si a alguien le pueda servir:

Código PHP:

  def fmsbin2ieee(self,bytes):
    """Convert an array of 4 bytes containing Microsoft Binary floating point
    number to IEEE floating point format (which is used by Python)"""
    as_int = struct.unpack("i", bytes)
    if not as_int:
        return 0.0
    man = long(struct.unpack('H', bytes[2:])[0])
    exp = (man & 0xff00) - 0x0200
    if (exp & 0x8000 != man & 0x8000):
        return 1.0
        #raise ValueError('exponent overflow')
    man = man & 0x7f | (man << 8) & 0x8000
    man |= exp >> 1
    bytes2 = bytes[:2]
    bytes2 += chr(man & 255)
    bytes2 += chr((man >> 8) & 255)
    return struct.unpack("f", bytes2)[0] 
   

[GatorV]

Puedes traducir esa de python mas fácilmente, usando unpack() en PHP.

Saludos.

[javiquero]

Gracias GaltorV, ya lo he intentado pero hay fragmentos de código que no se traducir.

De todos modos como veo que me he explicado bastante mal y nunca es tarde para rectificar, voy a explicar exactamente lo que tengo que hacer.

Necesito leer un archivo de datos de una aplicación antigua programada en Qbasic. Hasta aquí todo bastante bien, ahora un poco de historia:
El problema es que los señores de Microsoft en su aplicaciones de programación antiguas ya sea Basic, GwBasic, Qbasic, etc utilizaban un formato de punto flotante interno conocido como Formato binario de Microsoft (MBF). El estándar IEEE se incorporó más tarde y se convirtió en el estándar para todos los lenguajes.
Por esta razón no se puede leer un campo integer, long, double, etc de un archivo de datos de estas aplicaciones antiguas sin pasar por las funciones que os adjunto en mis anteriores mensajes.

Ej:
Array
(
[1] => 236
[2] => 81
[3] => 248
[4] => 64
)
Equivale a 7,76

Ej2:
Array
(
[1] => 205
[2] => 204
[3] => 0
[4] => 65
)
Equivale a 8,05


Bueno espero haberme explicado lo suficientemente bien,