Discussion :

[Oscar02]

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

[ShaiLeTroll]

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

[Oscar02]

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

[Andnotor]

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.

[Oscar02]

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

[Oscar02]

Salut à tous

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

Cordialement

Oscar02

[Andnotor]

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 :

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

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 :

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

1
2
3
4
procedure DllStart;
begin
  StartEvent.SetEvent;
end;

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

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

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 :

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