Отправлено -=John=- 25 марта 2005 г. 15:05 В ответ на: Как проинициализировать СОМ-порт в PC? Имеется ввиду утановка выходных пинов: DTR и т.д. отправлено 123 25 марта 2005 г. 14:08

{---------------------------------}
// Специальные функции управления доступными ножками порта
procedure TML_RS.ClrDTRPin;
begin
  EscapeCommFunction ( idComm, CLRDTR );
end; // TML_RS.ClrDTRPin
{---------------------------------}
procedure TML_RS.SetDTRPin;
begin
  EscapeCommFunction ( idComm, SETDTR );
end; // TML_RS.SetDTRPin
{---------------------------------}
procedure TML_RS.ClrRTSPin;
begin
  EscapeCommFunction ( idComm, CLRRTS );
end; // TML_RS.ClrRTSPin
{---------------------------------}
procedure TML_RS.SetRTSPin;
begin
  EscapeCommFunction ( idComm, SETRTS );
end; // TML_RS.SetRTSPin
{---------------------------------}
function TML_RS.IsCTSPinOn : boolean;
var
  L : dword;
begin
  GetCommModemStatus ( idComm, L );
  Result := ( L and  MS_CTS_ON ) <> 0;
end; // TML_RS.IsCTSPinOn
{---------------------------------}
function TML_RS.IsDSRPinOn : boolean;
var
  L : dword;
begin
  GetCommModemStatus ( idComm, L );
  Result := ( L and  MS_DSR_ON ) <> 0;
end; // TML_RS.IsDSRPinOn
{---------------------------------}
function TML_RS.IsRIPinOn : boolean;
var
  L : dword;
begin
  GetCommModemStatus ( idComm, L );
  Result := ( L and  MS_RING_ON ) <> 0;
end; // TML_RS.IsRIPinOn
{---------------------------------}
function TML_RS.IsDCDPinOn : boolean;
var
  L : dword;
begin
  GetCommModemStatus ( idComm, L );
  Result := ( L and  MS_RLSD_ON ) <> 0;
end; // TML_RS.IsDCDPinOn