Help converting Hex 32 bit float please (reverse)

[malu05]

Ok, my Bitwise knowledge is pretty bad so i need a little help with this one.

This function converts the $Hex into a float:

#Include <WinAPI.au3>
#Include <String.au3>

func endian_converter($value)

    local $byte0 = BitShift($value,24)
    local $byte1 = BitAND(BitShift($value,-8), 0x00FF0000)
    local $byte2 = BitAND(BitShift($value,8), 0x0000FF00)
    local $byte3 = BitShift($value,-24)

    local $result = BitOR($byte0,$byte1,$byte2,$byte3)

    return $result

endfunc

$Hex = "6766CA41"

MsgBox(0,"",StringFormat("%2.16f",_WinAPI_IntToFloat(endian_converter(Number("0x" & $Hex)))))

But i need to do the opposite. From a float to a 32bit hex.

So if i type in 1 it will return : "0x0000803F"

[martin]

Ok, my Bitwise knowledge is pretty bad so i need a little help with this one.

This function converts the $Hex into a float:

#Include <WinAPI.au3>
#Include <String.au3>

func endian_converter($value)

    local $byte0 = BitShift($value,24)
    local $byte1 = BitAND(BitShift($value,-8), 0x00FF0000)
    local $byte2 = BitAND(BitShift($value,8), 0x0000FF00)
    local $byte3 = BitShift($value,-24)

    local $result = BitOR($byte0,$byte1,$byte2,$byte3)

    return $result

endfunc

$Hex = "6766CA41"

MsgBox(0,"",StringFormat("%2.16f",_WinAPI_IntToFloat(endian_converter(Number("0x" & $Hex)))))

But i need to do the opposite. From a float to a 32bit hex.

So if i type in 1 it will return : "0x0000803F"

This is the easiest way I think.

$a = DllStructCreate("Int")
$b = DllStructCreate("float",DllStructGetPtr($a))
DllStructSetData($b,1,1)
ConsoleWrite("0x" & Hex(DllStructGetData($a,1)) & @CRLF)