Töne

[DAP]

Hallo,

kann mir jemand helfen, wie man zum Einen kurze beep - Töne und
zum Anderen kurze Musiksequenzen abspielen kann. Das beste wäre
es das man das ganze auch unter Linux compilieren kann.

Ich wollte auf ein Click-event akustisch antworten und kein mp3 player
erstellen.

Hoffentlich kann mir jemand weiterhelfen.

Gruß DAP

[Heinrich Wolf]

Hallo,

ich hab mich erst mal zurück gehalten, da ich von DirectSound nix weiß. Aber schade, dass Dir noch keiner geantwortet hat. Du könntest mal in Sachen Windows nach DirectSound googlen. Ich hab das gefunden: http://wiki.lazarus.freepascal.org/FPC_and_DirectX/de. Ich hab mal ein monophones Bildschirm-Keyboard gemacht. Dazu hab ich allerdings nur PlaySound() verwendet und die Töne selbst nach der WAV Spezifikation erstellt. Siehe hier: http://de.wikipedia.org/wiki/RIFF_WAVE Angefangen hab ich mit dem Kammerton a. Der hat 440 Hertz. Ein Halbtonschritt rauf kommt aus der Multiplikation der Frequenz mit der 12. Wurzel aus 2, ein Halbtonschritt runter kommt aus der Division der Frequenz durch die 12. Wurzel aus 2.

Gruß
Heiner

[carli]

Für Linux und Windows gibts zwei Bibliotheken, mit denen ich bereits gearbeitet habe:
- Bass
- SDL_Mixer

Für einfache Piepstöne erstellst du einfach von Hand eine Sinuskurve: die jeweilige Sound-Bibliothek erlaubt dir, Rohdaten hochzuladen, die ein Format haben, zum Beispiel 44kHz 16 bit signed. Das bedeutet im Klartext, dass 44.000 mal in der Sekunde ein 16-bit-signed-Wert (smallint) aus deinem Array ausgelesen wird und als Spannung auf den Lautsprecher gesetzt wird. 16 bit signed heißt, dass du die Werte zwischen -32.000 und 32.000 anlegen solltest. Um einen Sinuston (normaler Piepston) zu erzeugen machst du also:

Code: Alles auswählen

procedure fillSinus(freq: single; laenge: single);
var samples: array of smallint;
    i: integer;
begin
  setlength(samples, round(laenge*44000)); // laenge Sekunden lang den Ton abspielen, auch Kommawerte erlaubt
  for i:=0 to high(samples) do begin
    samples[i]:=round(30000*sin(i/44000*2*pi/freq));
  end;
  SoundLibrary_Upload_Data(@samples[0], length(samples), SoundLibrary_Format_16bit_signed, 44000); // durch spezifische Funktion ersetzen; 1. Parameter: Zeiger auf Daten; 2. Parameter: Anzahl Samples, 3. Parameter: Datenformat, 4. Parameter: Samplefrequenz
end;

Es lohnt sich bei Piepstönen auch, geringere Samplefrequenzen zu benutzen, so zum Beispiel 22.000 Hz.
fillsinus(440, 1); würde den Kammerton A mit einer Spielzeit von einer Sekunde erzeugen.

[DAP]

Hallo,

vielen Dank Heiner und Carli für eure Antworten.

Welche Unit muss ich einbinden, um SoundLibrary_Upload_Data benutzen zu können?
Ich werde mir erst einmal Bass anschauen.

Gruß DAP

[jwdietrich]

Für einfache Beep-Ausgaben habe ich für meine Programme die folgende plattformunabhängige Prozedur geschrieben:

Code: Alles auswählen

procedure bell; {platform-independent implementation of acustical warning}
begin
  {$IFDEF win32}
    MessageBeep(0);
  {$ELSE}
    {$IFDEF LCLCarbon}
      SysBeep(30);
    {$ELSE}
      beep;
    {$ENDIF}
  {$ENDIF}
end;

Insgesamt scheint das Thema Tonausgabe in Lazarus / Free Pascal aber noch erheblich zu kurz zu kommen.

[DAP]

Hallo,

dank dir jwdietrich, für ein einfaches beep ist das wunderbar.

Eine kleine Ergänzung für Neulinge wie mich, die Funktion steht in der Unit Windows.

Mit Bass habe ich in Windows auch wav-files ans laufen bekommen. Gibt es eine
Möglichkeit, bass mitzucompilieren, damit man nicht immer die dll an Freunde
weiterreichen muss?

Wie bekomme ich Bass in Linux (Ubuntu) ans laufen?

Gruß DAP

[theo]

Für einfache Beep-Ausgaben habe ich für meine Programme die folgende plattformunabhängige Prozedur geschrieben:

Was verstehst du unter "plattformunabhängig"? Auf Linux geht das afaik nicht.

[pluto]

Wie bekomme ich Bass in Linux (Ubuntu) ans laufen?

http://www.un4seen.com/forum/?topic=8682" onclick="window.open(this.href);return false;

Das geht sogar unter Lazarus... Ich meine, die DLL/SO Datei muss aus Lizenz-Gründen extern sein.

Es gibt auf der Lazarus-Hompage noch eine andere Möglichkeit: Dort gibt es eine Sound-Komponente, für reine Wav Dateien, ich weiß jetzt aber nicht ob sie auch unter Linux läuft, sollte aber.

http://wiki.lazarus.freepascal.org/Comp ... e_examples" onclick="window.open(this.href);return false;

Such da mal nach Sound.

[DAP]

Hallo Pluto,

meintest Du die ACS-Komponente?
Ich werde mal reinschauen.

Gruß DAP

[pluto]

meintest Du die ACS-Komponente?

Nein! Die laufen nur auf ein paar System Einbandfrei. Wobei mir nicht bekannt ist, bei wem sie laufen. Ich höre immer nur das sie nicht laufen. Es gibt da noch was anders. Komme im Moment nicht auf den Namen, werde aber nachher mal schauen.

[af0815]

meintest Du die ACS-Komponente?

Komme im Moment nicht auf den Namen, werde aber nachher mal schauen.

Bei mir sind sie gelaufen (derzeit nicht im EInsatz) und Christian kannst du ansprechen, der betreut den Port (oder hat es gemacht).

[creed steiger]

Du kannst dich auch hier:
http://breakoutbox.de/pascal/pascal.html" onclick="window.open(this.href);return false;

ein bissl umschauen.

[DAP]

Du kannst dich auch hier:
http://breakoutbox.de/pascal/pascal.html" onclick="window.open(this.href);return false;

ein bissl umschauen.

Aber eine Sound-Komponente für Crosscompiling scheint es noch nicht zu geben.
Wenn ich das richtig gelesen habe, muss man portaudio auch erst compilieren
und dann als library einbinden.

[carli]

Hallo,

vielen Dank Heiner und Carli für eure Antworten.

Welche Unit muss ich einbinden, um SoundLibrary_Upload_Data benutzen zu können?
Ich werde mir erst einmal Bass anschauen.

Gruß DAP

Lies noch mal nach, SoundLibrary_Upload_Data ist kein Bezeichner, sondern ein Platzhalter.
In SDL_Mixer heißt die korresponierende Funktion "Mix_QuickLoad_RAW"
Bei Bass und OpenAL lass ich dich selber googeln (ist mir die Zeit zu schade)