Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi SetTimer in DLL - nicht aktiv? (Trotz AllocateHWnd) (https://www.delphipraxis.net/139860-settimer-dll-nicht-aktiv-trotz-allocatehwnd.html)

huelke 7. Sep 2009 01:45


SetTimer in DLL - nicht aktiv? (Trotz AllocateHWnd)
 
Hallo Zusammen,

ich schreibe grade an einem Plugin für eine FremdanbieterSoftware.
Dieses Plugin muss als DLL bereitgestellt werden.
Nun ist es aber so das mein Prototyp einen API-Timer (mittels SetTimer) verwendet.
Da mein Plugin kein WindowHandle hat, und ich das auch zu Problemen führen könnte, habe ich eine kleine Hilfsklasse erstellt.
Diese holt sich ein WindowHandle und implementiert die WndProc Procedure, so dass sie auf WindowsMessages reagieren könnte.

Das Problem ist:
Mittels SendMessage lässt sich die WndProc funktion ordnungsgemäß ausführen,
SetTimer jedoch tut garnichts, sorgt also für keine WM_TIMER Message die dann meinen Code anstoßen würde.


Wo ist das Problem? Was mache ich falsch?

Hier mal der Code der Hilfsklasse:
Das "Kernel" Zeug könnt Ihr ignorieren - es dient nur zur kommunikation mit der Hauptklasse.

Delphi-Quellcode:
 TDllTimer= class(TObject)

  private
    FWndHandle : HWND;
    myKernel: IIPSKernel; // The Link to the Main Application (not Important for this Issue)

  public
    procedure WndProc(var Msg: TMessage);
    constructor Create(IKernel: IIPSKernel);
    destructor Destroy; override;
    property WindowHandle: HWND read FWndHandle;

  end;

implementation


constructor TDllTimer.Create(IKernel: IIPSKernel);
begin
  myKernel:=IKernel; // The Link to the Main Application (not Important for this Issue)
   
   // Get a Window Handle
  FWndHandle := AllocateHWnd(WndProc);

  // This Works:
  SendMessage(FWndHandle,WM_TIMER, 1,0);

  // This does not:
   SetTimer(FWndHandle, 1, 1000,nil);

end;



destructor TDllTimer.Destroy;

begin
  DeAllocateHWnd(FWndHandle);
  inherited Destroy;
end;



procedure TDllTimer.WndProc(var Msg: TMessage);
begin
  myKernel.LogMessage(KL_MESSAGE, 0, 'My Timer', 'Any EVENT' ); // Just for debugging
  if Msg.Msg = WM_TIMER then
    myKernel.LogMessage(KL_MESSAGE, 0, 'My Timer', 'TIMER EVENT' ); // Just for debugging

  Msg.Result := DefWindowProc(FWndHandle, Msg.Msg, Msg.wParam, Msg.lParam);

end;

Vielen Vielen Dank.
Bin noch nicht wirklich lang mit Delphi unterwegs - aber für dieses Plugin gings nicht anders!

MfG
Huelke

turboPASCAL 7. Sep 2009 06:19

Re: SetTimer in DLL - nicht aktiv? (Trotz AllocateHWnd)
 
Hi,

wie startest du denn den Timer ? Bzw. wie wird der in dem Hauptprogramm aufgerufen.

huelke 7. Sep 2009 16:11

Re: SetTimer in DLL - nicht aktiv? (Trotz AllocateHWnd)
 
@Matti: Danke für deine Antwort!

Hi ich starte das so in etwa (hab mehrere Möglichkeiten durch):

Delphi-Quellcode:
TMYPlugin.startTimer();
var
  myTimer : TDllTimer;

begin
  myTimer:=TDllTimer.create(fKernel); // Kernel Ignorieren;
end;
Vorher hatte ich die SetTimer Funktion nicht im Constructor der Klasse sondern habe es direkt in der Hauptklasse ausgeführt:

Delphi-Quellcode:
TMYPlugin.startTimer();
var
  myTimer : TDllTimer;

begin
  myTimer:=TDllTimer.create(fKernel); // Kernel Ignorieren;
  SetTimer(myTimer.WindowHandle, 1, 1000,nil);
end;
Ist aber gehopst wie gesprungen.

Danke für die Hilfe.

MfG Huelke

turboPASCAL 7. Sep 2009 16:17

Re: SetTimer in DLL - nicht aktiv? (Trotz AllocateHWnd)
 
Hast du das mal versucht ?
http://entwickler-forum.de/showpost....61&postcount=2

huelke 7. Sep 2009 16:48

Re: SetTimer in DLL - nicht aktiv? (Trotz AllocateHWnd)
 
Ja die Seite war quasi die Vorlage für meine Hilfsklasse.

Der einzige unterschied ist dabei, das der die SetTimer Funktion nicht im Konstruktor aufruft, sondern aus einer externen Funktion.
Das habe ich aber auch ausprobiert (siehe oben 2. Abschnitt) - leider mit dem selben effekt :(.

Das Merkwürdige ist halt, das die WM_TIMER Message bei meiner Hilfsklasse ankommt, wenn ich sie von hand (SendMessage) schicke,
mittels SetTimer aber nicht!

Die SetTimer funktion sollte doch eigentlich auch nichts anderes machen, ausser das der "Absender" der Message nicht das Modul selber sondern dann der WindowsTimerPool (oder was auch immer) ist...?

Apollonius 7. Sep 2009 17:13

Re: SetTimer in DLL - nicht aktiv? (Trotz AllocateHWnd)
 
Wenn du deine Nachricht mit PostMessage schickst, passiert vermutlich auch nichts. Dir fehlt die Nachrichtenschleife.

huelke 7. Sep 2009 18:06

Re: SetTimer in DLL - nicht aktiv? (Trotz AllocateHWnd)
 
Ah jetzt ja, SetTimer benutzt PostMessages ja?
Mmmh verdammt. Danke für den Tipp :hello:

Ich nehme an es gibt kein SetTimer Derivat das SendMessage benutzt?
Oder gibt es ne möglichkeit eine Nachrichtenschleife zu implementieren?

Danke :)

thx
Huelke

Apollonius 7. Sep 2009 19:21

Re: SetTimer in DLL - nicht aktiv? (Trotz AllocateHWnd)
 
Das hängt nicht per se mit SendMessage zusammen. In SendMessage gibt es intern einen Spezialfall, falls sendender und empfangender Thread identisch sind; dann wird einfach nur die Fensterprozedur "ganz normal" aufgerufen.
Du kannst eine Nachrichtenschleife recht einfach implementieren, dazu brauchst du jedoch einen Thread, da sie ständig laufen muss. Wenn du jedoch zunächst keine Nachrichtenschleife hast, gibt es keinen Grund, den UI-Timer (d.h. SetTimer/KillTimer) zu verwenden. Du solltest einen neuen Thread starten und dort entweder mit Sleep den Timer simulieren oder aber einen Waitable Timer verwenden.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz