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(???, ???);

[alcaeus]

Es hat im guten alten Borland Turbo Pascal 7.0 den Befehl "Sound(Freq)" und "NoSound" gegeben, die waren in der Unit "Crt". Ich weiß nicht ob man die irgendwie auf Winxx-Systeme portieren kann, die sind ja schließlich für DOS gemacht worden... Viel Glück noch damit

[Chewie]

Zitat:

Zitat von alcaeus

Es hat im guten alten Borland Turbo Pascal 7.0 den Befehl "Sound(Freq)" und "NoSound" gegeben, die waren in der Unit "Crt". Ich weiß nicht ob man die irgendwie auf Winxx-Systeme portieren kann, die sind ja schließlich für DOS gemacht worden... Viel Glück noch damit

Zu der Implementierung eben dieser Funktionen hab ich in meinem ersten Beitrag verwiesen. Da diese Funktionen Interrupts benutzen, funktionieren sie auf der NT-Schiene nicht, dafür gibts dann die API-Funktion Beep().

[flomei]

Ja nun kompiliert er brav aber ich höre nichts. Woran kann das liegen???

MfG Florian :hi:

[hircusmutzus]

@ flomei: hast du vielleicht den PC-Speaker ausgeschaltet??? :mrgreen:

[Matze]

Ich hab keinen PC-Speaker. :cry:

[flomei]

:wiejetzt: Ich glaube wir reden von zwei unterschiedlichen Sachen?!?
Meinst du auch so ein Ding hier :?: Das Ding meine ich nämlich... Die sitzen meistens im Gehäuse... ;)
Und mit einem anderen Programm macht es ja auch Geräusche. Aber nicht mit

Delphi-Quellcode:

Windows.Beep(Frequenz, Dauer)

Warum? :gruebel:

MfG Florian :hi:

[Matze]

Hi!
Im Gehäuse habe ich keinen PC-Speaker. Ich habe nur die 2 normalen Boxen.

Mit

Delphi-Quellcode:

Windows.Beep(Frequenz, Dauer)

kommt auch nut Ton aus den Lautsprechern, die an der Soundkarte angeschlossen sind, und nicht aus dem Speaker im Gehäuse. ;)

[Chewie]

Noch mal: Windows.Beep erzeugt auf NT-basierten Systemen einen Speakerr-Sound, auf 9x-Systemen aber ein Soundkarten-Sound.

[Matze]

Ich hab XP und bei mir wird ien Soundkarten-Sound erzeugt! :mrgreen:

[flomei]

:gruebel: :wall: Ich werd hier noch verrückt!
Wenn ich

Delphi-Quellcode:

begin
  Beep;
end;

schreibe kommt der Standard Piiiiiing Sound.
Schreibe ich

Delphi-Quellcode:

begin
  Windows.Beep(500, 2000);
end;

höre ich nichts. Entweder ist das zu leise oder kaputt oder sonstwas geht nicht. Ich bekomme auch keinen Ton über die Soundkarte raus.
Im Anhang ist ein Programm das auch Töne über den internen Speaker ausgibt. Das läuft bei mir prima und man kann das gut hören...

Was/Wo kann das Problem sein/liegen?

Thx im Vorraus!

MfG Florian :hi:

[EDIT]

Zitat:

Zitat von Chewie

Windows.Beep erzeugt auf NT-basierten Systemen einen Speakerr-Sound, auf 9x-Systemen aber ein Soundkarten-Sound.

:roll: hm... Ich geh mal was testen...
[/EDIT]

[Matze]

Hi flomei!

Also ich höre da nur so ein komisches Zeugs in meinen Lautsprechern, die an die Soundkarte angeschlossen sind.

Wenn ich:

Delphi-Quellcode:

TForm1.Button1Click(Sender:TObject);
begin
  Windows.Beep(500,2000);
end;

so habe und dann auf den Button klicke, höre ich eindeutig den Ton aus dem Soundkarten-Lautsprecher! :mrgreen: Und das ist :thumb:

[flomei]

Aber warum höre ich den Ton nicht???

MfG Florian :hi:

P.S.: Mist war immer noch nicht unter Win9x testen.

[flomei]

Ich werd bekloppt! Mein Rechner macht keinen Ton und ein Win9x Rechner macht auch keinen Ton... Was kann denn für das dämliche Ding so schwer daran seien

Delphi-Quellcode:

Windows.Beep(123, 456)

auszugeben. Das gibt´s nicht.

MfG Florian :hi:

[Christian Seehase]

Moin Florian,

Du könntest mal folgendes zum Testen machen:

• Konsole öffnen
• Am Prompt echo [Ctrl]+G eingeben
  (sieht dann so aus C:\>echo ^G)
  Wichtig: NICHT die Zeichen ^ und G getrennt eingeben. Sieht gleich aus, ist aber etwas anderes)
• Enter

Wenn jetzt mit dem Rechner alles in Ordnung ist (bezüglich des Lautsprechers) solltest Du einen Ton hören (aus dem internen Lautsprecher)

[flomei]

:roll: Ja guck mal in den Anhang... Gehört hab ich nix...

MfG Florian :hi:

[Christian Seehase]

Moin Florian,

STRG+G entspricht dem Steuerzeichen #07 (BEL), dass einen Ton aus dem Lautsprecher erzeugt.

Wenn Du das ^G wirklich mit der Tastenkombination STRG+G erzeugt hast (sehen kann man den Unterschied leider nicht), aber trotzdem nichts hörst, stellt sich die Frage, ob der Lautsprecher überhaupt aktiv, bzw. (richtig) angeschlossen ist.

[CrashMan]

Zitat:

Zitat von flomei

:wiejetzt: Ich glaube wir reden von zwei unterschiedlichen Sachen?!?
Meinst du auch so ein Ding hier :?: Das Ding meine ich nämlich... Die sitzen meistens im Gehäuse... ;)
Und mit einem anderen Programm macht es ja auch Geräusche. Aber nicht mit

Delphi-Quellcode:

Windows.Beep(Frequenz, Dauer)

Warum? :gruebel:

MfG Florian :hi:

Nochmal zum Speaker. Ermuss nicht wie auf dem Bild aussehen! Ich hab z.B. nur einen kleinen Buzzer aufm Board (son rundes, schwarzes Ding mit Loch in der Mitte)

CrashMan

[The-X]

Hi,

ich hab da mal 'n program gebastelt für Klingeltöne (noch für Dos),

unter win9x geht der noch... über direkten Port-Zugriff
unter Win2000 u.ä. muss mann leider 'nen Umweg mit 'nem treiber bzw. 'ne andere Unit gehen...
hier is'n Link wo solche units zu finden sind.

Die Frequenztabelle kann ich hier auch mal posten wenn interesse besteht

bye 4 now, hoffe ich konnt helfen...

[The-X]

Hab endlich diese Unit bei mir gefunden, aber da ist noch nicht der direkte Portzugriff für Win9x dabei... schieb ich aber nächstmöglichst nach...

Hab die Unit auch mehrfach getestet... PlayTone(Oktave, Ton, länge in ms?);
Die Funktion sucht sich selbst raus ob NT-based (auch XP) oder 9x