En este ejemplo se crará un formulario que contendrá un componente MediaPlayer que servirá para reproducir ficheros .WAV. Utilizaremos la gestión de excepciones para controlar la correcta ejecución del programa.
Para más información, pinchar el siguiente enlace: |
![]() |
En primer lugar, crear el directorio Sonidos. y, si procede, una nueva aplicación ( File | New Application).
Guardar proyecto: Salvar Unit1.cpp como Ppal.cpp y Project1.bpr como Sonidos.bpr
Configurar el formulario para que tenga el aspecto mostrado en la figura siguiente:
Cambiar el título (Caption por Sonidos) y añadir los siguientes componentes:
La gestión de las interrupciones capturadas se realiza con una función común cuyo prototipo es:
void Error (AnsiString & name, Exception & e);
que se escribirá por encima de todas las funciones de Ppal.cpp. Así, los gestores de los eventos OnClick asociados a los botones serán los siguientes:
//-------------------------------------------------------------- void __fastcall TForm1::LogoffBtnClick(TObject *Sender) { MediaPlayer1->FileName = "C:\\WINDOWS\\MEDIA\\Logoff.wav"; try { MediaPlayer1->Open(); MediaPlayer1->Wait = true; MediaPlayer1->Play(); MediaPlayer1->Close(); } catch (Exception & e) { Error (MediaPlayer1->FileName, e); } } //-------------------------------------------------------------- void __fastcall TForm1::MSSoundBtnClick(TObject *Sender) { MediaPlayer1->FileName = "C:\\WINDOWS\\MEDIA\\The Microsoft Sound.wav"; try { MediaPlayer1->Open(); MediaPlayer1->Wait = true; MediaPlayer1->Play(); MediaPlayer1->Close(); } catch (Exception & e) { Error (MediaPlayer1->FileName, e); } } //-------------------------------------------------------------- void __fastcall TForm1::ErrorBtnClick(TObject *Sender) { MediaPlayer1->FileName = "C:\\WINDOWS\\MEDIA\\NoEsta.wav"; try { MediaPlayer1->Open(); MediaPlayer1->Wait = true; MediaPlayer1->Play(); MediaPlayer1->Close(); } catch (Exception & e) { Error (MediaPlayer1->FileName, e); } } //-------------------------------------------------------------- void __fastcall TForm1::OtrosBtnClick(TObject *Sender) { OpenDialog1->Title = "Abrir un fichero de sonido"; OpenDialog1->Filter = "Ficheros de sonido (*.wav) | *.WAV"; OpenDialog1->InitialDir = "C:\\WINDOWS"; if (OpenDialog1->Execute()) { MediaPlayer1->FileName = OpenDialog1->FileName; try { MediaPlayer1->Open(); MediaPlayer1->Wait = true; MediaPlayer1->Play(); MediaPlayer1->Close(); } catch (Exception & e) { Error (MediaPlayer1->FileName, e); } } // if (OpenDialog1->Execute()) } //-------------------------------------------------------------- void Error (AnsiString & name, Exception & e) { ShowMessage ("Fallo en la reproducción del fichero de sonido: " + name + "\nExcepción: " + AnsiString(e.ClassName()) + "\nDetalles: " + AnsiString(e.Message)); } //--------------------------------------------------------------
Cuando se ejecuta este programa, si se pulsa en el botón Error (se supone que el fichero de sonido que se quiere reproducir no existe) aparece la siguiente ventana:
En cambio, si se quiere reproducir un fichero cuyo formato no sea .wav aparece la siguiente ventana: