[alexvolnorez]

Порт монитор у меня есть, но в нем не видно почему не приходят ответы от устройства. А вот за вторую программку спасибо, буду разбираться.

Да вот еще попытался создать функцию инициализации компонента BComPort программным способом в библиотеке создался а вот при вызове закрывает вызывающую программу.

Код:

function InitCOM(PortNum: string): ShortInt; Export;
begin
  Result:= -1;
  try
    CP:= TBComPort.Create(nil);
    with CP do begin
      BaudRate:= br9600;
      ByteSize:= bs8;
      CTPriority:= tpNormal;
      InBufSize:= 2048;
      OutBufSize:= 2048;
      Parity:= paNone;
      Port:=(PortNum);
      StopBits:= sb1;
      SyncMethod:= smThreadSync;
      Timeouts.ReadInterval:= -1;
      Timeouts.ReadTotalMultiplier:= 0;
      Timeouts.ReadTotalConstant:= 150; //150ms //5000; //5sec
      Timeouts.WriteTotalMultiplier:= 100;
      Timeouts.WriteTotalConstant:= 1000;

      Open;
    end;
    Result:= 0;
  except
    Result:= -1;
  end;
end;