Discussion :

[dadouuuu]

Bonjour,

Je suis entrain de créer un programme en Delphi6 et j'aimerais pouvoir recevoir des messages via une dll.

J'ai trouver ce code (ici) qui colle a peu près à mes attentes mais je voudrais quelques informations supplémentaire

Dans cet exemple, on récupère les informations quand on clique sur le bouton ... moi je voudrais les recevoir automatiquement
Dois je créer un timer pour interroger la dll constamment ou existe t'il un évènement ?

Merci

[ShaiLeTroll]

Tout dépend de ta DLL
Est-ce que tu en es l'auteur ?
Si oui, tu pourrais ajouter une CallBack procédure (voir EnumWindows comme exemple de CallBack) et donc la DLL irait lancer le code fourni par l'application

Si non, voir si un CallBack est disponible
Si non, effectivement, le Timer reste la solution la plus simple !

[dadouuuu]

Oui c'est moi l'auteur de la dll
Je vais me renseigner sur les CallBack, merci pour la piste ShaiLeTroll

[dadouuuu]

bon j'ai potasser un peu google, je n'ai pas trouver d'exemple congrès à mon utilisation

de ce que j'ai compris, je dois dans la fonction de ma dll, faire appel à EnumWindows en pointant vers l'adresse de la fonction de mon exécutable ? c'est bien ca Shai ?

[ShaiLeTroll]

Non, EnumWindows c'est un exemple d'appel côté Application d'un CallBack EnumWindowsProc, ça serait bien de t'entrainer à utiliser un CallBack de windows tout prêt, une fois que tu maitrise le principe, tu pouvais passer à faire le tien

Côte DLL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
type
  TEventProc = procedure(AMsg: PChar); stdcall; 
 
var
  _EventProc: TEventProc;
 
procedure SetEvent(lpEventProc: TEventProc); stdcall; // exportable
begin
  _EventProc := lpEventProc; // tu le stocke dans une var ou dans un objet, à toi de voir aussi le multi-thread ... GetCurrentThreadId peut aider à gérer un tableau de TEventProc différent pour chaque thread
end;
 
procedure DoEvent(const Chaine: string); // méthode interne de ta DLL
begin  
  if Assigned(_EventProc) then
   _EventProc(PChar(Chaine));
end;

Dans ton code de la DLL qui doit envoyer la chaine, tu appele DoEvent




Côté Appli

tu as fait des external ou LoadLibrary\GetProcAddress selon ce que tu préfères, je préfère le faire manuellement, cela rend ton appli moins dépendante de la DLL si la fonctionnalité n'est pas utilisé systématiquement

tu dois aussi déclarer fonction et type
En général, lorsque je développe une DLL, je fais aussi son header avec la déclaration des types et des fonctions (des wrapper qui me font LoadLibrary\GetProcAddress), cela évite de le refaire si la DLL est utilisé dans plusieurs applis

Code :

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

1
2
3
4
5
6
7
8
9
type
  TEventProc = procedure(AMsg: PChar); stdcall; 
 
procedure SetEvent(lpEventProc: TEventProc); stdcall; external ...
 
procedure MaProc(AMsg: PChar); stdcall; 
begin
  ShowMessage(AMsg);
end;

quelque part tu appele

Code :

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

  SetEvent(MaProc); // ou @MaProc Delphi se débrouille avec les pointeurs de procédure ...