Discussion :

[Calys]

Bonjour,
actuellement j'essaye de créer un timer en important la fonction SetTimer de windows comme ci-dessous :

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 Func = function() : Integer;
 
//importing a Windows API function
function SetTimer(const hWnd: Integer; const nIDEvent: Integer; const uElapse: Integer; const lpTimerFunc: Func): Integer;
external 'SetTimer@user32.dll stdcall';
 
{ timerFunc }
function timerFunc() : Integer;
begin
  Result := 0;
end;
 
....
// quelquepart dans le code
SetTimer(handle, 1, 500, @timerFunc);

Mais à l'exécution, ça plante.

L'un de vous aurait-il une idée sur ce qui pourrait se passer s'il vous plait ?

[sjrd]

Mais à l'exécution, ça plante.

L'un de vous aurait-il une idée sur ce qui pourrait se passer s'il vous plait ?

Ben, malheureusement, j'ai perdu ma boule de cristal. Donc à moins que tu me dises quelle est l'erreur que obtiens, et à quel moment, on va avoir du mal à t'aider...

[Calys]

Salut,

Donc, comme je l'ai dit précédemment, l'installeur plante à l'exécution (plus précisément lorsque SetTimer est exécuté).

L'erreur obtenue est un "Runtime Error" avec "Access violation at adress...blahblah". Bref, pas très utile comme info

Merci quand même !

[sjrd]

C'est ta fonction de call-back qui n'est pas bonne. L'aide des API Windows précise :

TimerProc Function

The TimerProc function is an application-defined callback function that processes WM_TIMER messages. The TIMERPROC type defines a pointer to this callback function. TimerProc is a placeholder for the application-defined function name.
Syntax

VOID CALLBACK TimerProc(

HWND hwnd,
UINT uMsg,
UINT_PTR idEvent,
DWORD dwTime
);

Parameters

hwnd [in] Handle to the window associated with the timer. uMsg [in] Specifies the WM_TIMER message. idEvent [in] Specifies the timer's identifier. dwTime [in] Specifies the number of milliseconds that have elapsed since the system was started. This is the value returned by the GetTickCount function.

Return Value

This function does not return a value.

Donc tu dois déclarer Func comme :

Code :

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

1
2
type
  Func = procedure(Handle, Msg, Event, Time: LongWord) stdcall;

Et déclarer timerFunc selon le même schéma.