Communication entre une application VB.Net et une application VB6

Version imprimable

17/01/2014, 14h46
Egurkari

Communication entre une application VB.Net et une application VB6

Bonjour,

Pourriez vous m'indiquer quelques pistes pour faire communiquer une application VB.Net et une application VB6 svp.

En gros, l'application VB.Net doit demander à l'application VB6 d'afficher des données graphiques, la fonction VB6 en charge de faire cela étant à l'heure actuelle bien trop complexe pour la porter en VB.Net ...

Merci d'avance pour vos conseils éclairés,

Cordialement,

Egurkari

PS : peut-être faut-il que je poste également ce message dans le forum VB6 ...
17/01/2014, 15h38
Pol63

as tu au moins googlé ??
parce qu'il y a des tas de réponse ...

il y a d'ailleurs une dll pour faire ca qui a déjà circulé sur ce forum
sinon par tcp/ip
17/01/2014, 15h48
Egurkari

Citation:

Envoyé par Pol63

as tu au moins googlé ??
parce qu'il y a des tas de réponse ...

il y a d'ailleurs une dll pour faire ca qui a déjà circulé sur ce forum
sinon par tcp/ip

Oui Google a déjà été parcouru ... et bien sur un tas de réponses trouvées : sockets, remoting, WCF, SendMessage ... Malheureusement mes compétences dans la communication inter-processus étant très limitée, je n'arrive pas à y voir clair !

Tu parles d'une dll ? Tu peux me pointer l'article stp ?
17/01/2014, 16h12
Pol63

si je l'avais retrouvé j'aurais mis un lien

j'ai trouvé ca qui convient peut etre :
http://www.codeproject.com/Articles/...ication-via-Wi

sinon par tcp/ip c'est juste des échanges d'octets (ou de string) ca ne sert pas qu'à faire des échanges inter processus, c'est très généraliste
l'une des 2 applis doit écouter sur un port
l'autre appli se connecte sur localhost:LePortChoisit
et après il suffit de créer un protocole de communication (genre envoyer F001 doit ouvrir telle fenetre sur l'autre appli)
17/01/2014, 16h28
Egurkari

Citation:

Envoyé par Pol63

si je l'avais retrouvé j'aurais mis un lien

j'ai trouvé ca qui convient peut etre :
http://www.codeproject.com/Articles/...ication-via-Wi

Je regarde ça, cela semble coller à mon cas ...

Citation:

Envoyé par Pol63

sinon par tcp/ip c'est juste des échanges d'octets (ou de string) ca ne sert pas qu'à faire des échanges inter processus, c'est très généraliste
l'une des 2 applis doit écouter sur un port
l'autre appli se connecte sur localhost:LePortChoisit
et après il suffit de créer un protocole de communication (genre envoyer F001 doit ouvrir telle fenetre sur l'autre appli)

Par TCP, c'est alors quelle techno ? Sockets ?
17/01/2014, 17h31
Pol63

Citation:

Envoyé par Egurkari

Par TCP, c'est alors quelle techno ? Sockets ?

en vb6 c'est winsock et en .net c'est tcpclient/tcplistener selon le cas et ca encapsule la classe socket
17/01/2014, 18h45
rv26t

Bonjour,

Voici deux discussions traitant l'utilisation d'une dll vb6 avec un progrmme vb.net.
ici (détail à partir du post 8) et là (détail à partir du post 13).

Il y a aussi un tuto traitant du sujet sur DVP, mais je ne l'ai pas retrouvé.
17/01/2014, 20h43
clementmarcotte

Bonjour,

Tu peux aussi jeter un œil sur cet article microsoftien conçu et écrit en français. Ce n'est pas vraiment spécifique à ta question, mais cela donne un canevas des procédures à effectuer. Il y a aussi un lien pour télécharger un exemple. (J'espère qu'il fonctionne toujours.)

http://msdn.microsoft.com/fr-fr/library/bb727303.aspx

bonjour

Une possibilite si tu as le code source bien sur c'est
1/ Recompiler tel quel en projet ActiveX EXE vb6...
2/ Les datas "transmis" par vb.net seront exposes en tant que props
dans ton projet reconfigure en ActiveX EXE vb6

3/ Rajouter un module class Util à ton projet
3/ class Util doit exposer :
-un procedure Publi Start() dont le seul role sera le point d'entree de ton projet...
-un procedure Public SetData(param1,param2,param3 ,etc) dont le role sera de recuperer les donnees datas depuis vb.net...

code vb6 du form de demarrage(frmActiveX) de ton projet ActiveX EXE :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private mvardata1 As Integer 'local copy Private mvardata2 As Double 'local copy Private mvardata3 As String 'local copy Private Sub Command1_Click() Text1.Text = data1 Text2.Text = data2 Text3.Text = data3 End Sub Public Property Let data3(ByVal vData As String) 'used when assigning an Object to the property, on the left side of a Set statement. 'Syntax: Set x.Data3 = Form1 mvardata3 = vData End Property Public Property Get data3() As String 'used when retrieving value of a property, on the right side of an assignment. 'Syntax: Debug.Print X.Data3 data3 = mvardata3 End Property
code .vb6 du class Util à rajouter à ce projet:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private frm As frmActiveX Public Sub Start() Set frm = New frmActiveX frm.Show End Sub Public Sub SetDatas(dt2 As Double, dt3 As String, dt1 As Long) frm.data1 = dt1 frm.data2 = dt2 frm.data3 = dt3 End Sub
Le nom du projet ActiveX Exe etant denomme par ActiveXUTIL.exe(page de proprietes du projet vb6),apres ajout de sa reference dans le projet vb.net sera utiliser avec le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Imports ActiveXUTIL Public Class Form1 Private UT As Util Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click UT = New Util UT.Start() UT.SetDatas(15.45, "alpha", 17) End Sub End Class
Evidemment il faut etre attentif au marshalling des types...
Tu peux manipuler tous les objets du projet ActiveX EXE à condition d'avoir une ref sur eux (prop) dans le "component" class Util....
bon code....