Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c
3-63943
ki11er
2003-03-03 13:38
2003.03.20
Delphi, SQL, таблица, индекс... Проблемы...


3-63964
Ipx
2003-02-27 15:57
2003.03.20
Удаление строк из таблиц MSAccess с эффектом


6-64271
бродяги
2003-01-29 13:33
2003.03.20
Защищенная сессия


14-64335
pasha676
2003-03-04 16:10
2003.03.20
Компонентик изображающий индикатор


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




   Наверх