Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Работа с COM-портом 


EsKor   (2002-01-11 05:48) [0]

Недавно на конференции появлялось утвержение, что получить дескриптор уже открытого порта не возможно с помощью API.
Тогда вопрос:
А как его все-таки его получить, если очень надо?
Спасибо за ответы!



gek   (2002-01-11 07:34) [1]

дескриптор получаешь когда порт открываешь



EsKor   (2002-01-11 08:45) [2]

>gek
Так в том-то и дело, что когда COM-порт уже открыт (занят), функция CreateFile(...) возвращает значение INVALID_HANDLE_VALUE = DWORD(-1), при этом функция GetLastError возвращает ошибку ERROR_ACCESS_DENIED = 5;
Согласно Help параметр dwCreationDistribution функции CreateFile(...) может иметь значение только OPEN_EXISTING:
"The CreateFile function can create a handle to a communications resource, such as the serial port COM1. For communications resources, the dwCreationDistribution parameter must be OPEN_EXISTING, and the hTemplate parameter must be NULL."
М.б. есть еще какая функция/процедура открытия порта которую я никак увидеть не могу?



gek   (2002-01-11 09:54) [3]

Именно так и будет если снова порт пытаться открыть.
Он и говорит - ошибка доступа.
Я всегда порты открывал именно так
var
hNewCommFile: THandle;
begin
hNewCommFile := CreateFile(PChar("COM2"),GENERIC_READ+GENERIC_WRITE,
0, nil, OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0);



MegaVolt   (2002-01-11 09:55) [4]

ИМХО по идеологии СОМ порта нельзя чтобы к нему обращались две программы :( Следовательно и получить второй дескриптор нельзя :( Увы.



Fishbone   (2002-01-11 10:22) [5]

Это можно сделать через vxd, работающие на уровне ядра. Описывать сдесь это я не буду - дам животрепещущий пример - искать в <a href= http://www.sysinternals.com> http://www.sysinternals.com </a> программу portmon - она идет с исходниками, правда на с, но кому надо - тот разберется.



EsKor   (2002-01-11 10:31) [6]

Видимо я не совсем верно задаю вопрос.
Нужно не открыть уже открытый порт, захватить его, или работать параллельно с другой программой, а просто получить его дескриптор. Ну на самом деле не просто из любопытства, а, например с целью его принудительного закрытия. Может быть это и странная задача, но она есть и долго объснять зачем это нужно.




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.029 c
3-22534           Incha                 2002-03-14 15:12  2002.04.08  
Срочно нужна помощь.


6-22774           f0rm                  2002-01-25 11:56  2002.04.08  
Скопировать файл из локалки


1-22702           Di                    2002-03-26 16:24  2002.04.08  
Как определить, насколько (в пикселях) прокручен TreeView своей полосой прокрутки?


3-22569           Malder                2002-03-16 13:55  2002.04.08  
Подсчет количества записей


1-22653           Chistyakov Victor     2002-03-28 10:42  2002.04.08  
Delphi&Word