Töne erzeugen

[diago]

Hi zusammen,

wie kann ich denn bei win XP einen ton bestimmter Frequenz aber unbestimmter Dauer erzeugen.

Außerdem möchte ich während der ton abgespielt wird, die Frequenz ändern können.

Hat jemand eine Idee, wie ich so was realisiern kannn?

Danke für eure Hilfe
Thomas

[gmarts]

Delphi-Quellcode:

beep(frequenz,dauer);

Das mit einer Trackbar und einem Timer kombinieren.

[diago]

naja, das mit dem windows.beep und nem Timer war auch meine erste idee.
Allerdings kommt dabei alles andere als ein gleichmäßiger ton heraus.
Außerdem ist die Anwendung dabei auch nicht mehr sonderlich gut steuerbar.

[Robert Marquardt]

Eigentlich bist du damit schon tief im Audiobereich.
Versuch es doch aber ueber MIDI. Das nimmt dir zumindest das Rendern des Sounds ab.

[toms]

Siehe : ...Töne über den Soundblaster ausgeben?

http://www.swissdelphicenter.ch/de/showcode.php?id=1324

[glkgereon]

gibt es diese funktion beep(frequenz,dauer); überhaupt?

[flomei]

Jep, frag mal deine Delphi-Hilfe danach...

MFG Florian :hi:

[edit] Wenn du sie benutzt und nichts hörst, dann liegt das wahrscheinlich daran das du gar keinen internen Lautsprecher (also einen auffem Mainboard) hast... [/edit]

[glkgereon]

:roll: :roll:

deswegen frag ich ja

meine hilfe kennt zum stichwort beep 3 sachen:

function beep;
procedure beep;
procedure beep;

und bei einem aufruf
beep(200,200);

sagt er:
zu viele parameter...

[Robert Marquardt]

Das liegt daran das Beep in unterschiedlichen Units deklariert ist. Hast du Windows in der uses Liste?

Man kann uebrigens auch den Beep-Treiber direkt per DeviceIoControl quaelen.

[flomei]

Dann probier mal:

Delphi-Quellcode:

Windows.Beep(dwFreq: Cardinal, dwDuration: Cardinal)

MFG Florian :hi: