vuott 01-08-2024, 16:26
Solo por curiosidad, cómo el plugin "aatv" de GStreamer transforma los vídeos con los recursos del Componente gb.media:

Código:
Public Sub Main()

 Dim pl As MediaPipeline
 Dim src, dcb, aa, con, snk As MediaControl
 Dim asrc, abin, acon, ares, asnk As MediaControl
 Dim filevideo As String
 Dim tm As Date
 
 filevideo = "/ruta/del/fichero/video"

 pl = New MediaPipeline

' Parte vídeo:
 src = New MediaControl(pl, "filesrc")
 src["location"] = filevideo
 dcb = New MediaControl(pl, "decodebin")
 aa = New MediaControl(pl, "aatv")
 con = New MediaControl(pl, "videoconvert")
 snk = New MediaControl(pl, "autovideosink")

 src.LinkTo(dcb)
 dcb.LinkLaterTo(aa)
 aa.LinkTo(con)
 con.LinkTo(snk)

' Parte audio:
 asrc = New MediaControl(pl, "filesrc")
 asrc["location"] = filevideo
 abin = New MediaControl(pl, "decodebin")
 acon = New MediaControl(pl, "audioconvert")
 ares = New MediaControl(pl, "audioresample")
 asnk = New MediaControl(pl, "autoaudiosink")

 asrc.LinkTo(abin)
 abin.LinkLaterTo(acon)
 acon.LinkTo(ares)
 ares.LinkTo(asnk)

 pl.Play

 Repeat  ' Mientras no se detecte la duración del vídeo, el ciclo continúa
   Wait 0.01
 Until pl.Duration > 0.00
 Print "Duración del vídeo: "; Time(0, 0, 0, pl.Duration * 1000)
 tm = Now
 Repeat 
   Write "\r\e[0mTiempo transcurrido:  \e[31m" & Str(Time(0, 0, 0, DateDiff(tm, Now, gb.Millisecond)))
   Wait 0.01
 Until DateDiff(tm, Now, gb.Millisecond) >= (pl.Duration * 1000)

 pl.Stop
 pl.Close

End
tincho 31-07-2024, 13:15
Hola
Alguien tiene algún ejemplo con el control Wizard ? (intente buscar en la granja pero esta no funciona)
Intento hacer un programa que permita crear proyectos de construcción paso a paso y creo que este control puede ser útil.
Gracias de antemano.
Shordi 28-07-2024, 19:09
Os presento rtEditor, un editor de RichText (que no recuerdo, de verdad, si ya lo subí aquí o no) y que está extraído del famoso y eternamente incabado Soprano.



En el vídeo tenéis los enlaces de descargas en la definición.

Saludos.
Páginas (549):    1 52 53 54 55 56 549   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 278
Último miembro: Blackdead
Temas del foro: 1,693
Mensajes del foro: 8,777
Últimos temas
Correr programas sin Gamb...
Foro: General
Último mensaje por: cogier, Hace 3 horas
Respuestas: 5 - Vistas: 79
Ejemplo de chat
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: Shell, Hace 3 horas
Respuestas: 3 - Vistas: 39
PC muerta
Foro: Hardware & IoT
Último mensaje por: Shell, Hace 3 horas
Respuestas: 4 - Vistas: 69
Poner imágenes en el foro
Foro: General
Último mensaje por: jguardon, Hace 5 horas
Respuestas: 3 - Vistas: 43
Crear una aplicación para...
Foro: Bases de Datos
Último mensaje por: Blackdead, Ayer, 16:44
Respuestas: 5 - Vistas: 330
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.