Aide pour Timer dans Dll

Bonjour à tous,

voilà je bloque depuis un moment sur la création d'un timer dans une Dll . Je cherche à utiliser un timer dans une dll mais qui est chargée par un autre process dont je ne maîtrise pas le code. Le seul lien que j'ai entre ma dll et mon programme ce fait via memory mapped file
Pouvez vous me donner un coup de pouce

cordialement

Oscar02

Pourtant le TTimer crée sa propre fenêtre avec un AllocateHWnd ?
Je me demande si le thread de la DLL doit faire un PeekMessage/DispatchMessage et cela me semble difficile faire une boucle de message dans une DLL hormis dans un TThread

Je serais toi, je ferais un TThread, avec comme temps d'attente du TEvent, le temps du timer
Tu auras un comportement similaire à un TTimer
En tout cas, c'est comme cela que je le faisais

Je suis ouvert à ta proposition, mais j'ai tester différent code de thread sur le net et je n'arrive pas à le faire fonctionner , je te donne plus de détails tous à l'heure

Citation:

---

Envoyé par ShaiLeTroll

Je me demande si le thread de la DLL doit faire un PeekMessage/DispatchMessage et cela me semble difficile faire une boucle de message dans une DLL hormis dans un TThread

---

Oui, il faudrait obligatoirement une boucle de messages dans le thread mais TTimer n'est pas thread-safe. A éviter !
+1 pour l'Event.

Bonsoir à tous,

voilà je vous donne plus de détails .

Je code une dll qui a différentes fonctions , et qui est charger par un process qui n'est pas codé par moi. Mais ce n'est pas un soucis elle ce charge correctement. Dans cette dll j'y est inclus un memory mapped file pour communiquer entre ma dll et mon programme.
Ce que je souhaite faire, c'est avoir dans cette dll un thread ou timer qui puisse être à l'écoute de ma variable de mon mapped file. Si variable est à 1 alors mon timer ou thread appel une function de ma dll sinon rien. Cette fonction n'agis pas sur mon programme qui envoi la variable 1, mais sur l'autre process.

Voilà j'espère avoir expliquer correctement

Merci encore de votre aide

Oscar02

Salut à tous

Avez vous eu le temps de réfléchir à ma demande ?

Cordialement

Oscar02

Dire "ça ne marche pas" n'est jamais très constructif ! Où est-ce que ça coince ?

Le thread doit être démarré depuis DLL_PROCESS_ATTACH et libéré depuis DLL_PROCESS_DETACH.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

library MaDLL;   procedure DllEntryPoint(dwReason :dword); begin case dwReason of Dll_Process_Attach : Thread := TMonThread.Create; Dll_Process_Detach : Thread.Free; end; end;   begin DLLProc := @DllEntryPoint; DLLEntryPoint(Dll_Process_Attach); end.

---

Le fichier mappé est-il vraiment la meilleure solution ? Y a-t-il partage de données ? S'il ne contient qu'un flag de synchro, il est parfaitement inutile. Le thread en attente d'un Event activé par ton programme est suffisant. Je rappelle qu'un Event est partagé par tous les processus d'une même session, voire tous les processus du système si son nom est préfixé par Global\.

Exe :

Code:

---

1 2 3 4

procedure DllStart; begin StartEvent.SetEvent; end;

---

DLL :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TMonThread.Execute; begin while not Terminated do begin //Attente if StartEvent.WaitFor(1000) = wrSignaled then begin StartEvent.ResetEvent;   //Traitement ... end; end; end;

---

S'il y a effectivement partage de données, il faudrait deux Events : un de démarrage pour faire sortir la DLL du mode attente et un de fin pour avertir le programme que l'exécution est terminée, qu'il peut écrire de nouvelles données.

Exe :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure DllStart; begin //Attend que la DLL ait terminé l'action précédente WaitEvent.WaitFor(INFINITE);   //Nouvelles données ...   //Redémarre WaitEvent.ResetEvent; StartEvent.SetEvent; end;

---

DLL :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

//Thread procedure TMonThread.Execute; begin while not Terminated do begin //Attente if StartEvent.WaitFor(1000) = wrSignaled then begin //Traitement ...   //Prêt StartEvent.ResetEvent; WaitEvent.SetEvent; end; end; end;

---

Merci pour toute ces explications. Je vais faire des essais selon tes conseils et je vous tiens au courant

Cordialement

Oscar02