Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-04-2014
UsuarioBaja123 UsuarioBaja123 is offline
Miembro
 
Registrado: abr 2014
Posts: 17
Poder: 0
UsuarioBaja123 Va por buen camino
Exclamation Ayuda con error en código

He estado haciendo una aplicación recientemente y me he cruzado con el problema de que nunca había utilizado el componente TMediaPlayer. Con mis conocimientos intente hacer lo que pude y me guié de unos códigos en internet. El problema está que en cuando uso un OpenDialogue para abrir un archivo MP3 el componente TMediaPlayer me suelta "No se puede determinar el tipo del dispositivo por la extensión del archivo". Pero en cambio si lo pongo manualmente en las propiedades lo reproduce perfectamente.

He probado con estos dos códigos:
Código:
var
  openmp3Dialog : TOpenDialog;    // OpenMP3File Variable
  mp3File : String;    // Create a variable for MP3 File
begin
openmp3Dialog := TOpenDialog.Create(Self);
  openmp3Dialog.Filter := 'MP3 Audio Files (*.mp3)|*.mp3';
  if openmp3Dialog.Execute() then
    openmp3Dialog.FileName := MP3Player.FileName;
    if (FileExists(openmp3Dialog.FileName)) and
       (not DirectoryExists(openmp3Dialog.FileName)) then
      MP3Player.Wait := true;
      MP3Player.Open;
      MP3Player.Play;
      openmp3Dialog.Free;
 end;
y con este:

Código:
var
  openmp3Dialog : TOpenDialog;    // OpenMP3File Variable
  mp3File : String;    // Create a variable for MP3 File
begin
openmp3Dialog := TOpenDialog.Create(Self);
openmp3Dialog.Filter := 'MP3 Audio Files (*.mp3)|*.mp3';
openDialog.Execute
openmp3Dialog.FileName := MP3Player.FileName;
openDialog.Free;
MP3Player.Open;
MP3Player.Play;
end;
El segundo lo desarrollé yo mismo pero al ver tutoriales diferentes en internet decidí cambiarlo por el que había en Internet.

A parte de eso tengo más cosas ahí metidas como escribir textos en TEdit mostrar unos mensajes y otras cosas pero en el final donde no tienen relación con el código inicial.

Gracias de antemano.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
error VALOR DE BOF o EOF es TRUE, codigo simple y me salta ese error Daniel10 Tablas planas 12 04-01-2013 16:04:18
Porque este código me da error (adjunto código) David JAVA 1 12-03-2009 20:07:27
Error en este código. FF funciona/IE da error papulo HTML, Javascript y otros 7 14-11-2007 09:44:23
Ayuda con error en codigo porfa! jorgegetafe Varios 6 09-02-2007 16:24:40
Ayuda con error en codigo :-( jorgegetafe Varios 6 07-02-2007 19:29:04


La franja horaria es GMT +2. Ahora son las 02:58:37.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi