Hallo,
ich versuche über einen Multimedia Timer einen Zeittakt von 1 ms zu erzeugen.
Das funktioniert auch aber nach ca. 1 min stüzt das Programm mit einen Stack overflow ab.
Aufruf :
TimeSetEvent(1, 0, @TimeCallBack, 0, TIME_PERIODIC);
und die Callback Procedure:
Delphi-Quellcode:
procedure TimeCallBack;
begin
if run <> nil then
run.Takt1ms;
end;
bzw.
procedure TimeCallBack; stdcall;
Der Fehler tritt auch auf, wenn die Procedure TimeCallBack keine Funktion hat.
Delphi-Quellcode:
procedure TimeCallBack;
begin
exit;
end;
TimeSetEvent wird im Create eines threads aufgerufen.
Mein Fehler oder Delphifehler ?
Hat wer eine Idee.
Gruß Peter