Discussion :

[potili2]

j'ai un programme Delphi A avec des procédures du type

Code :

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

procedure TForm1.Button1Click(Sender: TObject);

j'aimerais effectuer cette procédure en la déclenchant à partir d'un second programme Delphi B.
Comment faire? J'avoue ne pas avoir trouvé.
merci
Jean Pierre

[Dunsany]

Bonsoir,

D'habitude pour lancer un traitement on appelle une routine de l'exécutable, éventuellement une fonction dans une DLL, plus rarement une fonction dans un autre exécutable (avec passage de paramètre au lancement de l'exe), mais à priori jamais (sauf erreur de ma part) dans la procédure évènementiel d'un autre exécutable...
Quel est le but de la manoeuvre ?

[potili2]

le programme A effectue certaines taches automatisées d'un logiciel de bourse (une bonne trentaine)
je voudrais, avec le programme B choisir d'effectuer certaines de ces tâches à la demande.
donc le but est de "faire comme si" j'appuyais sur le bouton 1 de A avec B

[Bleys]

Bonsoir,

regarde ici

[CapJack]

Puisque tu disposes du code source des deux programmes, je ne vois vraiment pas pourquoi faire aussi compliqué !

Il suffit de délocaliser le code commun aux deux programmes dans une DLL... Copier/coller !

[Graffito]

Bonjour,

le but est de "faire comme si" j'appuyais sur le bouton 1 de A avec B

B doit donc envoyer à A des messages qui dans ce cas se résument à la simple identification de l'action.

Quelques solutions, entre autres :
1) IP : A avec un TCP/IP serveur - B avec TCP/IP client

2) DCOM : toujours une bonne solution, mais dans ce cas c'est un marteau pilon pour ...

3) Fichier : le + simple à implémenter :

• A crée un fichier avec extension .att (attente) par bouton dans un répertoire dédié aux communications A-B,
• B renomme le fichier correspondant au bouton en .req(requete) , en cas d'erreur, c'est que A n'est pas actif ou qu'une autre instance de B a dèjà fait la demande,
• A regarde périodiquement si il existe des fichiers renommés (.req) : si oui il exécute l'action et à la fin, renomme le .req en .att,
• B sait que son action a été excutée si le fichier qu'il a passé de .att en .req est repassé en .att.
• A la fin, A détuit tout les fichiers d'échanges

B peut même mettre des paramètres d'entrée dans le fichier et A des params de sortie.

L'utilisation du rename des fichiers permet de gérer propprement les accès concurrents de 2 instances de B.