Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Equilazer (https://www.delphipraxis.net/116886-equilazer.html)

DGL-luke 8. Jul 2008 17:30

Re: Equilazer
 
Mit TMediaPlayer wirds nicht hinhauen.

Du brauchst da wirklich etwas, womit du direkt die Samples manipulieren kannst. BASS.DLL zum Beispiel. Wenn du ernsthaft was mit Sound machen willst, wirst du da kaum rumkommen. (fmod gibts natürlich auch noch)

shmia 8. Jul 2008 17:31

Re: Equilazer
 
Zitat:

Zitat von Poseidon
Zitat:

Zitat von shmia
Das wäre dann aber ein Delay- oder Hall-Effekt.
Delay-Effekte sind übrigens relativ einfach zu programmieren.

Einfach zuprogrammieren???? Endlich meine Gebete wurden erhört!!!
Darauf hab ich gewartet. Delay-Effeckt einfach zu proggen mit TMediaplayer.

Na, so habe ich das nicht gemeint.
Du brauchst zuerst eine Komponente/Klasse, die WAV-Dateien lesen und schreiben kann.
Dann kommt dein Programm, öffnet die WAV-Datei, liest jeden einzelnen 16-Bit Samplewert.
Die Samples werden in ein Schieberegister mit sagen wir mal 1000 Speicherplätzen geschoben und kommen am Ende zeitlich verzögert raus.
Das Ausganssignal wird dann mit 70% vom Eingangswert und 30% vom verzögerten Wert addiert.
Dieser Samplewert wird wieder in eine zweite WAV-Datei geschrieben.
Realtime, also gleich anhören ist nicht und irgendeine Integration in den MediaPlayer auch nicht.

Mehr kann ein Neuling auf dem Gebiet am Anfang nicht erwarten.

Poseidon 8. Jul 2008 17:47

Re: Equilazer
 
:wiejetzt:

Gibt es keine einfachere möglichkeit als mit Bass.dll oder fmod (mit TMediaplyer)?
Ich progge seit ca. 1 Monat am Player und will nicht wider von vorne Anfangen
(auch wenn ich das wohl machen muss um einen Anständigen Player zu progen :cry:

Poseidon 8. Jul 2008 19:46

Re: Equilazer
 
Ich habs! Ich hab mir selber mal gedanken gemacht und ich hab denn Hall-Effekt.

Bei Formcreate

2 TMediaplayer beide Das selbe Lied
Und Playen

Timmer (Invertal= 1)

Mediaplayer2.position := mediaplayer1.position + 10000;

Kompimirt man das alles entsteht ein Hall-Effekt.
Nicht schlecht für ein Anfänger, was?

Wenn ihr wollt gebe ich euch den ganzen Quelltext

mfg Poseidon

Larsi 8. Jul 2008 19:58

Re: Equilazer
 
Ich kann man das jetzt nicht so richtig vorstellen. Lad mal ne exe hoch. Ich weiß nicht ob das die beste Lösung ist, aber für so nen Anfänger der echt nur Hall bruacht reichts ja. :)

Poseidon 9. Jul 2008 06:50

Re: Equilazer
 
Liste der Anhänge anzeigen (Anzahl: 1)
So hier ist die EXE:

WICHTIG

Das wat nur ein Kleine Demoversion die ich geprogt habe.
Der Code ist noch NICHT ausgereift.

Damit alles futzt muss die Datei C:\hi.mp3
und C\hi2.mp3 exestieren. Einfach dein liedblingslied
kopieren und Programm starten (Hi und Hi2 müssen das selbe lied sein).

Bei direkten oder indirekten Problemen die das Programm auslöst
übernehme ich keine Haftung (bei mir futzt es aber :wink: )


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:40 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz