Discussion :

[user8]

Salut tout le monde,

J'ai développé une dll sous delphi utilisant un TTimer. La dll a besoin d'effectuer des taches toutes les n secondes.

Si je branche cette dll via une application delphi tout se passe bien.
Par contre, je rencontre un problème si je branche ma dll sur une application Java. L'evenement OnTimer n'est jamais exécuté. Je soupçonne un problème lié aux messages windows. Je pense que ma dll n'est jamais notifié de la réception par l'application du message WM_TIMER. Qu'en pensez vous?

Connaissez vous une solution?

Merci d'avance.

[ShaiLeTroll]

Ton Timer est juste à l'intérieur de la DLL, elle en fait quoi de l'évènement, elle appelle une procédure type CallBack ou alors juste un traitement interne ?

Sinon, je répète, qu'un thread démarré avec DllEntryPoint serait plus efficace et plus maitrisable ...

[user8]

En faite, je ne gère pas l'évènement c'est le timer qui est censé le récupérer pour exécuter dans le OnTimer un traitement interne.

Je vais développer un Timer Perso basé sur un thread qui attend et pas sur les évènements Windows.

Quelle est l'utilité du DllEntryPoint? je ne connais pas.
Mon timer perso sera un composant réutilisable aussi bien dans une dll que dans un exécutable...dans ces conditions dois-je utiliser DllEntryPoint?

Merci pour ton aide.

[0x44-0x43-0x53-0x43]

Essay avec l'API SetTimer(...); c'est plus efficace que d'utiliser les timer de la VCL surtout pour un usage externe !

[ShaiLeTroll]

le DLLEntryPoint c'est lorsque tu charges la DLL, tu peux vouloir lancer le Timer dès le chargement (LoadLibrary) sans nécessairement devoir appeler une fonction ... pour le thread, t'emmerde pas cela a déjà été écrit,

ça donne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
type
  TTimerThread = class(TThread)
  private
    FDelay: Cardinal;
    FEvent: TThreadMethod;
  protected
    procedure Execute; override;
  public
    constructor Create(ADelay: Cardinal; AEvent: TThreadMethod);
 
    property Delay: Cardinal read FDelay; // en milli-secondes
    property Event: TThreadMethod read FEvent;
  end;

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
18
constructor TTimerThread.Create(ADelay: Cardinal; AEvent: TThreadMethod);
begin
  inherited Create(True);
 
  FDelay := ADelay;
  FEvent := AEvent;     
 
  Self.Resume();
end;
 
procedure TTimerThread.Execute();
begin
  while  not Terminated do
  begin
     Sleep(FDelay); // à souvent 0.95 milli-secondes de retard :mouarf:, mais tu as un besoin moins précis, il me semble
     Event();
  end;
end;

[user8]

Merci à vous 2.

0x44-0x43-0x53-0x43: SetTimer n'utilise pas les messages Windows?

ShaiLeTroll: Merci pour toutes les infos. Je vais partir sur cette voie. J'ai également trouvé cette source qui est pas mal: http://www.gtdelphicomponents.gr/?p=178