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