Discussion :

[manue22]

Bonjour à tous,

Désirant communiquer avec plusieurs appareils via Ethernet, j'utilise donc des ports série virtuels. J'ai rajouté la vspdtcl dans mon projet VB et copier ces différentes fonctions de création et suppression de port com dans un module de mon projet. Donc quand je veux communiquer avec un appareil en particulier je choisis de créer la paire de port com désirée, j'ouvre un des port com virtuel dans mon interface de communication et l'autre dans mon interface d'exploitation. Quand je veux stopper cette communication je supprime la paire de port com créée. Mon pb, c'est qu'il y a des moments où ça marche très bien et d'autre VB me dit que le port que j'ouvre dans mon interface d'exploitation est déjà ouvert, alors que je viens de lancer mes programmes..C'est un peu la confusion avec mes ports com virtuels. Dans la bibliothèque vspdctl.dll, j'utilise juste "Createpair", "Deletepair", et "Deleteall" à la fermeture de mon interface de communication. Est-ce que quelqu'un à déjà fait ce genre de chose et pourrai me conseiller sur l'utilisation des ports com virtuels?

[La Praline]

Bonjour,

Peut êter que si tu nous fournissais ton code, la résolution de ton problème et l'explication qui va avec serait plus rapide/efficace/agréable/etc..

Merci d'avance

Cordialement

[manue22]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
If UNIT(Index).communication = False Then 'si ports ouverts, fermeture    
    Port1 = Trim(Str(UNIT(Index).portcom))  
    Port2 = Trim(Str(UNIT(Index).portvirt))
    Port1 = "COM" + Port1             'mise en forme    
Port2 = "COM" + Port2
    Call CreatePair(Port1, Port2)          'création de la paire de port com    
    otimer = Timer                          'attente de création
    While (CreatePair(Port1, Port2) = False) And (Abs(otimer - Timer) < 1)
    Wend
 
    Open App.Path + "\Portcom" For Output As #1 'écriture port com pour récupération par l'exploitation
        Print #1, Trim(Str(UNIT(Index).portcom))   'valeur de portcom avec lequel le logiciel d'exploitation doit s'ouvrir        
        Print #1, Trim(UNIT(Index).ident)           'identifiant que le logiciel doit reconnaître
Close #1
 
     Call CONNEXION_com2(Index)   'connexion au port virtuel correspondant au num du matériel    
   Command3(Index).Picture = LoadPicture(App.Path + "\connexion_ok1.bmp")
    UNIT(Index).communication = True   'indicateur de communication à true
 
    'Lancement du prog d'exploitation correspondant au système    
    chemin = App.Path + "\" + UNIT(Index).exploitation 'chemin de l'executable
    retval = Shell(chemin, 1)        
Else
    UNIT(Index).communication = False   'si la paire était ouverte on la ferme
    Command3(Index).Picture = LoadPicture(App.Path + "\connexion_no1.bmp")
    Port1 = Trim(Str(UNIT(Index).portcom))  'récupération de la paire de ports 
    Port2 = Trim(Str(UNIT(Index).portvirt))
    Port1 = "COM" + Port1                   'mise en forme
    Port2 = "COM" + Port2
    MSComm2(Index).PortOpen = False
    Call DeletePair(Port1)
    otimer = Timer                          'attente de suppression
    While (DeletePair(Port1) = False) And (Abs(otimer - Timer) < 1)
    Wend
 
End If

[Delbeke]

Je ne connais pas cette librairie, donc je peux pas trop aider. Mais une petite remarque quand même. Dans tes boucles d'attente, tu devrais mettre un DoEvents pour que Windows aie la main pour faire le boulot.
Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
While (DeletePair(Port1) = False) And (Abs(otimer - Timer) < 1)
 DoEvents
Wend

[manue22]

J'avais mis des "Do events" dans les boucles et je les ai enlevés, je ne sais plus trop pourquoi, surement d'autres soucis ailleurs, mais tu as raison je vais les remettre..merci de me l'avoir fait remarqué..

[La Praline]

Bonjour,

Pourrais-tu éditer ton code afin de placer les balises [code] ... [/code] autour de ce dernier...

Ce sera nettement plus facile pour nous de déchiffrer...
D'avane merci


Cordialement