Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс. e-mail:jobsmp@pochta.ru |
{---------------------------------}
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