beep oder windows.beep()

[Chewie]

Zitat von Falk:

solange die Zeitdifferenz zwischen auslösen beep und dem wirklichen beep konstant ist soll mich das nicht stören. Ist sie das?? Ich vermute mal bei der Soundkarte hängt das sicher noch davon ab, was der Rechner gerade noch so macht. Bei systemlautsprecher doch nicht oder???

Ein Speaker-Sound wird meines Wissens über einen Interrupt ausgelöst. Ein Interrupt unterbricht die momentane Aktion des Prozessors, es sei denn, der Prozessor arbeitet gerade einen Interrupt mit einem höheren Level ab. Musst mal schauenm, vielleicht findeste irgendwo das IRQ-Level des Speakers.

[Delphianer]

@Falk,

nein, ist sie nicht. Da nützt auch der Interrupt nichts, der kommt erst zum Tragen, wenn der Beep gestartet wurde - und die Zeit bis zum Start ist nicht konstant.

Viele Grüße

[falk]

Zitat von Delphianer:

@Falk,
nein, ist sie nicht. Da nützt auch der Interrupt nichts, der kommt erst zum Tragen, wenn der Beep gestartet wurde - und die Zeit bis zum Start ist nicht konstant.

Und was beeinflusst den Start des Beep?? Windows???

Falk

[Delphianer]

Jou!

Sobald sich Dein Programm in den Windows-Untiefen verkrümelt, und das macht es automatisch, wenn Du irgendeine Windows-Funktion aufrufst, hast Du keinen Einfluß mehr. Und das Schlimmste sind unter Win9x die nicht bestimmbaren Auszeiten.
Du müßtest im Prinzip Dein Programm auf tpTimeCritical setzen und alle Funktionen in einer Schleife selbst schreiben, ohne Windows aufzurufen - hat allerdings den Effekt, daß nichts anderes mehr geht. Falls Du auf Win2k/Xp ausweichen kannst, kann ich Dir paar Tips geben, schaffe ich aber heute nicht mehr.

Viele Grüße

[falk]

@Delphianer

ja läuft unter XP

Falk

[Delphianer]

Hallo, ist hier noch wer ?


Ich habe mal versucht und hoffentlich nichts vergessen, einige Punkte zu zeitkritischen Programmen unter 2000/XP aufzuschreiben:

1.
PriorityClass von MainProcess hochsetzen - Vorsicht, kann ganzen Computer
lahmlegen - dafür aber die ThreadPriority (vom MainProcess) so niedrig wie möglich

Delphi-Quellcode:

  if SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS) then
  begin
    SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_IDLE);
  end;

2.
die originale Zeitauflösung von 2000/XP ist auf 10ms gesetzt, deshalb

Delphi-Quellcode:

  TimePeriod := 1;
  // die Zeitauflösung auf einen Wert < 10, der Windows genehm ist, setzen
  while (timeBeginPeriod(TimePeriod) = TIMERR_NOCANDO) and (TimePeriod < 10) do
    Inc(TimePeriod);

und am Schluß wieder zurücksetzen

Delphi-Quellcode:

  if TimePeriod <> 10 then
    timeEndPeriod(TimePeriod);

3.
Thread erzeugen, der zeitkritischen Arbeit ausführen soll (das ist das Schnellste, was geht)

Delphi-Quellcode:

  MyThread := TMyThread.Create(True);
  MyThread.Priority := tpTimeCritical;

4.
in Loop vom Thread auf keinem Fall

  Sleep(1); oder

  WaitForSingleObject oder etwas ähnliches vergessen, um Windows Luft zum Atmen zu lassen

Ich hoffe, es hilft.

[Delphianer]

Im letzten Kasten fehlt

  WaitForSingleObject Viele Grüße

[Delphianer]

Was ist das, bitte? Fehlendes Semikolon?

  WaitForSingleObject(..);

[falk]

Danke, erst mal so auf die schnelle.

muß mir alles in ruhe anschauen.

Falk