Töne über Soundkarte ausgeben

Hendrik · Beiträge: 324

Hallo
Wie kann ich Töne (Dauer, Frequenz) über die Soundkarte ausgeben?

Horst · Beiträge: 120

Hendrik hat folgendes geschrieben:

Hallo
Wie kann ich Töne (Dauer, Frequenz) über die Soundkarte ausgeben?

wieso Töne? Warum nicht Sounds. Sounds lassen sich recht einfach mit der TMediaPlayer-Komponente ausgeben, oder wolltest du ein Synthesizer-Programm schreiben :?:

Hendrik · Beiträge: 324

Ich möchte Töne ausgeben mit bestimmter Frequenz und Dauer. Keine Sounds(wie z.B. *.wav Dateien) ausgeben.

lordquake · Hält's aus hier Beiträge: 8

geht allerings über den pc speaker!!! ein freund meinte das soll irgendwe auch mit soundkarten gehen

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure WinSound(freq,time:word);
var li : LongInt;
    b  : Byte;
begin
   if freq > 18 then begin
     freq := Word(1193181 div LongInt(Freq));
     B := GetPort($61);
     if (B and 3) = 0 then begin
       SetPort($61,B or 3);
       SetPort($43,$B6);
     end;
     SetPort($42,Freq);
     SetPort($42,Freq shr 8);
   end;
   li:=GetTickCount;
   repeat
      Application.ProcessMessages;
   until ((GetTickCount-li) >= LongInt(time));
   // Ruhe ...
   SetPort($61,GetPort($61) and $FC);
end;


procedure TForm1.Label14Click(Sender: TObject);
begin
  WinSound(1500,100);  {Integerwerte!!!!  was dauer und was frequenz ist  hab ich vergessen, dürfte allerdings nicht schwer rauszufinden sein 
;-) }
end;

_________________
-----PEACE------
LORD QUAKE GRÜSST ALLE
-----PEACE------

toms · Beiträge: 1099 Erhaltene Danke: 2

Hi,

So kannst du Töne über den Soundblaster ausgeben:

markieren

Quelltext

1:
2:
3:

procedure MakeSound(Frequency{Hz}, Duration{mSec}: Integer; Volume: TVolumeLevel); 
//...
end;

www.swissdelphicente...showcode.php?id=1324

tom

lordquake · Hält's aus hier Beiträge: 8

ja hab verennt das da schon oben in der externen procedure ja procedure WinSound(freq,time:word); FREQUENZ und DAUER steht

und statt integer es longint ist aber egal nobody is perfect

_________________
-----PEACE------
LORD QUAKE GRÜSST ALLE
-----PEACE------

cbs · Beiträge: 207 Erhaltene Danke: 1

Tag auch

nur so nebenbei:

lordquake hat folgendes geschrieben:

und statt integer es longint ist

integer ist genau der gleiche typ wie longint (32Bit) ganzzahl mit vorzeichen

nur integer ist ein generischer datentyp und longint ein fundamentaler datentyp

der unteschied ist der das generische datentypen vom aktuellen compiler abhängig sind, im moment sind es bei delphi 32 Bit. wären es 64 Bit dann würde integer auch 64 Bit groß sein, longint hingegen bleibt bei 32Bit

generiche datentypen sind also vom aktuellen compiler abhängig (auch cardinal -> gegenstück ist longword), wärend fundamentale datentypen in der jeweiligen sprache "fest" definiert sind

ich hoffe die ausführung war richtig :wink:

nachtrag:
du schreibst hier:

lordquake hat folgendes geschrieben:

WinSound(1500,100); {Integerwerte!!!! ...

hier sind beide werte weder als integer noch als longint deklariert, sondern als word

Hendrik · Beiträge: 324

Welche Unit muss ich denn oben einfügen damit das geht. Mit mmsystem hab ich´s schon probiert.

NightHawk · Beiträge: 18

Hi,

Du hast nicht geschrieben, wie professionell du dabei vorgehen möchtest. Willst du mehrere Stimmen wiedergeben, dann bleibt dir nichts anderes übrig, als zu mischen oder DirectX zu verwenden. Willst du verschiedene Wellenformen (Sägezahn, Sinus, Quadrat usw.), dann wird es ein wenig komplizierter....

Du schreibst ausserdem, dass du keine WAV-Dateien wiederegben möchtest. Warum denn nicht??? WAV-Dateien brauchst du nicht zu laden. Falls du nur eine Sinus-Welle spielen möchtest, brauchst du nur eine WAV-Structur zu erstellen (TWaveHdr) und diese mit einem bestimmten Format (TWaveFormatEx) abzuspielen. Falls du diese Sinuskurve loopen tust (TWaveHeader.dwLoop = -1), dann hast du einen ewig langen ton. Die Sinuskurve selbst kannst du anhand einer Formel, wie:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

r: single;
WaveHeader: TWaveHdr;
GetMem(WaveHeader.lpData, 440);

r := 0;
WaveHeader.dwBufferLength = 440;

for i = 0 to 440-1 do
begin
   PByte(WaveHeader.lpData)[i]^ = Sin(r) * 127 + 128;
   r := r + 360 / 440;
end;

(naja, auf diese Formel (8Bit 44100Khz Mono) keine Gewähr. Probier mal lieber ein wenig rum)

Nun kannst du in einer Routine die Tonlänge abfragen und anhand vom Volume den Ton abklingen oder aufklinen lassen. Du kannst natürlich auch mit der Frequenz spielen. Dazu lies dir doch die MMSystem-Doku durch. Falls du nicht weiterkommst, schreib nochmal.

Übrigens: Willst du mehrere Stimmen, dann nimm DirectX und erstelle mehrere SoundBuffer, mit denen du im selben Verfahern wie hier, Töne ausgibst. So schwierig ist das nicht. Ich denke, dass ca. 20 Zeilen für deine Zwecke genügen sollten.

Ansonsten: ...solltest du es dir gut überlegen, ob es sinnvoll ist, in einem Multimedia-Betriebssystem noch Daten direkt an einen Port zu senden....

Grüsse

NightHawk

_________________
Delphi - Die Sprache der Engel

Hendrik · Beiträge: 324

Also ich will einfach nur einen konstanten Ton z.B. 1530Hz über eine Zeit von 70 ms ausgeben, danach soll ein anderer Ton folgen usw.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme