Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-11-2010
vgomez vgomez is offline
Registrado
NULL
 
Registrado: nov 2010
Posts: 2
Poder: 0
vgomez Va por buen camino
Reproducir videos desde delphi

hola, gracias por este tipo de foros que prestan una ayuda muy valiosa.

mi caso es el siguiente, necesito hacer una aplicacion en la cual pueda ejecutar una lista de videos mediante una aplicación externa, lo que no puedo hacer es que sea continua, es decir, en cuanto termine un video, se cierre la aplilcación y ejecute el siguiente video.
He intentado con RunAndWaitShell y ShellExecute pero no puedo cerrar la aplicación al terminar el video.
ojala puedan ayudarme, gracias por adelantado.
Responder Con Cita
  #2  
Antiguo 13-11-2010
Avatar de adeszeus
adeszeus adeszeus is offline
Miembro
 
Registrado: abr 2010
Ubicación: San Mateo, Mexico (aun lado de Santa Maria y pasando el campo de futbol)
Posts: 47
Poder: 0
adeszeus Va por buen camino
Question No entiendo por completo

Haber no entiendo bien tu problema,.... esto es lo que capto:

- Deseas desde Delphi Abrir una lista de videos.
- Despues de cargar la lista.... desde delphi abrir una aplicacion para reproducirlos.
- Al Terminar el Video Cierre de manera automatica Delphi la Aplicacion y volver a abrirla con otro video diferente?
Responder Con Cita
  #3  
Antiguo 13-11-2010
santus santus is offline
Miembro
 
Registrado: ene 2006
Posts: 130
Poder: 19
santus Va por buen camino
no se que programa quieres controlar, pero yo hice algo así con el VLC Media Player.
Tienes varios comandos que puedes manejar que son muy utiles.
Arma una lista de reprodución con un TStringList. Agregas todos los archivos que quieras reproducir, y luego lo guardas con el método SaveToFile como "ListaRep.m3u".

Luego llamas a la aplicación con los siguientes parámetros:

Código Delphi [-]

ShellExecute(0,nil,
        pchar('C:\Archivos de programa\VideoLAN\VLC\vlc.exe'),
        pchar('ListaRep.m3u  --one-instance --loop -f  --no-video-title-show'),
        'C:\directorio_donde_esten_los_archivos',SW_NORMAL);
--one-instance: Solo abre una instancia del VLC. Útil para no abrir mas de un reproductor a la vez.
--loop: Ejecuta la lista una y otra vez.
-f: Pantalla completa.
--no-video-title-show: no muestra el nombre del archivo que se esta reproduciendo.

Para matar la aplicación VLC yo utilizo la siguiente funcion:

Código Delphi [-]

function MatarProceso(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result := 0;

  FSnapshotHandle := CreateToolhelp32Snapshot
                     (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
                                 FProcessEntry32);

  while integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
         UpperCase(ExeFileName))
     or (UpperCase(FProcessEntry32.szExeFile) =
         UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(OpenProcess(
                        PROCESS_TERMINATE, BOOL(0),
                        FProcessEntry32.th32ProcessID), 0));
    ContinueLoop := Process32Next(FSnapshotHandle,
                                  FProcessEntry32);
  end;

  CloseHandle(FSnapshotHandle);
end;

Espero haberte sido de ayuda. Saludos.
__________________
"El ordenador nació para resolver problemas que antes no existían." Bill Gates.
Responder Con Cita
  #4  
Antiguo 16-11-2010
vgomez vgomez is offline
Registrado
NULL
 
Registrado: nov 2010
Posts: 2
Poder: 0
vgomez Va por buen camino
gracias de antemano por contestar.

Lo que me dice santaus esta muy bien y me saca parcialmente del apuro, tratare de explicarme un poco mas, tengo una lista de videos que quiero mandar a unas pantallas de televisión, para ello ocupo utilizar un programa para reproducir karaoke, pero necesito mandar el video a la extensión de escritorio de windows, cosa que no se si se pueda hacer desde el media player, es por eso que ocupaba correr la apllicación externa.
gracias.
Responder Con Cita
  #5  
Antiguo 08-03-2011
gonza_619 gonza_619 is offline
Miembro
 
Registrado: feb 2010
Posts: 157
Poder: 15
gonza_619 Va por buen camino
terminar diapositiva automaticamente

bueno lo mio es similar nada mas que yo utilizo shellexecute con un archivo pps y al finalizar no se finaliza automaticamente sino que hai que hace click y lo que quiero es que finalize al termianr la presentacion, alguna idea de como hacerlo o terminar el shell execute?
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Reproducir videos seguidamente en TMediaPlayer kolfito Gráficos 7 04-09-2013 07:21:00
Reproducir videos en TMediaPlayer El_Perrito Gráficos 3 11-04-2009 15:01:34
Reproducir Audio desde el delphi fide API de Windows 10 05-02-2008 21:12:20
Reproducir mp3 desde Delphi FNADALO Varios 1 20-08-2004 17:09:04
Reproducir un WAV desde Delphi andrestsas Varios 2 04-08-2003 23:44:37


La franja horaria es GMT +2. Ahora son las 13:52:06.


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