Jeemon SysDep listSerialPorts WinXP

(13 posts) (3 voices)

Tags:

No tags yet.

rinie

My registry has an additional
Winachsf0 in HKEYLOCALMACHINE\HARDWARE\DEVICEMAP\SERIALCOMM
So I get usb-A7004IbLA COM1 instead of usb-A7004IbLA COM4

Possible fix:
# 2010-02-21 tested on Win2K and Win7
proc RawListSerialPorts {} {

    set k1 {HKEYLOCALMACHINE\HARDWARE\DEVICEMAP\SERIALCOMM}

    set k2 {HKEYLOCALMACHINE\SYSTEM\CurrentControlSet\Services\Serenum\Enum}

    set i -1

    set n [registry get $k2 Count]

    set result {}

    foreach v [registry values $k1 Device] {

      if {[incr i] >= $n} break

      set desc [registry get $k2 $i]

      if {} $desc - serial]} {

        lappend result usb-$serial [registry get $k1 $v]

      }

    }

    return $result

}

Posted 21/03/2010 15:15:14

jcw

Great, thanks!!! I've applied your change, it'll be in your JeeMon setup the next time you launch it. Please let me know whether the FTDI serial numbers match up better with COM ports on Windows now.

Posted 21/03/2010 22:56:56
rinie

It's unclear to me how to configure the new Jeemon.
So I took SVN and tried:
\Tcl\bin\wish86.exe kit\main.tcl JeeMon-rkr

RF12 Demo sketch now shows output.
I am currently trying to figure tcl out to add a buspirate (playing around with async i/o).

Posted 22/03/2010 08:33:59
matajumotors

Tried updated JeeMon - still problem is there. On Windows XP and Windows 7, where Bluetooth is installed (even not connected) SysDep listSerialPorts reports incorrectly.

Posted 23/03/2010 07:26:54
rinie

What are the keys in the HKEYLOCALMACHINE\HARDWARE\DEVICEMAP\SERIALCOMM section?

Posted 23/03/2010 09:48:19
rinie

I have \Device\VCP0 and \Device\Serial0
You have \Device\BtPort0 and \Device\Serial0

So the registry values $k1 Device
still matches BtPort0

So it should only match \Device\Serial? or \Device\VCP?

Posted 23/03/2010 10:07:22
matajumotors

Here are my registry entries if it helps
http://kaspars.id.lv/rf12b/serreg1.zip

Posted 23/03/2010 18:46:50

rinie

Ok. I think the RawListSerialPorts is broken on windows. Code should look in serenum for FTDI ports Then use that value to lookup the portname in the FTDIBUS enum Fix is:

    # 2010-02-21 tested on Win2K and Win7
    proc RawListSerialPorts {} {
      set k1 {HKEYLOCALMACHINE\SYSTEM\CurrentControlSet\Enum}
      set k2 {HKEYLOCALMACHINE\SYSTEM\CurrentControlSet\Services\Serenum\Enum}
      set i 0
      set n [registry get $k2 Count]
      set result {}
      while {$i < $n} {
        set desc [registry get $k2 $i]
        if {} $desc - serial]} {
          set k3 "$k1\\$desc"
          set f [registry get $k3 FriendlyName]
          set k4 "$k3\\Device Parameters"
          set p [registry get $k4 PortName]
          Log . "usb-$serial Port:$p Friendly: $f"
          lappend result usb-$serial $p
        }
        incr i
      }
      return $result
    }


				Posted 08/04/2010 15:54:15


	
		
			
								
					jcw

				
			
			
				
Thanks, that's a big help - I can't easily test different ways the Windows registry is used, and mine is probably not a typical setup. I've committed your change, with some tweaks - could you please verify that it works? Just restart JeeMon and it'll self-update.



				Posted 08/04/2010 18:14:03
			
		
	
	
		
			
								
					rinie

				
			
			
				
Updated from SVN (and got the Wiki too ;).
Works like a charm

09:02:08.859   server Starting web server at http://127.0.0.1:8080/ ...
09:02:18.093    event add usb-A7004IbLA COM4
Found Buspirate at usb-A7004IbLA
09:02:44.406    event add usb-A6008bJvA COM7



				Posted 10/04/2010 07:04:18
			
		
	
	
		
			
								
					rinie

				
			
			
				
Would you mind adding support for usbser devices (CUL, IR Toy, ez430-chronos)
E.g:
 
    16:08:36.692    event add usb-5&2ccefc1e&0&2 COM11
    16:08:36.739    event add usb-5&3b5ee30c&0&1 COM12
Windows code 
    # 2010-02-21 tested on Win2K and Win7
    # 2010-04-08 improved version, see http://talk.jeelabs.net/topic/208
    proc RawListSerialPorts {} {
      set ccs {HKEYLOCALMACHINE\SYSTEM\CurrentControlSet}
      set enum "$ccs\\Services\\Serenum\\Enum"
      set n [registry get $enum Count]
      set result {}
      for {set i 0} {$i < $n} {incr i} {
        set desc [registry get $enum $i]
        if {} $desc - serial]} {
          set p [registry get "$ccs\\Enum\\$desc\\Device Parameters" PortName]
          # Log . {usb-$serial Port: $p\
                      Friendly: [registry get "$ccs\\Enum\\$desc" FriendlyName]}
          lappend result usb-$serial $p
        }
        
      }
      set enum "$ccs\\Services\\usbser\\Enum"
      set n [registry get $enum Count]
      for {set i 0} {$i < $n} {incr i} {
        set desc [registry get $enum $i]
       if {(.)\B(.)$} $desc - tja vid serial]} {
          set p [registry get "$ccs\\Enum\\$desc\\Device Parameters" PortName]
          # Log . {usb-$serial Port: $p\
                      Friendly: [registry get "$ccs\\Enum\\$desc" FriendlyName]}
          lappend result usb-$serial $p
       }
        
      }
      return $result
    }



				Posted 21/04/2010 14:09:41
			

		
	

	
		
			
								
					jcw

				
			
			
				
Thanks!
I've added equivalent code (I think):
    # 2010-04-21 improved version, see http://talk.jeelabs.net/topic/208
    proc RawListSerialPorts {} {
      set result {}
      set ccs {HKEYLOCALMACHINE\SYSTEM\CurrentControlSet}
      foreach {type match} {
        Serenum {^FTDIBUS.6001.(\w+)}
        usbser  {^USB\B.\B(.)$}
      } {
        # ignore registry access errors
        catch {
          set enum "$ccs\\Services\\$type\\Enum"
          set n [registry get $enum Count]
          for {set i 0} {$i < $n} {incr i} {
            set desc [registry get $enum $i]
            if {[regexp $match $desc - serial]} {
              set p [registry get "$ccs\\Enum\\$desc\\Device Parameters" PortName]
              # Log . {usb-$serial Port: $p\
                        Friendly: [registry get "$ccs\\Enum\\$desc" FriendlyName]}
              lappend result usb-$serial $p
            }
          }
        }
      }
      return $result
    }
Had to add a catch around each of these since the registry get failed on my WIn2k test setup. Haven't checked XP or W7. The JeeMon kit distribution has been updated.
Cool - I didn't know about \B for avoiding backslash doubling issues. Nice trick!



				Posted 21/04/2010 15:10:27
			
		
	
	
		
			
								
					rinie

				
			
			
				
Nice, thanks! Now I can play with all my USB serial toys through Jeemon.



				Posted 22/04/2010 06:16:58