Определить, доступен ли COM портDelphi , Файловая система , ПортыОпределить, доступен ли COM порт
Оформил: DeeCo { This tip uses the API of Windows to determine if a this available certain COM. Port: COM1, COM2, COM3... } function ComPortAvailable(Port: PChar): Boolean; var DeviceName: array[0..80] of Char; ComFile: THandle; begin StrPCopy(DeviceName, Port); ComFile := CreateFile(DeviceName, GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := ComFile <> INVALID_HANDLE_VALUE; CloseHandle(ComFile); end; procedure TForm1.Button1Click(Sender: TObject); begin if ComPortAvailable('COM1:') then ShowMessage('Port available') else ShowMessage('Port not available'); end; Статья Определить, доступен ли COM порт раздела Файловая система Порты может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |