Вызов WriteFile () работает на x86, но не на x64.Получение кода ошибки 6 - дескриптор недопустим при использовании VB.NET

Question

Я использую вызовы API CreateFile, WriteFile и ReadFile для записи некоторых данных на USB-устройство. Код у меня отлично работает на 32-битных системах. CreateFile получает дескриптор устройства, передает этот дескриптор и некоторые данные в WriteFile и считывает из этого дескриптора ReadFile.

Моя проблема в том, что тот же код не работает в 64-битной системе. Ошибка, возвращаемая из WriteFile, равна 6, дескриптор недействителен. Я проверил дескриптор на действительность при вызове CreateFile, и это действительный дескриптор. Вызов GetLastError () возвращает 0 после CreateFile. «Файл» открывается для перекрывающейся связи, и перекрывающиеся вызовы инициализации также возвращают свои правильные значения.

Мой вопрос: есть ли какое-то другое соображение, которое я должен сделать, потому что это 64-битная система? Другой флаг? Совсем другой звонок?

Просто чтобы заметить, я немного взломал код, чтобы сделать его синхронным (вынул ПЕРЕКРЫТИЕ), и он работал, поэтому я предполагаю, что проблема в моей структуре ПЕРЕКРЫТИЯ или как инициализация звонков.

Любая помощь очень ценится.

Edit:

Ниже приведены мои подписи API и код, который я использую для реализации OVERLAPPED

Private Declare Auto Function CreateFile Lib "kernel32.dll" _
                                    (ByVal lpFileName As String, _
                                    ByVal dwDesiredAccess As Integer, _
                                    ByVal dwShareMode As Integer, _
                                    ByVal lpSecurityAttributes As IntPtr, _
                                    ByVal dwCreationDisposition As Integer, _
                                    ByVal dwFlagsAndAttributes As Integer, _
                                    ByVal hTemplateFile As IntPtr) As IntPtr


Private Declare Auto Function WriteFile Lib "kernel32.dll" _
                                    (ByVal hFile As IntPtr, ByVal Buffer As Byte(), _
                                    ByVal nNumberOfBytesToWrite As Integer, _
                                    ByRef lpNumberOfBytesWritten As Integer, _
                                    ByRef lpOverlapped As OVERLAPPED) As Boolean

Private Declare Auto Function ReadFile Lib "kernel32.dll" _
                                    (ByVal hFile As IntPtr, _
                                    ByVal Buffer As Byte(), _
                                    ByVal nNumberOfBytesToRead As Integer, _
                                    ByRef lpNumberOfBytesRead As Integer, _
                                    ByRef lpOverlapped As OVERLAPPED) As Boolean

Private Declare Auto Function CloseHandle Lib "kernel32.dll" (ByVal hFile As IntPtr) As Boolean

Private Declare Auto Function CancelIo Lib "kernel32.dll" (ByVal hObject As IntPtr) As Boolean

Private Declare Auto Function GetOverlappedResult Lib "kernel32.dll" ( _
                                    ByVal hFile As IntPtr, ByRef lpOverlapped As OVERLAPPED, _
                                    ByRef lpNumberOfBytesTransferred As Integer, _
                                    ByVal bWait As Boolean) As Boolean

Private Declare Auto Function CreateEvent Lib "kernel32.dll" ( _
                                    ByVal lpEventAttributes As Integer, ByVal bManualReset As Boolean, _
                                    ByVal bInitialState As Boolean, _
                                    <MarshalAs(UnmanagedType.LPStr)> ByVal lpName As String) As IntPtr

Private Declare Auto Function WaitForSingleObject Lib "kernel32.dll" ( _
                                    ByVal hHandle As IntPtr, ByVal dwMilliseconds As Integer) As Integer

Ниже приведен код для записи, где возникает проблема. Следует отметить, что при чтении параметр hEvent структуры OVERLAPPED инициализируется аналогичным образом

Try

        With IOStructure
            .overlap.hEvent = CreateEvent(Nothing, True, False, Nothing)
            If .overlap.hEvent = 0 Then
                writeSuccess = False
            Else
                writeSuccess = WriteFile(.hdevice, .writeBuf, .writeBuf.Length, .bytesWritten, .overlap)

                'If the write didn't succeed, check to see if it's pending
                If Not writeSuccess Then

                    If Err.LastDllError <> ERROR_IO_PENDING Then 'The write failed
                        writeSuccess = False
                    Else ' Write is pending

                        Select Case WaitForSingleObject(.overlap.hEvent, .timeout * 0.1) 'Wait for the write to complete

                            Case 0 'The write completed, check the overlapped structure for the signalled event.
                                writeSuccess = GetOverlappedResult(.hdevice, .overlap, .bytesWritten, 0)
                            Case Else
                                writeSuccess = False
                        End Select
                    End If

                End If
            End If
            CloseHandle(.overlap.hEvent)
        End With
        '   Thread.Sleep(IOStructure.timeout * 0.3)
        ' End While
    Catch
        writeSuccess = False
    End Try

Answer 1

У меня была точно такая же проблема. Те же симптомы. Я исправил это

1. При запуске программы, когда я впервые открываю порт, я очищаю буферы ввода / вывода
2. Затем я записываю символ 0x00 (ноль) в сам порт, используя WriteFile для его инициализации.

И БИНГО это работает. С тех пор проблем не было.

Answer 2

У меня была такая же проблема ... Я обнаружил, что ошибка неверного дескриптора исчезла, когда я обнулел перекрывающуюся структуру:

Dim ovl As OVERLAPPED
static ovlRead As IntPtr = Nothing

' Marshal (allocate unmanaged) structure only once
If IsNothing(ovlRead) then
    ovlRead = Marshal.AllocHGlobal(Marshal.SizeOf(ovl))

    Marshal.WriteInt32(ovlRead, 0, 0)
    Marshal.WriteInt32(ovlRead, 4, 0)
    Marshal.WriteInt32(ovlRead, 8, 0)
    Marshal.WriteInt32(ovlRead, 12, 0)
    Marshal.WriteInt32(ovlRead, 16, 0)
End If

Удачи.

Answer 3

Почему бы вам просто не использовать NativeOverlapped ?Он специально разработан для этой задачи.