ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Echange d'informations entre deux applications VFP   


L'auteur

FredA
France France
Membre Simple
# 0000000005
enregistré le 12/10/2004

Fiche personnelle

Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Echange d'informations entre deux applications VFP
# 0000000237
ajouté le 07/09/2005 18:03:25 et modifié le 07/09/2005
consulté 9294 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
Zoomer sur l'image

Télécharger le ZIP (4.75 Ko)
Description
Cet exemple montre comment échanger des valeurs numériques entières nommées entre deux applications (exe) VFP
Elle utilise 3 fonctions de l'API
FindWindow pour detecter le handle de la fenêtre visée
SetProp pour créer une propriété nommée sur ce handle et y stocker une valeur
GetProp pour aller lire cette valeur

Merci à GriggieBoy
Commentaires
le 07/09/2005, Thierry a écrit :
Une idée en passant (plus besoin de cliquer sur LIRE) :

(VFP9 uniquement)


PROCEDURE FORM.INIT

DECLARE LONG SendMessage IN "user32" LONG hWnd, LONG wMsg, LONG wParam, LONG lParam
#define WM_USER 0x0400
BindEvent(this.HWnd,WM_USER,this,"message")

PROCEDURE Command2.click && bouton Ecrire
...
#define WM_USER 0x0400
sendmessage(targethwnd, WM_USER,0,0)

PROCEDURE FORM.MESSAGE && nouvelle méthode
LPARAMETERS hWnd as Integer, Msg as Integer, wParam as Integer, lParam as Integer
thisform.command1.Click && bouton lire
le 08/09/2005, FredA a écrit :
Effectivement.
Pour les versions antérieures à l'arrivée de BindEvent on peut aussi utiliser un timer.
Mais là, tout dépend des besoins de l'application.
Je pensais plus à la synchronisation de process entre deux appli (surement mon passé d'automaticien ;)
Disons que cette méthode permet d'eviter la création de fichiers de flag etc...
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3