Mensajes

Antes que nada Links Arreglados.

>|------------------------>

Código (vb) [Seleccionar] Expandir

Dim pr As New InfraMediaByOAMA

Código [Seleccionar] Expandir

InfraMediaByOAMA

OAMA

Ortega Avila Miguel Angel   =   OAMA

Siempre me a sonado a Iraqi pero bueno es mi diminutivo pero igual.¡!

no es serio esto, ¿¿al final quien es el autor?? , esta linea de codigo me dejo mudo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Terminate(): PR.cerrarmedios: End Sub

mmm cual es la diferencia de Terminate y Unload?, mmm (cuando termina y cuando se descarga, cual es la diferencia mmm)

De igual forma pudo hacer sido:

Código (vb) [Seleccionar] Expandir


pr.MedioX_cerramedio [indentificar] ' si no se pone identificador se tomara 0 por default
pr.MedioX_cerramedio ' mci close id

' Pero como cierro el APP y no deseo seguir oyendo nada mejor uso (solo solo en el VB)

pr.Cerrarmedios ' mci => close all


Algo mas ¬¬!   

P.D.: El identificaador llega hasta 100 elementos (0-99), lo realice asi para evitarme la pena de crear mas de 1 vez la dll y posibleemente hacer degradados intercalados de música (exagere con los 100 elementos lo se ¬¬).

No somos Adivinos ¬¬, postea una parte de tu codigo seguro algo traes mal o no se

De la nada uedo solo desirve esto:

Te tengo 2 formas con las cuales mejorar el rendimiento 1 lee solo la parte deseadda del archivo 2 trata de solo cargar partes del archivo trata de hacer por bits y no por Caracteres (ms-dos tiene una funcion para comparar dos archivos y decir si son iguales o no  y tiene una funcion que es por bytes y no consume recursos ademas de que es rapido)

o si lo prefieres puedes dejar que tu Aplicacion siga consumiento los recuersos y en caso puedes bajarle la prieridad cque le tomara el procesados a Tu aplicacion (Api: SetPriorityClass, y SetThreadPriority, GetCurrentThread, GetCurrentProcess, mm creo que se ocupan otras no recuerdo bien pero con estas se baja la prioridad de cClase tal y como lo harias con el Administrador de Tareas del Virus wue diga Windows. )

