Sound mit PC-Speaker?

[hircusmutzus]

Hi,
eine kleine Frage: Kann man mit Delphi Sound über den PC-Speaker ausgeben? Bei QBasic gabs früher so einen Befehl (PLAY "O0L2E"), da würde es mich interessieren ob man auch einen für Delphi gibt.
Wenn nicht würde mich alternativ interessieren wie man mit Delphi Midis erzeugen kann/ob das geht!
Ich würde mich über Antwort(en) freuen!

[Chewie]

Speaker bei Delphi:

Win NT ff.: Beep() in Unit Windows.
9x: Schau mal hier: http://www.delphipraxis.net/topic406...ighlight=sound

[hircusmutzus]

Hi - danke!
Weist du zufällig noch welche Frequenz welche Note ist, z.B. (das ist jetzt rein fiktiv!) 500=c, 600=d, 700=e etc.?
Wenn nihct muss ich doch die Stimmorgel suchen :mrgreen: !

[Chewie]

Das mit den Noten weiß ich nicht auswendig, aber google mal danach.
Ich weiß nur, dass die Freqenzdifferenz zwischen den Noten nicht konstant ist.

So ein Programm haben wir mal aus Langeweile in Inf gemacht: Du gibst in eine Listbox Noten ein und nach dem Druck auf einen Button wird die Melodie abgespielt. War recht lustig :wink:

[hircusmutzus]

ja danke, habs eben mal gegoogelt - wenns dich nocht interessiert hier der link!

[flomei]

:gruebel:
Ich hab das probiert. Aber Beep() erwartet keine Parameter mehr. Mein Code sieht wie folgt aus:

Delphi-Quellcode:

procedure TForm1.PlayClick(Sender: TObject);
  begin
    Beep(EditFrequency.Text)
  end;

Geht leider nicht. Wo liegt mein Fehler?

Thx for Help!

MfG Florian :hi:

P.S.: StrToInt() hilft auch nicht.

[Daniel B]

Delphi-Quellcode:

procedure TFrom1.ButtonClick();
begin
  Beep;
end;

[flomei]

Ja. Das ist das "Piiing". Aber ich denke es geht um den internen Speaker. Auch auf dem muss man doch verschiedene Freqenzen ausgeben können. Die andere Lösung ist arg kompliziert und anscheinend ja nur Win9x / ME tauglich. Ich hab aber Win2000. Was kann man da machen?

MfG Florian :hi:

[Chewie]

Beep aus der Unit Windows. Aufruf:

Delphi-Quellcode:

Beep(Frequenz, Dauer in Ms);

[neolithos]

Delphi-Quellcode:

Windows.Beep(???, ???);