Club Builder

[max]

holas olitas (jajaja)....bueno yo se q muchos preguntaban como hacer uno(yo tambien) y por fin pude despues de mucho tiempo!!!!!!!
aqui les va el codigo se los hago de 2 bandas nadamas el mio tiene 20!!!!!!!
igual es facil

primer paso descargarse las librerias http://www.fmod.org/files/fmodapi375win.zip

segundo en projecto uncluyan "fmodbc.lib" y en el mismo jugar del ejecutable la dll "fmod.dll"

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#define WIN32
#define DLL_EXPORTS

#include "mainr1.h"
#include <fmod.h>
#include <float.h>//esto es para que no le aparescan mensajes de error
//en punto flotante

FSOUND_DSPUNIT *DrySFXUnit = NULL;
/******************/

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfm1 *fm1;

//---------------------------------------------------------------------------
__fastcall Tfm1::Tfm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//punto flotante de Borland
void initfp(void)
{
// Disable floating point exceptions
_control87(MCW_EM,MCW_EM);
}
//---------------------------------------------------------------------------
void __fastcall Tfm1::FormCreate(TObject *Sender)
{
hay_en_lista=false;

FSOUND_SetBufferSize(200);
FSOUND_SetDriver(0);
FSOUND_SetMixer(FSOUND_MIXER_QUALITY_AUTODETECT);
FSOUND_SetOutput(FSOUND_OUTPUT_DSOUND);

initfp();//punto flotante
if (FSOUND_Init(44000, 32/*FSOUND_GetMaxChannels()*/, FSOUND_INIT_ENABLESYSTEMCHANNELFX))
{
DrySFXUnit = FSOUND_DSP_Create(NULL, FSOUND_DSP_DEFAULTPRIORITY_USER+100, 0);
FSOUND_DSP_SetActive(DrySFXUnit, true);
}
else
{
ShowMessage("Init FMOD not OK");
}
}
void __fastcall Tfm1::playClick(TObject *Sender)
{
try{
DrySFXUnit = FSOUND_DSP_Create(NULL, FSOUND_DSP_DEFAULTPRIORITY_USER+100, 0);
FSOUND_DSP_SetActive(DrySFXUnit, true);
FSOUND_SetPaused(iChannel, !FSOUND_GetPaused(iChannel));
iChannel=FSOUND_Stream_PlayEx(FSOUND_FREE,MP3Stream,DrySFXUnit,FSOUND_ENABLEFX);
Volume = FSOUND_GetVolume(iChannel);

}
catch(...)
{
ShowMessage("Error al reproducir ajjajajjaja");
}
}
//---------------------------------------------------------------------------


void __fastcall Tfm1::TrackBar1Change(TObject *Sender)los track el //maximo es 15 y minimo -15
{
FSOUND_FX_SetParamEQ(FXHeq60,80,18,TrackBar1->Position);
}
//---------------------------------------------------------------------------
void __fastcall Tfm1::TrackBar2Change(TObject *Sender)
{
FSOUND_FX_SetParamEQ(FXHeq180,180,18,TrackBar2->Position);
}
/*****************************************************/
void __fastcall Tfm1::CheckBox4Click(TObject *Sender)
{
if(CheckBox1->Checked == true)
{
DrySFXUnit = FSOUND_DSP_Create(NULL, FSOUND_DSP_DEFAULTPRIORITY_USER+100, 0);
FSOUND_DSP_SetActive(DrySFXUnit, true);
if (FSOUND_GetOutput() == FSOUND_OUTPUT_DSOUND) {
FSOUND_SetPaused(FSOUND_SYSTEMCHANNEL, true);
FXHeq60 = FSOUND_FX_Enable(FSOUND_SYSTEMCHANNEL,FSOUND_FX_PARAMEQ);
FXHeq180 = FSOUND_FX_Enable(FSOUND_SYSTEMCHANNEL,FSOUND_FX_PARAMEQ);
FSOUND_SetPaused(FSOUND_SYSTEMCHANNEL, false);
}
}
else
{
FSOUND_DSP_SetActive(DrySFXUnit, false);
FSOUND_DSP_Free(DrySFXUnit);
FSOUND_FX_Disable(iChannel);
}
}
//---------------------------------------------------------------------------
y en h yo cree un h aleatorio no el del form
#ifndef arformH
#define arformH

#define WIN32
#define DLL_EXPORTS

#include <Classes.hpp>
#include <fmod.h>
#include <fmod_errors.h>
//#include <wincompat.h>
#include <winbase.h>

#include "main.h"





FSOUND_STREAM *MP3Stream,*streamaux,*stream;
FSOUND_DSPUNIT *DspUn,*rawwrite_dsp;
//TStringList *list=new TStringList;
//int x,y,j,l,I,NoArchivos,estado,maxl,h,s,m;
//bool qplay,qextension,loop=false,hay;
//AnsiString MPError,a;
int iChannel;
int Volume;
int iDuree;
int iPan;
int FXHeq60;
int FXHeq180;


/**************************************************************/

/**************************************************************/
#endif

fijense hante cualquier duda consulta pegenle a alguien cercano (menos al perro)
_________________
Salu2