скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Определить, доступен ли 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;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook