Discussion :

[Delbeke]

Le composant DiConverse permet d'envoyer un texte à une autre application
*************************************************************************
Le principe de fonctionnement
Consite à marquer la fenetre pricipale de l'application receptrice avec une marque personalisée (utilisation de SetProp).
Cette fenetre est sous-classée de façon à intercepter le message WM_COPYDATA.
Quand elle recoit ce message, on deduit de la strucure COPYDATASTRUCT
Le texte reçu et le composant lève un evenement DataArrival.

Du coté de l'application emetteur, c'est encore plus simple.
On fait une énumération(EnumWindows) des fenêtres pour retrouver la fenêtre ayant la marque (GetProp) de facon à lui envoyer le message WM_COPYDATA.
*************************************************************************
Utilisation du composant
Inventez un nom unique , ce nom unique sera utilisé dans les deux applications
exemple : MonTag = "DELBEKE_TEST_1"
Dans la fenêtre receptrice :
Placez le composant sur la feuille pricipale de votre application
Dans l'evenement Form_Load, placez ce code
Converse1.HookWindow Me.hWnd, MonTag
Dans l'evenement Converse1_DataArrival
Faites le traitement la donnée reçue en parametre.


Dans la fenêtre emmetrice :
Dans la procédure qui vous convient, utilisez
Converse1.SendData LeTexteAEnvoyer, MonTag
*************************************************************************
Exemples fournis avec le composant
Envoi d'un texte a une autre application
prjReceteur.exe 'le recepteur
prjEmetteur.exe 'l'emetteur
Lancer une application , si une occurence existe déjà, envoyer la chaine de commande a cette instance au lieu de démarrer une nouvelle instance.
prjLanceChaineCommande.exe 'le lanceur de prjChaineCommande.exe
prjChaineCommande.exe 'l'appli lancée

le code est abondemment commenté

OCX DiConversel6.zip

[ThierryAIM]

Pardon pour le retard

Pas mal, et bien documenté
Même moi j'ai tout compris, c'est dire

Je l'ai aussi testé en bidirectionnel, ça fonctionne très bien

Merci à toi

[Delbeke]

Merci du compliment

[Najdar]

Pour mettre confronté à ce problème (communication entre deux applications) pendant un long moment. Je mets 5 étoiles

Après beaucoup de recherches sur le net, c'est la première fois que je trouve (par hasard) une solution propre pour transmettre des ordres (sous forme de texte) entre deux applications.

Merci

[Delbeke]

Le merci me fait grand plaisir.

[Vld44]

idem .. punaise enfin un truc qui tienne compte de la problématique émission ET réception ...

[ffreund]

Bonjour à tous,
J'ai utilisé DiConverse pour dialoguer d'un EXE à un autre mais j'ai un gros problème.

Je veux passer à un EXE une chaine, par exemple un code client.
A partir de ce code client je veux ouvrir sa fiche...
L'evenement DataArrival se déclenche bien, la chaine est nickel, par contre quand j'essaye d'ouvrir ma fiche client, j'instancie pour cela un objet COM:
Set oClient = new XXXX, et là BOUM :

Erreur n° : 2147417843
Un appel sortant ne peut pas être effectué étant donné que l'application répartit un appel entrant synchrone

En fouillant un peu sur GoogleGroups, je trouve que pour éviter ce souci il faut utiliser Postmessage plutôt que Sendmessage car Postmesssage n'attend pas de réponse du "récepteur" ...
J'ai remplacé dans ton code le Sendmessage par un Postmessage mais là le hic, c'est que l'évenement DataArrival ne se déclenche plus ....

Tu as une autre idée ??

[Najdar]

J'ai déjà une erreur de ce type en utilisant le sous-classement (méthode qui est utilisée ici). La solution que j'ai employé (mais qui me semble pas très propre) est d'utiliser un timer.

Mets un timer sur une feuille (Enable = False et Interval = 1), dans ton événement DataArrival, met Timer.Enable=True. L'événement du timer va se déclencher une fois que l'événement DataArrival sera finir et là plus de problème.
Dans l'événement du timer pense à mettre Enable = False pour qu'il ne se déclenche qu'une seule fois.

[ffreund]

et c'est dans le timer qu'il faut faire l'instanciation de l'objet COM ??

[Najdar]

et c'est dans le timer qu'il faut faire l'instanciation de l'objet COM ??

Exact !

[ffreund]

ben oui mais non
j'ai pas envie de modifier tout mon code ...

parce que des appels à des composants com j'en ai de partout !

[Najdar]

Dans ce cas tu peux modifier l'OCX pour que l'événement DataArrival ne soit pas déclenché directement à l'arrivée du message windows, mais sur un timer.

[Delbeke]

bonne idée çà ,Najdar, je vais modifier mon composant , laissez moi une heure ou deux

[Delbeke]

Voila, l'amélioration est faite, il faut recharger le zip du premier post
Normalement ca devrait résoudre le problème de Ffreund

[ffreund]

yep merci !!
je viens de mettre en place la modif proposée par Najdar et ça marche nickel !

[ffreund]

Bon il me reste un souci ....

Le programme appelé ne vient pas se mettre en premier plan..

C'est pas bien grave mais visiblement ça semble gérer dans le code mais ça ne fonctionne pas chez moi.

En fait l'application appelée clignote dans la barre des taches mais ne vient pas se mettre en premier plan... il faut cliquer dessus.

Je suis en Windows 2000 et je teste pour l'instant qu'en debug c'est peut être la cause ??

[Najdar]

Là, c'est un autre problème. Fais un post séparé avec le code de l'appel.

Merci Delbeke pour la modification

[Delbeke]

Pas de quoi, a votre service

[Vld44]

Salut,

j'ai un problème avec le converse :

Dans le form récepteur j'ai inséré cette ligne

Code :

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

Converse1.HookWindow Me.hwnd, "TAGGLE"

Malheureusement à son appel j'obtiens un "le composant activex ne peut créer l'objet"

J'ai eu beau investiguer je n'arrive pas à le faire marcher ...

Une idée ?

[Delbeke]

Pour essayer de comprendre ce qui se passe, tu crees un projet exe standard,
tu ajoutes un projet ,et la tu choisis le projet du composant DiConverse6.
Ensuite sur le projet standard, tu poses un Diconverse, un bouton de commande et tu y mets ton code (Converse1.HookWindow Me.hwnd, "TAGGLE") ce qui premettra de voir exactement ou çà se plante