COM порт и CreateFile

[Zer]

Есть проблемка. Пытаюсь юзать для работы с COM не MSCOMM, а API.
Модуль:

Код: Выделить всё

'**********************************
'**  Type Definitions:

Public Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type

'**********************************
'**  Function Declarations:

Public Declare Function CreateFile& Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long)
Public Declare Function CloseHandle& Lib "kernel32" (ByVal hObject As Long)
Public Declare Function PurgeComm& Lib "kernel32" (ByVal hFile As Long, ByVal dwFlags As Long)
+константы


Вызов:

Код: Выделить всё

ComPortA = "COM1"
Result = CreateFile(ComPortA, GENERIC_READ Or GENERIC_WRITE, 0, Null, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
If Result = INVALID_HANDLE_VALUE Then MsgBox "Error!!!"


Рыгается на Null в SECURITY_ATTRIBUTES. В чём бяка - не пойму...

[GSerg]

Ввиду сути вопроса, переношу.

[tyomitch]

Переобъяви lpSecurityAttributes как Long и передавай 0.
И запомни, что Null -- это такой Variant, который не имеет ничего общего с API.

[Viper]

Код: Выделить всё

Public Declare Function CreateFile& Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long)

ComPortA = "COM1"
Result = CreateFile(ComPortA, GENERIC_READ Or GENERIC_WRITE, 0, Null, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
If Result = INVALID_HANDLE_VALUE Then MsgBox "Error!!!"


(

замени декларе на

Код: Выделить всё

Public Declare Function CreateFile& Lib "kernel32" 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)

и вызывай ее себе на здоровье, передавая вместо lpSecurityAttributes ByVal 0&

[Zer]

Спасибо. Фаршманулся нечаянно.
Но в Эпплмане именно так и объявляется. Тоже как-то странно...

[tyomitch]

А ещё Аппельман вызывает GetLastError из kernel32, я сам видел!

[GSerg]

Угу. Я Эпплмана читаю только ради концепций.