Delphi如何检查cport状态？

Question

如何使用ComLed或标签显示启用/禁用来检查cport状态。

我已经尝试If Cport1.Connected then 但它不满足我，状态不断告诉我连接，即使我不是。

这里有没有人有更好的解决方案？

注意：我用计时器检查端口状态。

Answer 1

如果我正确理解你的问题，首先你会发现，这个代码连接到设备的端口：

Procedure FindPorts(S:TStrings); 
var 
    r:TRegistry; 
    i:Integer; 
Begin 
    R:=TRegistry.Create(KEY_READ); 
    R.RootKey:=HKEY_LOCAL_MACHINE; 
    if R.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM',False) then 
    Begin 
    R.GetValueNames(S); 
    for i:=0 to S.Count-1 do 
     S[i]:=R.ReadString(S[i]); 
    End; 
    R.CloseKey; 
End;