17 respuestas en este tema

[Desart]

Hola compañeros, se que el titulo es un poco raro, pero lo que quiero hacer es con un juego de luces Rojos Verdes y amarillas, que se enciendan y apaguen al ritmo de la música, con un pequeño efecto de desface o fader (Esto lo tenia el Amiga para los archivos Mod), me gustaría saber si con un mp3 desde un media player, se podría y por donde tendría que ir. He intentado ver temas de visores de Onda ,Spectrun y Meter de la librería bass, pero como no sé que es lo que falla al cargar el archivo, lo prefiero dejar. Algo aparte es el Tema de como Ecualizar El sonido, pero prefiero dejarlo para otro tema.  Por Cierto Rojo era para los Grabes, Verde Para los Finos y Amarillo para los medios y estaban colocadas triangularmente.

[enecumene]

Con las librerias BASS y/o FMOD puedes hacer eso que quieres .

Saludos.

[Desart]

Gracias Enecumene, pero el problema es que me da error al cargar el archivo de audio, al iniciarlo, etc. y eso que tiene la libreria y el archivo de pas en el directorio de la aplicación, su correspondiente  llamada en el source del proyecto y en el uses de modulo, yo creo que el  fallo lo tengo al inicializar la libreria y al definir los canales aplicando el archivo del MEdiaplayer o del Filelistbox que uso.

[enecumene]

A ver amigo, ¿cual de las dos librería estás utilizando?.

[Desart]

Bass,  te pongo los trozos de código que me da error y los que tengo referente a la libreria bass
  Limeas que dan error

delphi

       BASS_Init(-1, 44100, 0, Application.Handle, nil);
       BASS_Start;
       Channel := BASS_MusicLoad(FALSE, PChar(FileListBox2.FileName), 0, 0, BASS_UNICODE ,0);
       Channel := BASS_StreamCreateFile(FALSE, PChar(FileListBox2.FileName), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});

Tanto de una como de etro (inicio y carga) te pongo las dos lineas con las que lo he intentado

Otros  trozos código de bass

delphi

uses   //En el uses
 
  Rled, bass,dynamic_bass, spectrum_vis;
 
  Channel : DWORD; //Variable general
 
 
 //En el OnCreate del Form
 
//    BASS_Init(-1, 44100, 0, Application.Handle, nil);
    BASS_Start;
    Spectrum    := TSpectrum.Create(PaintFrame.Width, PaintFrame.Height);
 
//Al cerrar el form
  BASS_Free;
 
 
//Caundo cargo la cancion
 
           Channel := BASS_MusicLoad(FALSE, PChar(FileListBox2.FileName), 0, 0, BASS_UNICODE ,0);
  //       Channel := BASS_StreamCreateFile(FALSE, PChar(FileListBox2.FileName), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
         BASS_ChannelPlay(Channel, False);
         Timermeter.Enabled:=True;
 
 
//Y timer para dibujar el Spectrum en un paintBox
 
//Aqui tambien da error pero es por que no esta definido el Channel
procedure TFUtilConfig.TimermeterTimer(Sender: TObject);
 var FFTFata : TFFTData; WaveData  : TWaveData;
begin
  if BASS_ChannelIsActive(Channel) <> BASS_ACTIVE_PLAYING then Exit;
     BASS_ChannelGetData(Channel, @FFTFata, BASS_DATA_FFT1024);
     Spectrum.Draw (PaintFrame.Canvas.Handle, FFTFata, 30, 60);
end;

[enecumene]

Pues por lo que veo, veo que no has incializado el BASS, no utilices BASS_Start sino BASS_INIT en el OnCreate del proyecto:

delphi

BASS_Init(-1, 44100, 0, handle, nil)

Lo segundo es que no puedes cargar al channel dos formatos diferentes, Music_Load sirve para cargar audios de formatos MOD y MO3 propios de la librería BASS mientras para MP3, WAV y OGG debes usar BASS_StreamCreate y no BASS_StreamCreateFile, en este caso debes primero verificar el formato para cargarle la función correspondiente (MusicLoad o StreamCreate), Si la variable Channel no te funciona con DWORD utiliza HSTREAM.

Saludos.

[escafandra]

Si me Permitís un inciso, creo que sería interesante repasar el tema de Spectrum Analyzer y Visualizaciones de cHackAll. Posiblemente aporte buenas ideas.

Saludos.

PD. La lástima es que los archivos adjuntos están corruptos. Si alguien los tiene deberíamos restaurarlos. 

[enecumene]

Pos claro, esa unidad es la que utilizo , Chackall es un monstruo .

[escafandra]

Pos claro, esa unidad es la que utilizo , Chackall es un monstruo .

Si tienes los archivos adjuntos del "monstruo" podríamos restaurar lo que ahora mismo están corruptos.

[enecumene]

Pues de casualidad sí los tenía en esta computadora y los resubí

[escafandra]

Pues de casualidad sí los tenía en esta computadora y los resubí

Pues que bien, así vamos restaurando el arsenal de conocimientos depositados en el foro. 

[Desart]

NAda sigo intentando y no lo logro, si podéis poner un ejemplo sin florituras ni visualizadores, sólo para saber donde fallo, os lo agradecería.

[Desart]

Hola compañeros desestimo la librería bass y estoy probando con NEWAC, que aun que parece menos potente me esta dando mejores resultados

[cHackAll]

Hola compañeros desestimo la librería bass y estoy probando con NEWAC, que aun que parece menos potente me esta dando mejores resultados

Esperando no levantar polvo, mi curiosidad me lleva a preguntar;
cuál es el problema de la libreria BASS? y por qué te da mejores resultados la tal NEWAC?

[egostar]

Hola compañeros desestimo la librería bass y estoy probando con NEWAC, que aun que parece menos potente me esta dando mejores resultados

Esperando no levantar polvo, mi curiosidad me lleva a preguntar;
cuál es el problema de la libreria BASS? y por qué te da mejores resultados la tal NEWAC?

Hey little bro, lo que has levantado es una gran sonrisa al verte de nuevo por aquí

Salud OS

[escafandra]

Esperando no levantar polvo, mi curiosidad me lleva a preguntar;
cuál es el problema de la libreria BASS? y por qué te da mejores resultados la tal NEWAC?

Saludos, amigo. Me alegra mucho verte de nuevo  .

Saludos.

[Desart]

ME ha resultado mucho mas fácil el manejo de la NewAc que la bass, lo unico con lo que sigo en dudas, es como conseguir el chanel left y el Right del Stereo.

[cHackAll]

...lo que has levantado es...

...una gran sonrisa al verte de nuevo por aquí...

ahhh!
SALUD hermanito!

...Saludos, amigo. Me alegra mucho verte de nuevo...

Saludos

ME ha resultado mucho mas fácil el manejo de la NewAc que la bass, lo unico con lo que sigo en dudas, es como conseguir el chanel left y el Right del Stereo.

Ahora que la descargo si, me parece mas interesante que las anteriores porque éste no tiene "cajas negras ~ librerias" y esta escrito en Delphi.

Al ser un tema de DirectSound creo que deberias analizar los valores de Channels, BlockAlign y BitsPerSample para procesar correctamente los N canales que tenga el buffer de sonido.

Saludos