Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Определить состояние DSR на com порте   Найти похожие ветки 

 
pasha676   (2003-01-23 10:41) [0]

Необходимо выяснить в "1" или в "0" находиться сей сигнал.
На данный момент пользуюсь ассемблерной вставкой, что то типа:
asm
mov DX,NumComm
add DX,6
in AL,DX
mov S,AL
end;
Result:=(S and $20)=0;

Как это сделать через API? На API могу отследить , увы :(, только смену сигнала (переход из 1 в 0 и наоборот), а вот какой сам сигнал?


 
Александр Спелицин ©   (2003-01-23 17:29) [1]

См. GetCommModemStatus


 
pasha676   (2003-01-23 18:56) [2]

Спасибо, посмотрю.

Уважаемые рулевые форумов, почему мой вопрос был снесен в базы данных?
Хорошо что навигация на форумах хорошо сделана, но все же сносить вопрос про com-порт в базы данных несколько не логично.


 
Stager ©   (2003-01-25 21:17) [3]

По теме: советую воспользоваться ComPort Library by Dejan Crnila. Явных глюков я пока не выявил, хотя активно использую уже около года.

Например, так я проверял наличие перемычки между DTR и DSR:

function TForm1.IsDtrDsrConnected: boolean;
begin
Result:=False;
with CommPort1 do begin
SetDTR(False);
if not (fDsrHold in StateFlags) then Exit;
SetDTR(True);
if (fDsrHold in StateFlags) then Exit;
end;
Result:=True;
end;

Согласитесь, достаточно прост в обращении.

С уважением, Алексей.


 
Stager ©   (2003-01-25 21:21) [4]

А вот, действительно, как эта тема в базы данных попала???
Я в восторге. Может быть те, кто ее сюда перенес, подскажут пару SQL-скриптов для более оптимального управления COM-портом, чем это реализовано в API? :)

С трудом сдерживая смех, Алексей.



Страницы: 1 вся ветка

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
3-64012
Сергей
2003-02-28 21:56
2003.03.20
Работа с ADO


1-64118
MyX
2003-03-10 21:41
2003.03.20
Че такое <b>inherited</b> ??


3-63962
Olivka
2003-02-22 21:49
2003.03.20
транзакции в IB (Firebird)


1-64166
X3coder
2003-03-07 13:45
2003.03.20
Ну хорошо, раз незнаете synedit попробуем по другому


3-63937
anton2v
2003-02-27 11:46
2003.03.20
ADO -> VFoxPro -> ??? Numeric(x,y) ???