Virtual serial port et VB

Version imprimable

19/04/2007, 09h16
manue22

Virtual serial port et VB

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?
19/04/2007, 09h28
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

Code:

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

19/04/2007, 09h40
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:

1 2 3 While (DeletePair(Port1) = False) And (Abs(otimer - Timer) < 1) DoEvents Wend
19/04/2007, 09h47
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é..
19/04/2007, 10h04
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
19/04/2007, 10h53
pmboutteau

ce système pourrait me permettre d'utiliser plusieurs webcam identiques?
19/04/2007, 11h45
manue22

A vrai dire je ne sais pas trop..Dans mon cas, je communique via Ethernet avec une carte maître d'un réseau sans fil (zigbee). Chaque appareil possède sa propre interface d'exploitation de donnée. L'utilisation des paires de port com virtuel se fait entre l'interface réseau et les interfaces d'exploitation..la seule connexion matérielle est la liaison ethernet, je n'ai donc pas de pb de driver ou autre..mais j'ai d'autres soucis. Tu peux avoir un port physique dans une paire de port virtuel.
Si tu veux te renseigner un peu, j'utilise VSPD Xp de chez eltima (il y a une version de démo)

http://www.eltima.com/help/vspdxp/