VB6中如何拆分Double为LoWord与HiWord以调用SetFilePointer

我来帮你搞定这个大扇区地址读取的问题——你遇到的核心痛点是VB中Long类型的32位有符号限制（最大仅能存储2,147,483,647，约2GB），以及误用Double存储大整数导致的精度丢失/溢出问题。下面给你一步步的可行解决方案：

1. 先解决大整数存储的根本问题 #

你之前用Double存地址是错误的：Double是浮点数，当数值超过2^53时会丢失整数精度，导致拆分出来的LoWord/HiWord完全错误。我们需要用VB里能存64位整数的类型——Currency（本质是64位整数，只是做了×10000的缩放，完全适合存储磁盘地址）。

首先，把从INI读取的十六进制扇区号字符串转成Currency类型：

Function HexToCurrency(ByVal hexStr As String) As Currency
    Dim i As Integer
    Dim currVal As Currency
    currVal = 0
    hexStr = UCase(hexStr)
    
    For i = 1 To Len(hexStr)
        currVal = currVal * 16 + InStr("0123456789ABCDEF", Mid(hexStr, i, 1)) - 1
    Next i
    
    HexToCurrency = currVal
End Function

然后计算起始字节地址（再也不会溢出）：

Dim sectorHex As String
sectorHex = "1A2B3C4D" ' 替换成你从INI读取的十六进制扇区号
Dim startAddress As Currency
startAddress = HexToCurrency(sectorHex) * 512 ' 扇区号×每扇区字节数

2. 拆分64位地址为SetFilePointer所需的参数 #

SetFilePointer的两个地址参数本质是把64位地址拆成低32位（LONG类型）和高32位（DWORD指针），这里给你两种可靠的拆分方式：

方法一：用LARGE_INTEGER结构体+内存拷贝 #

先定义Windows API的64位整数结构体，再通过内存拷贝直接把Currency转成结构体：

Private Type LARGE_INTEGER
    lowPart As Long   ' 低32位地址
    highPart As Long  ' 高32位地址
End Type

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

Function CurrencyToLargeInt(ByVal currVal As Currency) As LARGE_INTEGER
    Dim li As LARGE_INTEGER
    Dim rawInt64 As Currency
    rawInt64 = currVal / 10000 ' 还原Currency的×10000缩放，得到原始64位整数
    
    ' 直接拷贝内存，把64位整数转成结构体
    CopyMemory li, rawInt64, 8
    CurrencyToLargeInt = li
End Function

然后调用SetFilePointer：

Private Declare Function SetFilePointer Lib "kernel32.dll" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Const FILE_BEGIN = 0 ' 从文件开头移动指针

' 假设你已经通过CreateFile获取了磁盘句柄hDisk
Dim li As LARGE_INTEGER
li = CurrencyToLargeInt(startAddress)
Dim newPtr As Long
newPtr = SetFilePointer(hDisk, li.lowPart, li.highPart, FILE_BEGIN)

方法二：手动数学运算拆分 #

不用内存拷贝，直接通过除法和取模拆分：

Const MAX_32BIT = 4294967296# ' 2^32，32位无符号整数的最大值

Dim lowWord As Long
lowWord = startAddress Mod MAX_32BIT ' 取低32位

Dim highWord As Long
highWord = startAddress \ MAX_32BIT ' 取高32位

' 直接传入SetFilePointer
newPtr = SetFilePointer(hDisk, lowWord, highWord, FILE_BEGIN)

3. 为什么你之前的方法无效？ #

• Double拆分：Double的浮点数存储格式导致大整数精度丢失，拆分出来的LoWord/HiWord不是真实的二进制位，必然出错。
• LSet转换结构体：LSet仅能用于同大小的用户定义类型，但Double是浮点数编码，不是整数的二进制存储，转换后得到的是浮点数的二进制拆分，不是地址的高低位。
• Mod/Fix拆分Long：Long本身已经溢出，拆分前数值就不对了，结果自然错误。

完整示例代码（含磁盘打开） #

' 必需的API声明
Private Declare Function SetFilePointer Lib "kernel32.dll" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function CreateFile Lib "kernel32.dll" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Declare Function GetLastError Lib "kernel32.dll" () As Long

Private Type LARGE_INTEGER
    lowPart As Long
    highPart As Long
End Type

' 常量定义
Const FILE_BEGIN = 0
Const GENERIC_READ = &H80000000
Const FILE_SHARE_READ = &H1
Const OPEN_EXISTING = 3
Const MAX_32BIT = 4294967296#

Function HexToCurrency(ByVal hexStr As String) As Currency
    Dim i As Integer
    Dim currVal As Currency
    currVal = 0
    hexStr = UCase(hexStr)
    
    For i = 1 To Len(hexStr)
        currVal = currVal * 16 + InStr("0123456789ABCDEF", Mid(hexStr, i, 1)) - 1
    Next i
    
    HexToCurrency = currVal
End Function

Sub ReadLargeDiskSector()
    ' 1. 读取扇区号并计算起始地址
    Dim sectorHex As String
    sectorHex = "1A2B3C4D" ' 替换为你从INI读取的十六进制扇区号
    Dim startAddress As Currency
    startAddress = HexToCurrency(sectorHex) * 512
    
    ' 2. 打开磁盘（需要管理员权限，示例为C盘）
    Dim hDisk As Long
    hDisk = CreateFile("\\.\C:", GENERIC_READ, FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, 0, 0)
    If hDisk = -1 Then
        MsgBox "无法打开磁盘，错误代码：" & GetLastError()
        Exit Sub
    End If
    
    ' 3. 移动指针到目标地址
    Dim lowWord As Long, highWord As Long
    lowWord = startAddress Mod MAX_32BIT
    highWord = startAddress \ MAX_32BIT
    
    Dim newPtr As Long
    newPtr = SetFilePointer(hDisk, lowWord, highWord, FILE_BEGIN)
    If newPtr = -1 And GetLastError() <> 0 Then
        MsgBox "指针移动失败，错误代码：" & GetLastError()
        CloseHandle hDisk
        Exit Sub
    End If
    
    ' 4. 这里添加读取扇区数据的代码（略）
    
    ' 5. 关闭磁盘句柄
    CloseHandle hDisk
End Sub

内容的提问来源于stack exchange，提问作者Silvio