Liste des ports com disponibles sur le PC

[brossden]

Bonjour à tous !
Est il possible d'obtenir le liste des ports COM disponibles dur le pc !
Bonne jour née à tous

[Ollivier]

Pour noyau Linux
Pour noyau Windows

[brossden]

Merci Ollivier mais j'ai trouvé plus simple par moi-même avec cette petite appli :

Code : Tout sélectionner

For n = 1 To 15
  PortCom.s= "COM"+Str(n)
  x = OpenSerialPort(0, PortCom,9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
  If x > 0
    CloseSerialPort(0)
    Debug PortCom
  EndIf
 Next

[Ar-S]

Quel plaisir de te lire brossden !

[Ollivier]

Content de te revoir aussi.

Par contre, ta méthode simplissime mérite des explications : Si tu as un peu de temps, peux-tu préciser :
1) la version de ton système d'exploitation
2) la liste que ça t'affiche
3) la liste que le BIOS affiche
4) le nombre de connexions physiques

Sans quoi, c'est sûr, tout serait simple...

Exemple :
1) XP
2) COM3 seul disponible
3) Pas de port disponible dans le BIOS
4) Pas de connexion physique

Voilà, voilà!

[cage]

Bonjour,

Sous Windows, dans une fenêtre "Invite de commande", taper mode
Exemple:

Code : Tout sélectionner

C:\Users\admin>mode

Statut du périphérique COM4:
----------------------------
    Baud :            1200
    Parité :          None
    Bits de données : 7
    Bits d’arrêt :    1
    Temporisation :   OFF
    XON/XOFF :        OFF
    Protocole CTS :   OFF
    Protocole DSR :   OFF
    Sensibilité DSR : OFF
    Circuit DTR :     ON
    Circuit RTS :     ON


Statut du périphérique CON:
---------------------------
    Lignes :          9001
    Colonnes :        120
    Vitesse clavier : 31
    Délai clavier :   1
    Page de codes :   850


C:\Users\admin>

Exemple avec PB

Code : Tout sélectionner

ClearClipboard()
RunProgram("cmd.exe", "/c mode 2>&1|clip", #Null$,#PB_Program_Wait)
clip$ = GetClipboardText()
Debug clip$

Reste a traiter le contenu du presse papier
Autre exemple avec PB

Code : Tout sélectionner

Procedure CheckSerial()
  #BUFFERSIZE = 128
  #MAX_SERIAL = 255
  
  Protected COM$

  Protected Result.l
  Protected SName$
  
  Protected Buffer${#BUFFERSIZE}

  Buffer$ = Space(#BUFFERSIZE)
  
  Protected Serial.a
  
  For Serial = 1 To #MAX_SERIAL
    SName$ = "COM" + Serial + Chr(0)
    Result = QueryDosDevice_(SName$, @Buffer$, #BUFFERSIZE)
    If Result
      COM$ = "COM" + Str(Serial)
      Debug COM$
    EndIf
  Next
EndProcedure

CheckSerial()

cage

[Kwai chang caine]

Toujours heureux de lire de temps à autre ce bon Denis

@Cage
Cool la combine de copie dans le presse papier à partir de la console, connaissais pas.
Merci Cage

[GallyHC]

bonjour,

Dans le même style avec les bauds en plus http://www.purebasic.fr/french/viewtopi ... 10#p188810

Cordialement,
GallyHC

[brossden]

Bonjour à tous les amis !

Depuis que je suis à la retraite je n'ai plus le temps de rien faire ! lol
Mon seul soucis est de connaitre les ports com disponibles. Pour cette fonction le reste ne m'importe pas puisque on ne peux pas utiliser les ports déjà pris !
Pour ce qui est de la version Windows cela marche avec n'importe que version même le DOS ! Mais il faut l'adapter à Qbasic ! Mdr !

Aller 0+ peut être !

[Ollivier]

Toi, tu as senti le gateau!