| Autor |
Mensaje |
 vuott 
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación: 
|
 Simpático Efecto Calidoscópico De Una Imagen PNG Con Los Recursos Del Componente Gb.media
Para obtener un efecto calidoscópico de una imagen PNG con los recursos del Componente gb.media, hace fatla utilizar el elemento " kaleidoscope" de la libreria GStreamer.
Vamos a ver un simple ejemplo:
Private tb As ToggleButton
Private dr As DrawingArea
Private imm As String
Private pl As MediaPipeline
Public Sub _new()
Dim w As Integer
Dim h As Integer
imm = "/ruta/delarchivo/imagen.png"
w = ImageStat(imm).Width
h = ImageStat(imm).Height
With Me
.W = w + 200
.H = w + 100
End With
With tb = New ToggleButton(Me) As "Tasto"
.X = Me.w - 30
.Y = 10
.W = 30
.H = 40
.Text = "Start"
End With
With dr = New DrawingArea(Me)
.X = 0
.Y = 0
.W = w
.H = h
End With
End
Public Sub Form_Open()
Dim src, pdc, kal, con1, frz, con2, snk As MediaControl
pl = New MediaPipeline
src = New MediaControl(pl, "filesrc")
src["location"] = imm
pdc = New MediaControl(pl, "pngdec")
kal = New MediaControl(pl, "kaleidoscope")
kal["angle"] = Rad(45)
kal["angle2"] = Rad(140)
kal["sides"] = 10
con1 = New MediaControl(pl, "videoconvert")
frz = New MediaControl(pl, "imagefreeze")
con2 = New MediaControl(pl, "videoconvert")
snk = New MediaControl(pl, "xvimagesink")
src.LinkTo(pdc)
pdc.LinkTo(kal)
kal.LinkTo(con1)
con1.LinkTo(frz)
frz.LinkTo(con2)
con2.LinkTo(snk)
snk.SetWindow(dr)
End
Public Sub Tasto_Click() ' _
If tb.Value Then
pl.Play()
tb.Text = "Stop"
Else
pl.Stop()
pl.Close()
Me.Close
Endif
End
|
#1 Domingo, 27 Agosto 2017, 22:31 |
|
 |
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación:  Al otro lado de la pantalla
|
Re: Simpático Efecto Calidoscópico De Una Imagen PNG Con Los Recursos Del Componente Gb.media
Vuott:
¿ Y vale una imagen de cualquier tamaño ?.
Por ahora no veo salida. 
Formulario en blanco.
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#2 Lunes, 28 Agosto 2017, 13:25 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Simpático Efecto Calidoscópico De Una Imagen PNG Con Los Recursos Del Componente Gb.media
¿ Y vale una imagen de cualquier tamaño ?.
Por ahora no veo salida.
Formulario en blanco.
El archivo imagen es un PNG ?
|
#3 Lunes, 28 Agosto 2017, 14:15 |
|
|
tercoIDE
Analista Programador
Registrado: Noviembre 2013
Mensajes: 713
Edad: 54
|
Re: Simpático Efecto Calidoscópico De Una Imagen PNG Con Los Recursos Del Componente Gb.media
The program 'test2' received an X Window System error.
This probably reflects a bug in the program.
The error was 'BadDrawable (invalid Pixmap or Window parameter)'.
(Details: serial 807 error_code 9 request_code 150 minor_code 19)
(Note to programmers: normally, X errors are reported asynchronously;
that is, you will receive the error a while after causing it.
To debug your program, run it with the --sync command line
option to change this behavior. You can then get a meaningful
backtrace from your debugger if you break on the gdk_x_error() function.)
|
#4 Lunes, 28 Agosto 2017, 18:48 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Simpático Efecto Calidoscópico De Una Imagen PNG Con Los Recursos Del Componente Gb.media
The program 'test2' received an X Window System error.
tercoIDE, a ti da este mensaje de error ?
Que Componente grafico usaste ?
|
#5 Lunes, 28 Agosto 2017, 18:51 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Simpático Efecto Calidoscópico De Una Imagen PNG Con Los Recursos Del Componente Gb.media
Tengo que precisar que NO se deben activar Componentes graficos de QT !!!
Tenemos que activar Componentes graficos de los recursos de GTK.
Eso por qué el Componente gb.media se basa en los recursos de la libreria GStreamer, que se basa en GLib 2.0 de la familia de GNU/GNOME, ...como GTK.
última edición por vuott el Lunes, 28 Agosto 2017, 20:40; editado 4 veces |
#6 Lunes, 28 Agosto 2017, 18:57 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Simpático Efecto Calidoscópico De Una Imagen PNG Con Los Recursos Del Componente Gb.media
De todos modos el problema no está en el codigo, porqué a mi funciona (como podéis ver en la imagen: al centro hay lo original, a la derecha el resultado.).
última edición por vuott el Lunes, 28 Agosto 2017, 19:16; editado 1 vez |
#7 Lunes, 28 Agosto 2017, 19:14 |
|
|
tercoIDE
Analista Programador
Registrado: Noviembre 2013
Mensajes: 713
Edad: 54
|
Re: Simpático Efecto Calidoscópico De Una Imagen PNG Con Los Recursos Del Componente Gb.media
The program 'test2' received an X Window System error.
tercoIDE, a ti da este mensaje de error ?
Que Componente grafico usaste ?
gb.media
pero el programa funciona! , solo que da ese error en la consola al cerrar
|
#8 Lunes, 28 Agosto 2017, 19:30 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Simpático Efecto Calidoscópico De Una Imagen PNG Con Los Recursos Del Componente Gb.media
da ese error en la consola al cerrar
Una pregunta: como tú cerras el programa ? Haciendo click de nuevo sobre el ToggleButton a la derecha o cerrando directamente a la ventana del programa ?
|
#9 Lunes, 28 Agosto 2017, 20:35 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Simpático Efecto Calidoscópico De Una Imagen PNG Con Los Recursos Del Componente Gb.media
Vuott:
Citar:
Tengo que precisar que NO se deben activar Componentes graficos de QT !!!
Tenemos que activar Componentes graficos de los recursos de GTK.
Eso por qué el Componente gb.media se basa en los recursos de la libreria GStreamer, que se basa en GLib 2.0 de la familia de GNU/GNOME, ...como GTK.
Ya funciona. Ese era el problema, estaba usando QT.
Vaya, ¿ y no hay algo parecido para QT ?. Con Gnome siempre solía tener muchos problemas con DrawingArea al dibujar.
Hace mucho tiempo que no uso Gtk.
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#10 Martes, 29 Agosto 2017, 08:39 |
|
|
|
|
