Listar puertos seriales habilitados

[Diego E.]

Hola amigos, les pido colaboración por lo siguiente, necesito saber que puertos seriales (com) están habilitados en el PC,
Conocen la forma ?

Uso Visual 6.

Muchas gracias.

Saludos.

[esteban_68]

Trata de conseguir el libro Jan Axelson "Serial Port Complete".

[PalitroqueZ]

Revisa en la web de MigSantiago

http://www.migsantiago.com/index.php?option=com_content&view=article&id=14:triques-triques-y-mas-triques&catid=2:articulo&Itemid=27

y baja el Ejemplo de detección de puertos seriales COM disponibles

[Diego E.]

Hola Pedro y Esteban, gracias por responderme, basándome un poco en el ejemplo de migsantiago elaboré esto:

Código: [Seleccionar]

For i = 1 To 16

    MSComm1.CommPort = i
    
    On Error Resume Next
    MSComm1.PortOpen = True
    If MSComm1.PortOpen = True Then Combo1.AddItem "COM" & i: MSComm1.PortOpen = False
    
Next
Combo1.Text = Combo1.List(0)

En el documento que sugiere Esteban Serial Port Complete(*) encuentro esto

Código: [Seleccionar]

Dim nameArray() As String
nameArray = SerialPort.GetPortNames
Array.Sort(nameArray)
Me parece interesante probar también con este método, trato de cargar este código en el form load() pero me sale error con Array.Sort(nameArray), si lo deshabilito el error desaparece pero el array no se carga con ningún valor, algien ha tarbajado con este método ?

Saludos.

[esteban_68]

¿estas usando VB6?

La segunda edición del libro de Axelson se suponía que solo incluye ejemplos para .NET, pero no me hagas mucho caso (yo mismo no la he leído esa última edición). No sé si todavía aparezcan en esa edición los ejemplos con llamadas APIs de VB6.

Seguramente alguien que haya manejado el puerto serial desde VB6 con migración a .NET te podrá sacar de la duda.

[Diego E.]

Hola amigos, respecto al tema que estoy trabajando con el método de iteración que publiqué arriba este funciona bien, esto lo requiero porque utilizo una aplicación con el FT232 y cada vez que conecto uno nuevo me crea un nuevo comxx.
Mi pregunta en este momento es hasta que número llegarán los comxx ?

Saludos.

[kamisama]

Pero el codigo que esta arriba es para .net la coleccion Getpornames()
En Vb.6 te conviene usar la api de windows... ahora no tengo ninguna PC con Vb.6 (el mejor lenguaje que hubo para basic) pero fijate en winapi para agregar la declaracion, es mucho mas rapido y mejor que los controles o referencias para VB y controlas mejor el error y los cuelgues.

La otra forma es leyendo el registro de windows, ahi tenes una enumeracion.

Saludos.

[Diego E.]

La otra forma es leyendo el registro de windows, ahi tenes una enumeracion.

Hola amigo, como sería esto ?

Gracias.