windows.beep - Danach hängt's

[Tumm]

Hi

Ich will mit windows.beep den PC-Lautsprecher "ansprechen". Aber es funktioniert nur in OnCreate, ansonsten hängt das Programm nach dem Biep. Wisst ihr, woran das liegen könnte?

Tumm

[MrKnogge]

Bei mir funktioniert das einwandfrei, wo hast du es denn aufgerufen, als es nicht funktionierte ?

[Tumm]

im Timer ... aber auch in den anderen Prozeduren gings nicht.

WinXP Sp2

[3_of_8]

In einem Timer? Welcher Interval?

[inherited]

Welches Interval hast du genommen?

[Tumm]

300, duration von windows.beep auch 300.

Wie gesagt, ich habs nochmal probiert, normale Prozedur funzt auch nicht.

[MrKnogge]

Kannst du das Projekt mal anhängen ?

[3_of_8]

Folgendes Testprogramm: Eine Standardanwendung, im OnCreate ein Windows.Beep;.

Was passiert da bei dir?

(So nebenbei, welches Betriebssystem hast du? Ich kann mich glaub ich grob erinnern, dass Windows.Beep nur bei WinXP funktioniert)

[Tumm]

onCreate funzt.

WinXp Sp2

Anhang: Projekt

[MrKnogge]

@3_of_8
Beide Fragen hatte er schon beantwortet :wink:

[3_of_8]

Eine, die andere nicht. ;)

[MrKnogge]

@Tumm
Bei mir funktioniert es, hänge doch mal bitte deine exe an.
Und: Was genau verstehst du unter "das Programm schmiert ab" ?
Kommen gar keine Fehlermeldungen ?

@3_of_8
Doch, beide :roll:

[Tumm]

Hier

[MrKnogge]

Funktioniert doch !

Was erwartest du von dem Programm ? Worin liegt deiner Meinung nach der Fehler ?

Gruß

[p0w3r5tr34m3r]

Unter Windows Vista Ultimate klappts, hört sich was komisch an aber klappt :P

[Thanatos81]

Hmm, abschmieren tut es bei mir nicht, aber es verzögert ein wenig. Versuch mal im Timer Folgendes zumachen

Delphi-Quellcode:

timer1.Enabled := false;

windows.beep;

inc(counter);
if counter = 5 then
begin
  Application.PocessMessages;
  counter := 0;
end;

timer1.Enabled := true;

Den counter müsstest du noch als globale Integer deklarieren. Das Ganze sorgt dafür, dass der Timer sich nicht überschlägt und alle fünf Durchläufe die Windows-Meldungen verarbeitet werden.

[3_of_8]

Zitat:

Zitat von MrKnogge

@3_of_8
Doch, beide :roll:

Wo soll er die Frage, ob es im OnCreate eines Beispielprojektes funktioniert, beantwortet haben?

[MrKnogge]

Im aller ersten.

Gruß

[3_of_8]

*kratz*

Weiter unten hat er gesagt "In anderen Prozeduren geht es auch nicht"

[Daniel G]

Boah, Kinder... :roll:

[Tumm]

hi

es geht immer noch nicht :(. Auch nicht mit dem Codeschnipsel. Er schmiert immer noch ab.

[MrKnogge]

Dann beantworte doch bitte meine Fragen:

• Was genau verstehst du unter "das Programm schmiert ab" ?
• Kommen gar keine Fehlermeldungen ?
• Was erwartest du von dem Programm ?

Gruß

[Tumm]

- Das Programm lässt den Lautsprecher einmal korrekt piepen und reagiert dann nicht mehr. Es piept auch nicht mehr weiter (im Timer).
- Nein
- Von dem im Anhang erwart' ich gar nichts, es ist nur zu Demonstrationszwecken. In meinem richtigen Programm ist allerdings alles genau so.

[Flips]

Hi.
Wie wärs hiermit?
Ist allerdings nicht gerade die feine Art...

[inherited]

Dann doch eher http://www.swissdelphicenter.ch/de/showcode.php?id=1324, ist allerdings dann nicht mehr PC-Speaker

[turboPASCAL]

Windows.Beep(); arbeitet mit Parametern, siehe OH.
Dabei wird der akt. Thread (zB. das Programm) solabge angehalten bis die "Soundausgabe" beendet ist.
Es ist daher Empfehlenswert wenn mehrere Sounds ausgegeben werden sollen diese in einem eigenen Thread laufen zu lassen.

Ein Beispiel dazu hier ( [Game] Simple Pong ) ;)