DGL • Thema anzeigen - Eigener Audioplayer & Sprachausgabe

Eigener Audioplayer & Sprachausgabe

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

WhiteHunter

Betreff des Beitrags: Eigener Audioplayer & Sprachausgabe

Verfasst: Di Jan 07, 2003 14:34

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Hi,

wie kann dich ohne die Kompo "TMediaPlayer" einen Audioplayer proggen? Und wie steht es eigentlich mit der Sprachausgabe eines PCs? Ich meine wir sprechen "Sp" ja auch nicht mit 2 Tönen. Lässt sich dynamisch kreeirte Sprachausgabe realisieren, wenn ja, wie?
Thnx im Voraus

Cyas,

Nach oben

Sascha Willems

Betreff des Beitrags: Re: Eigener Audioplayer & Sprachausgabe

Verfasst: Di Jan 07, 2003 15:40

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Zitat:

wie kann dich ohne die Kompo "TMediaPlayer" einen Audioplayer proggen?

Ganz einfach!Nimm dir eine bereits existierende Audio-Schnittstelle wie z.B. OpenAL oder DirectSound, oder entsprechende SoundLibs die darauf aufbauen (FMOD, BASS) und nutz deren Funktionen zum Abspielen verschiedener Soundformate.
FMOD kommt als praktische DLL, ist für unkommerzielle Produkte kostenlos, spielt jede Menge Formate (MP3, WAV, OGG-Vorbis, MIDI, S3-Tracker, uvm) und gibts hier : <a href='http://www.fmod.org' target='_blank'>http://www.fmod.org</a> (FMOD kommt in meinem aktuellen Projekt auch zum Einsatz)

Zitat:

Und wie steht es eigentlich mit der Sprachausgabe eines PCs? Ich meine wir sprechen "Sp" ja auch nicht mit 2 Tönen. Lässt sich dynamisch kreeirte Sprachausgabe realisieren, wenn ja, wie?

Ja...aber komm nicht auf die Idee das selbst machen zu wollen.Da haben heutzutage selbst wissenschaftliche Institute noch ihre Probleme mit.Die menschliche Sprache ist eine sehr komplexe Wissenschaft.
Wer sich noch an die SoundBlaster 16/AWE-Zeiten erinnern kann, der kennt auch garantiert noch das damals mitgelieferte Text-To-Speech.
Das hat genau das gemacht was du wolltest, und einen Text "versucht" zu sprechen (oder gar *oh wie grausam*) zu singen.
Das hat sich nur leider nicht besonders natürlich angehört.Die Technik hat zwar weite Schritte gemacht, steckt aber immernoch am Anfang, da besonders die Betonung und Dynamik der Sprache noch schwer zu schaffen machen!
Dynamische Sprachausgabe basiert ja letztendlich (im Gegensatz zu *statischer*, die auf Wavedateien basiert) auf mathematischen Formeln, die den Frequenzgang verschiedener Buchstaben darstellen.
Diese Methode ist natürlich weitaus speichersparender als andere Verfahren, steht wie gesagt aber noch am Anfang ihrer Karriere...

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Di Jan 07, 2003 15:46

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Hehehe, eine SB 16 steckt in meinem 133er, für den ich mal 'n Moni bräuchte und 5 Jahre lang verwendet habe. Also kenn ich das. Das mit dem Singen klappt leider nicht so richtig... Mir langt ja schon zu eine Kreation wie "Text-To-Speech" oder "Webspeech"!
Und dann wollen wir mal mit Entwickeln anfangen... wär doch gelacht... hehehe
Wie kreire ich denn Töne wie ein stimmloses S oder ein p? oder ein k? Oder E? Oder A, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z? *sg*

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Sa Jan 11, 2003 00:34

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Hi,

Hab ein Problem mit FMOD, wie lade ich denn aus PSingle den Array mit den 512 Werten?

Code:

 
var
 
 &nbsp;Form1: TForm1;
 
 &nbsp;sf1: Pointer;
 
 &nbsp;fft: PSingle;
 
 &nbsp;fftdesc: Single;
 
 &nbsp;acti: Boolean;
 
 &nbsp;fps, fpsc: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
 FSOUND_SetVolumeAbsolute(FSOUND_FREE,-50);
 
 sf1 := FSOUND_Stream_OpenFile('I:Music1.mp3',FSOUND_2D,FSOUND_Stream_GetLength(Self));
 
 FSOUND_Stream_Play(FSOUND_FREE,sf1);
 
 fft := FSOUND_DSP_GetSpectrum;
 
 acti := True;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
 FSOUND_Init(44100,32,0);
 
 FSOUND_DSP_SetActive(FSOUND_DSP_GetFFTUnit,True);
 
end;
 
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
 
 &nbsp;var Done: Boolean);
 
begin
 
 Done := False;
 
 inc(fps);
 
 if acti then
 
 begin
 
 &nbsp;fftdesc := fft^ * 100000;
 
 end;
 
 GAuge1.Progress := TrunC(fftdesc);
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
 
begin
 
 fpsc := fps;
 
 fps := 0;
 
 Form1.Caption := '[' + IntToStr(fpsc) + ' fps]';
 
end;

Der Timer ist nur zur Auslastungsüberprüfung drin.

Gibts auch irgendwo im Netz deutsche Tuts zu FMOD?

Cyas,

Nach oben

Thunderman

Betreff des Beitrags:

Verfasst: Sa Jan 11, 2003 12:07

DGL Member

Registriert: Sa Okt 26, 2002 17:14
Beiträge: 188
Wohnort: Hannover/Lüneburg

Hallo!

Wenn ich das jetzt richtig in Erinnerung habe, sollte das so funktionieren:

Code:

type
 
 &nbsp;PSingleArray = ^TSingleArray;
 
 &nbsp;TSingleArray = Array[0..512] of Single;
 
...
 
var
 
 &nbsp;Data : PSingleArray;
 
...
 
Data := PSingleArray(FSOUND_DSP_GetSpectrum);
 
...

Dann kannst Du die Werte einfach aus dem Array auslesen.

_________________
Thunderman
Bei schwierigen Problemen entscheiden wir uns einfach für die richtige Lösung. Klar?

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Sa Jan 11, 2003 12:41

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Danke, klappt jetzt.

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.