P.D. : Api-Gui por si acaso lo de Prioridad(Este ultimo no lo recomiendo ¬¬" pero aun asi lo digo por si acaso).

Saludos

Vale, y existe alguna alguna ayuda por aqui ?

o tendre que buscar por otros lados?

por que preguntas mejor usa el buscador ¬¬" si no encuentras nada entonces si pregunta, hay un tema Con esactamente el mismo Titulo por hay

qe pretendes hacer? joder nada mas? 
para que putada quieres el codigo?; ponte a estudiar niñato

que malo ¬¬!

mmm busca aquí un code que se llama Kick MSN hay viene el como detectar las ventanas activas bueno es algo sencillo pero funciona por limitaciones xd

[y creo que Microsoft ha merecido ser el ganador de esta generación con la Xbox]

Yo soy usuario de la 360 y eso de "dejarse ganar" lo veo muy injusto, es casi como decir que la 360 es para marginados o que ha tenido suerte de seguir viva! Sinceramente, la Xbox no me gustó y fui usuario de una PSX y una PS2. Al principio mi duda era el catálogo, e incluso le tenía echado el lazo a la PS3, pero me regalaron la 360 con el Halo 3 y acabé con el Gears of War 1 y 2, el Forza MotorSport 2, el Guitar Hero World Tour (aunque me parece el más flojillo de la saga ¬¬) y después de ver algunos juegos de 360 y PS3 en el mismo televisor en HDMI he llegado a la conclusión de que yo no nací para detectar fallos de consolas porque no noto la diferencia de calidad... Ahora tengo la nueva interfaz Xbox, disco duro de 20Gb, mi memory card (porque es la arcade xD) de 256MB (donde guardo mis partidas y mis perfiles de jugador por miedo a que pete el disco duro xD) y creo que Microsoft ha merecido ser el ganador de esta generación con la Xbox

El post se te torció cuando dices eso porque esta generación la gana Nintendo.

Pues maso... en diversión si, pero en graficos creo que se disputa entre 360 y la ps3 porque el Wii no tiene buenas graficas ...

( Sobre la wii )
para mi es mas la diversion que los graficos mas la historia que los graficos, etc

( Hablo en forma general )
si Final Fantasy es mega reconocido a tal grado de que cuando ven solo ver ff practicamente quien sea sabra qe se trata Final Fantasy por que su historia y drama es y simempre a sido exitosa

Conclusion si no hay diversion, historia y demas cosas de interes que No sean graficos en mi parecer NO sirve ¬¬" y fracasa aun cuando tenga los graficos mas realistas.

P.D. no doy mi voto a sony, nintendo ni a Microsoft (que son los que se estan hablando en este hilo de sus respectivas consolas), aun que sea fiel a Sony xP

FIDELIDAD SONY en vida y desagracias y Muerte a Microsoft por sus Versiones de Virus que diga Windows xP

Podre aquí un poco de MCI Command String

use open para identificarlo posteriormente al medio actual y poder realizar los demas Comdos posteriormente por medio del identificador, Play + ruta del archivo solo reproduce pero no realiza cambios posterioes almenos que se le ponga un alias.

Código (vb) [Seleccionar] Expandir


archivo="Ruta del archivo"
tipo="mpeg" ' puede ser otro tipo este lo cambian según los codecs
identificador="un nombre o numero" 'servira para hacerse una modificación al medio abierto posteriormente xP

"open " & chr(32) & Archivo & chr(32)  & " type " & Tipo & " alias " & Identificador & " "
"play " & indetificador & " "
o
"play " & chr(32 & rutadelarchivo & chr(32) & " "
"play " & identificador & " fullscreen"


Código (vb) [Seleccionar] Expandir


"setaudio " & identificador & " volume to " & Valor
"setaudio " & identificador & " left volume to " & Valor
"setaudio " & identificador & " Right volume to " & Valor



para obtener vvolumen posicion y demas usese status

Código (vb) [Seleccionar] Expandir


"status " & identificador & " volume"
"status " & identificador & " left volume"
"status " & identificador & " Right volume"


Código (vb) [Seleccionar] Expandir


"set " & identificador & " video off"
"set " & identificador & " video on"
"set " & identificador & " volume off"
"set " & identificador & " audio all off"
"set " & identificador & " audio all on"


si quieren callar solo un lado seai zquierdo o derecho usese Left o Right según se dee

Si deseean mas informacion sobre los MCI Command String esta el MSDN Click para acceder o google

ejemplos sencillos:

se nesesita solo un timer y en un formulario:

Reproduce un Medio infinitamente (gracias a que el timer verifica si se esta reproduciendo o NO xP)

Código (vb) [Seleccionar] Expandir


Dim pr As New InfraMediaByOAMA
private sub form_load()
        With PR
            '.cerrarmedios 'Cierra TODOS los medios que se abrieron con anterioridad
            .UrlMedia_Establece "ruta del archivo no importa si es musica, imagen o video"
            .abrirmedia
            .mediox_reproducirmedia
            AutoRedraw = True
            Print .mediox_posicionenmilisegundos(0)
            MsgBox .AcercaDe
        End With
end sub


Private Sub Form_Terminate(): PR.cerrarmedios: End Sub

Private Sub Timer1_Timer()
    If Not PR.mediox_reproduciendo Then
        PR.mediox_reiniciarmedio
    End If
    info
End Sub
   
Sub info()
    Cls
    With PR
        Print "----------------------------------------------"
        Print "Tiempo del Medio: " & vbTab & vbTab & vbTab & .MedioX_FormatoTiempoPosicion & "  " & .mediox_FormatoTiempofaltante
        Print "----------------------------------------------"
        Print "Velocidad Actual de Medio: " & vbTab & vbTab & .MedioX_Obtener_Velocidad
        Print "----------------------------------------------"
        Print "Version del Componente MCI: " & vbTab & vbTab & .device_version
        Print "----------------------------------------------"
        Print "estado de Componente MCI: " & vbTab & vbTab & .device_listo
        Print "----------------------------------------------"
    End With
End Sub


el codigo anterior si se le pone la ruta de una imagen o video este saldrá de una ventana emergente ("PopUp")
si se desea mostrar un video o imagen en un lugar especifico usar el siguiente codigo:

Código (vb) [Seleccionar] Expandir


Dim pr As New InfraMediaByOAMA
Private Sub form_load()
        With pr
            '.cerrarmedios 'Cierra TODOS los medios que se abrieron con anterioridad
            .UrlMedia_Establece "ruta de la imagen o video"
            .AbrirComoVentana Picture1.hWnd, "child"   '.AbrirMedia
            .MedioX_ReproducirMedia
            AutoRedraw = True
            Print .MedioX_PosicionEnMilisegundos(0)
            MsgBox .AcercaDe
        End With
End Sub


Private Sub Form_Terminate(): pr.CerrarMedios: End Sub

Private Sub Timer1_Timer()
    If Not pr.MedioX_Reproduciendo Then
        pr.MedioX_ReiniciarMedio
    End If
    info
End Sub
   
Sub info()
    Cls
    With pr
        Print "----------------------------------------------"
        Print "Tiempo del Medio: " & vbTab & vbTab & vbTab & .MedioX_FormatoTiempoPosicion & "  " & .MedioX_FormatoTiempoFaltante
        Print "----------------------------------------------"
        Print "Velocidad Actual de Medio: " & vbTab & vbTab & .MedioX_Obtener_Velocidad
        Print "----------------------------------------------"
        Print "Version del Componente MCI: " & vbTab & vbTab & .Device_Version
        Print "----------------------------------------------"
        Print "estado de Componente MCI: " & vbTab & vbTab & .Device_Listo
        Print "----------------------------------------------"
    End With
End Sub


Esta es una libreria donde pongo funciones de MCI para poder manejar según los codec's instalados en la pc:
Música
Imagenes
Videos

Dichos codigos no son la gran cosa ya que cualquiera los podria crear con solo leer la MSDN, solo son funciones que sustituyen a dichos comandos MCI (abajo muestro unos 3er post secuencial.)

Usa la Api mciSendString y mciGetErrorString

Funciones que incluye la DLL:

hay funciones que piden
:::WindowsStyle::: lo tipos son:
popup
child
(creo que hay otro mmm igual pueden buscar mas info sobre MCI y asi encuentran el otro xP)

Código [Seleccionar] Expandir


AbrirComoVentana
AbrirMedia
AcercaDe
Audio_Derecho_OFF
Audio_Derecho_ON
Audio_EstableceLeftVolume
Audio_EstableceRightVolume
Audio_EstableceVolumenGeneral
Audio_EstadoDelAudio
Audio_Izquierdo_OFF
Audio_Izquierdo_ON
Audio_ObtenerLeftVolume
Audio_ObtenerRightVolume
Audio_ObtenerVolumenGeneral
Audio_OFF
Audio_ON
CerrarMedios
ChecarError
Device_Listo
Device_Nombre
Device_Version
Disquera_Abrir
Disquera_Cerrar
Establece_PocicionEn
Establece_TamanoLocal
Establece_Velocidad
Estraer_TamanoPred
MedioX_AdelantarCuadros
MedioX_AdelantarMilisegundos
MedioX_AdelantarSegundos
MedioX_AtrasarCuadros
MedioX_CerrarMedia
MedioX_DetenerMedio
MedioX_FormatoTiempo
MedioX_FormatoTiempoFaltante
MedioX_FormatoTiempoPosicion
MedioX_MinimizarMedio
MedioX_MostrarMedio
MedioX_Obtener_CuadrosPorSegundo
MedioX_Obtener_TamanoActual
MedioX_Obtener_TamanoOriginal
MedioX_Obtener_Velocidad
MedioX_Obtener_VelocidadNominalEnCuadros
MedioX_OcultarMedio
MedioX_PausarMedio
MedioX_PosicionEnMilisegundos
MedioX_ReiniciarMedio
MedioX_ReproduceFullScreen
MedioX_Reproduciendo
MedioX_ReproducirMedia
MedioX_RestaurarMedio
MedioX_ResumirMedio
MedioX_TiempoFaltanteEnCuadros
MedioX_TiempoFaltanteEnMilisegundos
MedioX_TiempoFaltanteEnSegundos
MedioX_Video_Estado
MedioX_VideoOff
MedioX_VideoOff_ALL
MedioX_VideoOn
MedioX_VideoOn_ALL
Obtener_BitsPorPicel
Obtener_EntradaDelMedio
Obtener_EstadoDelMedio
Obtener_PosicionEnCuadros
Obtener_PosicionEnSegundos
Obtener_SalidaDelMedio
Restaurar_TamanoOriginal
stepCuadros
UrlMedia_Establece


Como ven esta muy completa esta libreria pero aun me faltan opciones a como yo lo veo.

Descargar En RAR
Descargar En Zip

Comentarios? gracias

Saludos

Muy bueno el reproductor!

Esta excelente, una sugerencia es que limpies los archivos .IMS de la carpeta data del programa subido ya que estan los datos de tua archivos xDD y cuesta bastante borrarlos desde el programa...

Otra cosa cuando no hay elementos cargados en las listas abajo dice:

"Elementos cargados: Error"

Me gusto bastante felicidades por el trabajo!

Si gracias,... Estoy viendo pros y contras aun, mmm, jem posteo el source como dije cuando ya tenga la mayoria de estos bichos arreglados xP

Comprimedo con UPX mm a lo mejor y sirve de algo xP