Shordi 02-08-2024, 12:53
WindowFrame ofrece un marco de ventana donde puedes ubicar controles en la barra de título para ahorrar espacio dentro del formulario.
Saludos
Saludos
jorge trejos 02-08-2024, 01:38
Hola .. solo quería abrir un hilo y hacer una pregunta al foro, Se han imaginado una terminal con IA integrada ? Una terminal que si le preguntas .. Hey como que comando puedo saber que kernel tengo ?
Bueno tal vez no parezca mucho pero deberás que a veces vendría bien que la terminal fuera una IA.
Como puedo hacer esto en Gambas3 ? Sera posible ?
Solo era una duda que tenia y quise ponerla aquí en el foro... tal vez pase algo... uno nunca sabe.
saludos a todos bendiciones
Bueno tal vez no parezca mucho pero deberás que a veces vendría bien que la terminal fuera una IA.
Como puedo hacer esto en Gambas3 ? Sera posible ?
Solo era una duda que tenia y quise ponerla aquí en el foro... tal vez pase algo... uno nunca sabe.
saludos a todos bendiciones
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
Bienvenido, Invitado
Últimos temas
Poner color a titulo o ca...
Foro: GeneralÚltimo mensaje por: Alberto59, 13-11-2025, 20:58
Respuestas: 5 - Vistas: 259
Ultima fila en columnview
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Alberto59, 11-11-2025, 14:18
Respuestas: 3 - Vistas: 182
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: vuott, 11-11-2025, 01:14
Respuestas: 6 - Vistas: 391
Ordenando las carpetas
Foro: Programación en otros lenguajesÚltimo mensaje por: tincho, 08-11-2025, 09:48
Respuestas: 1 - Vistas: 193
Nuevo manual dinámico...
Foro: WebApp/WebFormsÚltimo mensaje por: tincho, 08-11-2025, 09:43
Respuestas: 9 - Vistas: 2,701