TLazSerial

[Fedia74]

Здравствуйте знатоки Лазаруса.

Подскажите как с помощью Библиотеки TLazSerial определить открыт Сом порт уже или нет , дело в том что если он открыт и пытаться его открывать ещё раз не получится и как следствие прога вылетает , а нужно этот момент предусмотреть. Работать с портом вроде как получается , а вот этот момент не выходит . Доку в интернете найти не получается по библиотеки.

[p51x]

if Serial.Active then

[Fedia74]

Это просто переменная которая показывает о подключении или нет Сом порта , а для того что бы узнать занят порт или нет нужно к нему пробовать подцепиться.
А проблема в том что когда подключаешься к занятому порту то выскакивает меню ошибки (Порт занят) с выбором действия , остановить прогу или продолжить и это мешает.
Дело в том что если программно опрашивать порты в поиске нужного , то эта выскакивающая меню очень мешает . И было найдено решение.

В модуле TLazSerial ,были сделаны изменения в двух процедурах

procedure TLazSerial.DeviceOpen;
begin
  FSynSer.Connect(FDevice);  // тута определение ошибки открытия
  if FSynSer.Handle=INVALID_HANDLE_VALUE
   then
     exit; // отключено вывод меню и выход по ошибке , сделан просто выход из Процедуры 
    //raise Exception.Create('Could not open device '+ FSynSer.Device);

  FSynSer.Config(ConstsBaud[FBaudRate],
                 ConstsBits[FDataBits],
                 ConstsParity[FParity],
                 ConstsStopBits[FStopBits],
                 FSoftflow, FHardflow);

  // Launch Thread
  ReadThread := TComPortReadThread.Create(true);
  ReadThread.Owner := Self;
  ReadThread.MustDie := false;
//  ReadThread.Resume;   --> deprecated
  ReadThread.Start;
end;

И во второй

procedure TLazSerial.SetActive(state: boolean);
begin
  if state=FActive then  exit;

  if state
   then
    begin
     DeviceOpen;       //Добавлено условие ошибки
     if FSynSer.Handle=INVALID_HANDLE_VALUE
      then state:=false;
    end
   else
     DeviceClose;

  FActive:=state;
end;

В результате окно ошибки не выводится , просто нет подключения к занятому порту .
Теперь можно программно опрашивать порты и если при подключении к порту подключения не произошло , то это значит что порт занят.
И вот тут уже да можно использовать Active и смотреть подключился порт или нет .


РЕШЕНО.