PC-Lautsprecher piepen lassen?

[Delphi Star]

Moin,
weiß jemand wie man aus einer Delphi-Anwendung heraus den PC-Laursprecher piepen lassen kann und wenn es geht noch in verschiedenen Frequenzen?

[Marco Haffner]

Delphi-Quellcode:

Windows.Beep(Frequenz, Dauer);

[XeRo]

Also bei mir pingt da nur der lautsprecher...und zwar immer gleich lang...da kann ich gleich eingeben:

Code:

Beep;

:gruebel: oder ligt dass an mir

[edit]verdammte tastatur...[/edit]

[Jörn]

Funzt nicht mit jedem OS...

[himitsu]

@XeRo

der Befehl Beep (aus der Unit SysUtils) übergibt den Befehl weiter an Windows

Delphi-Quellcode:

Procedure Beep;
  Begin
    MessageBeep(0);
  End;

Function MessageBeep; external User32 Name 'MessageBeep';

Wenn also bei dir keine Soundkarte drin ist, oder kein entsprechender Sound eingestellt ist, dann geht es über den PC-Lautsprecher, sonnst kommt der Ton über die Soundkarte/große Boxen (aus 'ner WAV)

[XeRo]

Und wie kann man den ton dann zwingen aus den pc-mini-beeper zu kommen?

[Michael Leyhe]

HI

Wenn ich das mit

Code:

windows.beep(frequenz, dauer)

mache dann kommt das aus dem onboard "lautsprecher".
Und das in verschiedenen frequenzen und mit verschieden langer dauer, je nachdem was man eingibt.

[flomei]

Funktioniert bei mir unter Win2k nicht... Seltsam...

MfG Florian :hi:

[XeRo]

Zitat:

...:::das ist ein labyrinth ohne faden:::...

Gibts jetzt ne generelle lösung für das Beepen aus dem onboard "lautsprecher"?

[Manzoni]

...Töne über den PC-Speaker ausgeben?

funzt leider nicht mit jedem OS

[himitsu]

Ich hab jetzt zwar keine Zeit zum Testen, aber bei mir ging es unter Win2k.

[XeRo]

Ich kann bestätigen, dass es geht...

Tipp: Sound (13000,100000); --> das ist hart...

[The-X]

*hier* hab ich mich schonmal darüber ausgelassen ;)

fehlt nur noch die Unit für den direkten Portzugriff unter Win9x... hab se bis jetzt noch nicht gefunden :roll:

aber wenn ich diese Unit finde Schieb ich'se hinterher *versprochen*

[The-X]

Soo...
endlich mal zuhause mit viel Zeit ...

hab die unit endlich gefunden ... war irgendwo auf meinen Backup-CD's :-D

[toms]

Zitat:

Zitat von Manzoni

...Töne über den PC-Speaker ausgeben?

funzt leider nicht mit jedem OS

Stimmt nicht. Funktioniert auf jeder Windows Platform.

[Manzoni]

auch cool :hello: :hi: