转换为8字节数组转换为双

Question

（谈到的Visual Basic 6）

我能找到如何convert Double into 8-bytes array，但不是反之亦然。

在我开始尝试编码之前，是否有一些例行程序来执行它（如链接问题中描述的“CopyMemory”）？在这种情况下可以使用“CopyMemory”吗？

Answer 1

使用相同的代码作为答案您链接到交换，但在源和目的地周围：

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (_ 
    ByRef Destination As Any, _ 
    ByRef Source As Any, _ 
    ByVal Length As Long) 

Function BytesToDbl(ByRef Bytes() As byte) As Double 
    Dim D As Double 
    CopyMemory D, Bytes(0), LenB(D) 
    BytesToDbl = D 
End Function 

我已经跳过了这个例子中的任何错误检查，但是你要确保你的字节数组实际上是8个字节，否则你会得到访问冲突。

请注意，这假定字节数组是使用链接的问题创建的。来自其他来源的浮点值可能会使用不同的二进制表示形式，这意味着这不起作用。