Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Delphi 7 COM-порт  [new]
Валерий666
Member

Откуда:
Сообщений: 244
Пересмотрел кучу примеров, перепробовал кучу кода.

либа ComDrv32
Отваливается с ошибкой открытие порта, код:
var   ComFile:THandle;
….
ComFile:=CreateFile('com11',GENERIC_READ,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_READONLY,0);
if ComFile=INVALID_HANDLE_VALUE then begin
    ShowMessage('Не удалось открыть порт ');


не может получить хэндл. Хотя либы Comport, BComPort, AsyncFree, AsyncPro открывают и работают с портом. Терминал 0.9б тоже без проблем определяет и работает с портом.

В чем может быть проблема? Windows 10?
29 авг 19, 14:17    [21959861]     Ответить | Цитировать Сообщить модератору
 Re: Delphi 7 COM-порт  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 11152
https://docs.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-createfilea#communications-resources
To specify a COM port number greater than 9, use the following syntax: "\.\COM10". This syntax works for all port numbers and hardware that allows COM port numbers to be specified.
29 авг 19, 14:30    [21959873]     Ответить | Цитировать Сообщить модератору
 Re: Delphi 7 COM-порт  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 48132

Валерий666
В чем может быть проблема?

В том, что кто-то не может получить сообщение о настоящей ошибке и подменяет его мусором
класса "shit happen".

PS: Для портов с большими номерами они должны задаваться как '\\.\com123'.

Posted via ActualForum NNTP Server 1.5

29 авг 19, 14:39    [21959882]     Ответить | Цитировать Сообщить модератору
 Re: Delphi 7 COM-порт  [new]
Мимопроходящий
Member

Откуда: бурятский тундрюк, эсквайр
Сообщений: 30273

29.08.2019 14:17, Валерий666 пишет:
> либа ComDrv32

выкинь каку

Posted via ActualForum NNTP Server 1.5

2 сен 19, 13:35    [21961806]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить