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 ...

[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

[Vld44]

Salut,

N'aimant pas trop le principe du composant activex (à la longue cela devient lourd à gérer si ils se multiplient) j'ai opté pour une solution dégradée mais convenant à mes besoins.

app1.exe
app2.exe
- form1.frm

app1.exe : postmessage to form1.frm (message de type long)
app2.form1.frm : getmessage

3 apis à déclarer et le tour est joué.
Néanmoins, c'est limité par rapport à ta solution Delbeke car on ne peut par ce moyen envoyer un message string que d'au plus 4 caractères (de façon à respecter la capacité max d'un long)

Voilà, a+

[avigeilpro]

Je ferais juste deux petites suggestions :
- Pourquoi ne pas mettre le Tag en tant que propriété, l'avantage serait que l'utilisateur du control n'aurait pas besoin de refaire passer à chaque fois le tag en paramètre.
- De plus, pourquoi n'as tu pas opté pour la solution de réccupérer le Handle de la feuille avec Parent ? Cela aurait aussi permi d'enlever un paramètre, et au passage d'éviter (peut-être) à l'utilisateur de faire appel à la méthode HookWindow en le faisant automatiquement.

Sinon superbe travail

[Delbeke]

Je ferais juste deux petites suggestions :
- Pourquoi ne pas mettre le Tag en tant que propriété, l'avantage serait que l'utilisateur du control n'aurait pas besoin de refaire passer à chaque fois le tag en paramètre.
- De plus, pourquoi n'as tu pas opté pour la solution de réccupérer le Handle de la feuille avec Parent ? Cela aurait aussi permi d'enlever un paramètre, et au passage d'éviter (peut-être) à l'utilisateur de faire appel à la méthode HookWindow en le faisant automatiquement.

Sinon superbe travail

Merci Avigeil,
Ce sont deux bonnes idées, j'aurais du y penser.
Maintenant, il y a un problème de compatibilité avec tous les composants que j'ai mis dans mes developpements à respecter.
Donc ca va être difficile à implémenter. ll faudrait refaire un nouveau composant avec un nom différent.

Autres inconvénients:
1° Le composant ne pourrait plus adresser qu'un autre projet, alors qu' actuellement on peut faire un senddata avec des mark différents (posibilité que je n'ai jamais utilisé par ailleurs) , pour eviter, on pourait implementer senddata avec le mark optionnel.
2° Le composant serait démarré automatiquement au chargement de la feuille, on n'aurait donc plus la maitrise. (ce qui à mon avis n'est pas tres important)