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.
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.
En el vídeo tenéis los enlaces de descargas en la definición.
Saludos.
Bienvenido, Invitado
Últimos temas
Problemas con las interru...
Foro: GeneralÚltimo mensaje por: guizans, 14-12-2025, 18:40
Respuestas: 5 - Vistas: 248
Scrolling un ScrollArea
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, 12-12-2025, 07:24
Respuestas: 5 - Vistas: 273
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 952
Resultados dispares según...
Foro: Bases de DatosÚltimo mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 412
Mover un Result a una pos...
Foro: Bases de DatosÚltimo mensaje por: guizans, 30-11-2025, 19:25
Respuestas: 2 - Vistas: 234