https://foro.gambas-es.org/viewtopic.php?f=5&t=2016 ----------------------------------- Juan Luis Lopez Miercoles, 09 Noviembre 2011, 18:37 Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Hola a todos! Aquí os traigo mi programa. Lo que hace es que cuando tu colocas un link a megavideo en la caja de texto y le das a enviar crea un archivo html con el video embedido que genera la web Megavideo-No Despues al pulsar Ver Video se abre tu navegador y se reproduce el video. [youtube]YfKQ80_ZScE[/youtube] Quise hacerlo con un webbrowser (lo de reproducir el video pero creo que no soporta flash asi que de momento eso es todo. MegavideoNo.Class: [code linenumbers=false syntax=gambas]' Gambas class file PRIVATE Client AS NEW HttpClient AS "Client" PUBLIC Buffer AS String 'http://www.megavideo.com/?v=4R2Y3TWF PUBLIC SUB GetEmbedVideoCode(MegavideoUrl AS String) 'Crea un archivo HTML con el codigo del video embedido (Finished) IF Mid(megavideourl, 1, 26) <> "http://www.megavideo.com/?" THEN Message.Error("The specified URL is not a Megavideo link") FMain.BtVer.Enabled = FALSE RETURN END IF Client.Close Client.Async = TRUE Client.Timeout = 60 Client.URL = "http://www.megavideo-no.com/megavideo/" Client.Post("application/x-www-form-urlencoded", "url=" & MegavideoUrl) FMain.BtVer.Enabled = FALSE END PUBLIC SUB Client_Finished() DIM Archivo AS File 'Leemos los datos descargados (HTML) IF Lof(Client) THEN READ #Client, Buffer, Lof(Client) END IF 'comprobamos que no existan errores IF InStr(Buffer, "Error locating download URL") THEN Message.Error("Video does not exist") FMain.BtVer.Enabled = FALSE RETURN ENDIF 'Modificamos el buffer para que quede el codigo html que deseamos Buffer = "Ver video sin resticciones



") & ">
" 'Creamos un archivo HTML con el codigo del video generado por la web OPEN Application.Path & "/video.html" FOR WRITE CREATE AS #Archivo PRINT #Archivo, Buffer CLOSE #Archivo 'Poniendo los controles de los formularios como publicos FMain.BtVer.Enabled = TRUE END PRIVATE FUNCTION Between(Datos AS String, Cadena1 AS String, Cadena2 AS String) AS String DIM iinf AS Integer DIM isup AS Integer iinf = InStr(Datos, Cadena1) + Len(Cadena1) isup = InStr(Datos, Cadena2, iinf) RETURN Mid(Datos, iinf, isup - iinf) END[/code] Saludos. ----------------------------------- Enchufadoo Jueves, 10 Noviembre 2011, 15:22 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Hola, amplie un poco el codigo para que veas que si se puede reproducir desde el programa pero usando mplayer no un webbrowser. Es medio un dolor de cabeza hacer streaming, puse un Shell asi nomas que esta bastante mal aunque funciona. No creo que sea imposible hacer una buena clase de streaming con mplayer pero hay que romperse un poco la cabeza y hacerlo :P. [img]http://dl.dropbox.com/u/35857585/screen1.jpeg[/img] http://www.4shared.com/file/mAeaxogy/Movie1-001tar.html ----------------------------------- Enchufadoo Domingo, 20 Noviembre 2011, 21:38 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Hola! me pase todo el dia agregandole cosas, ahora puede gestionar muchas descargas y le agregue la clase de "Movie Player" que viene con gambas para poder verlos mientras los descargas (espero que sea legal eso!) http://www.4shared.com/file/rdt5pPIf/Movie1-003tar.html [img]http://dl.dropbox.com/u/35857585/Gambas/megavideoscreen.jpg[/img] ----------------------------------- Capa Lunes, 21 Noviembre 2011, 16:39 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Y con este programa no hay limitaciones de las 72 horas? Saludos. ----------------------------------- Enchufadoo Miercoles, 23 Noviembre 2011, 16:57 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Hola Capa! estube viendo anoche y megavideo me reconocia wget como un no-navegador y cortaba las descargas, le agregue un parametro y ahora funciona sin restriccion (por ahora). Tambien le agregue un par de cosas. http://www.4shared.com/file/bhZ22MlF/Movie1-005tar.html [img]http://dl.dropbox.com/u/35857585/Gambas/screenshot1.png[/img] ----------------------------------- Juan Luis Lopez Domingo, 27 Noviembre 2011, 03:06 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Veo que se ha mejorado mucho el programa! Me gusta mucho lo de descargarse los videos al disco aunque no entiendo muy bien el codigo porque soy ubuntero desde hace 3 o 4 meses ( vengo de Visual basic 6) A mi en ubuntu 11.04 y gambas 2 no se me visualiza el video mientras se descarga por mucho que le de a "Play" que puede ser? Saludos y gracias! ----------------------------------- jsbsan Lunes, 28 Noviembre 2011, 20:51 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Juan Luis Lopez y Enchufadoo: Seria interesante que dejarais un enlace a un archivo de instalación .deb , porque creo que es un programa muy interesante, y mucha gente puede estar interesada en instalarla. Saludos. Nota. Si me dais permiso, lo publico en mi blog. ----------------------------------- Juan Luis Lopez Lunes, 28 Noviembre 2011, 21:10 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Por lo que a mi respecta haz lo que quieras. enchufado es quien partió de la base que hice y el que ha añadido un monton de mejoras. Mi codigo lo tienes mas arriba de todas formas (Como soy nuevo y no se como hacerlo) las lineas: [code linenumbers=false syntax=gambas]OPEN Application.Path & "/video.html" FOR WRITE CREATE AS #Archivo PRINT #Archivo, Buffer CLOSE #Archivo [/code] Esto en un paquete Deb instalado no se ejecuta por tema de privilegios y no se como ejecutarlas como root (supongo que sea con shell (su)) Estoy investigando-aprendiendo. Saludos y felicidades por tu blog! ----------------------------------- Capa Lunes, 28 Noviembre 2011, 22:27 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- [quote user="Enchufadoo" post="11880"]Hola Capa! estube viendo anoche y megavideo me reconocia wget como un no-navegador y cortaba las descargas, le agregue un parametro y ahora funciona sin restriccion (por ahora). Tambien le agregue un par de cosas. http://www.4shared.com/file/bhZ22MlF/Movie1-005tar.html [img]http://dl.dropbox.com/u/35857585/Gambas/screenshot1.png[/img][/quote] Gracias compañero, bajando. Por cierto, http://www.4shared.com es un poco complicado para acertar cual es el botón [b]verdadero[/b] de descarga (Download). Suerte que el resto baja .exe sospechosos ;) ----------------------------------- Enchufadoo Martes, 29 Noviembre 2011, 00:48 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Hola Jsban, si queres publicarlo no hay problema por mi parte, pero creo que hay partes del codigo las hice solo para que funcionaran y no quedaron muy bien. Ademas la interfaz grafica es muy chata xD. Ahora por finales no me puedo meter del todo pero ni bien tenga tiempo voy a tratar de terminarlo. ----------------------------------- jsbsan Miercoles, 07 Diciembre 2011, 15:25 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Acabo de realizar el post: [img]http://2.bp.blogspot.com/-6Y2ETz0aG2M/TtPnWLueSPI/AAAAAAAAAxI/YMzo_clfdxw/s1600/gambas+logotipo+ganador+trans+megavideo+descarga.png[/img] [url=http://jsbsan.blogspot.com/2011/12/programa-para-ver-videos-de-megavideo.html]http://jsbsan.blogspot.com/2011/12/programa-para-ver-videos-de-megavideo.html He subido a un servidor, paquetes de instalacion para varios sistemas gnu/linux (debian, fedora, mandriva, ubuntu, suse) y ademas he añadido la documentacion generada por robodoc. Saludos ----------------------------------- Enchufadoo Miercoles, 07 Diciembre 2011, 17:28 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- buenisimo! ----------------------------------- shordi Martes, 13 Diciembre 2011, 20:20 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Pues descargar, descarga, pero ver no veo na. Uso ubuntu 10.04 tengo mplayer y demás. Sólo un cuadro negro... ----------------------------------- jsbsan Martes, 13 Diciembre 2011, 22:00 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- shordi: A mi me pasa lo mismo... pense que era algun codec que me falta.. Al final cuando las descargo lo veo con VLC Saludos ----------------------------------- netking86 Martes, 13 Diciembre 2011, 23:39 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Lo que me ocurre a mí es que el video descargado parece corrupto. Una vez descargado al 100%, el video no puedo pasarlo hacia delante con VLC, solo puedo reproducir. ¿Os pasa lo mismo? ----------------------------------- shordi Miercoles, 14 Diciembre 2011, 11:45 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- No lo sé. No tengo paciencia para descargarlo entero. La gracia estaría en verlo según baja, digo. ----------------------------------- Enchufadoo Miercoles, 14 Diciembre 2011, 15:03 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Hola! El problema del reproductor esta en gambas y gtk, yo como uso kde no me daba cuenta hasta que un amigo me dijo. Aqui encontre el bug: http://old.nabble.com/Example-MoviePlayer-in-Black-td24279431.html Hice 2 cosas, le agregue una opcion para elegir el reproductor y lo modifique para que use el componente gb.qt. Tambien le puse la documentacion y demas. Ejecutable: http://www.4shared.com/file/zj1NR6-B/megavideo.html Codigo fuente: http://www.4shared.com/file/uHydDWv4/MegavideoDes-004tar.html Saludos. PD: Todavia no tube tiempo de encontrar un servidor mejor que 4shared :oops: ----------------------------------- Invitado Miercoles, 14 Diciembre 2011, 15:24 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- [quote]Todavia no tube tiempo de encontrar un servidor mejor que 4shared [/quote] Megaupload, rapidshare, Mediafire, Pero todos son por el estilo de 4shared. Igualmente puedes creare una cuenta en sourceforge para proyectos de sw libre Salu2 y felicidades (a los dos) por el proyecto.. :) ----------------------------------- jguardon Miercoles, 14 Diciembre 2011, 15:37 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- [quote user="BrunoIV" post="12072"][quote]Todavia no tube tiempo de encontrar un servidor mejor que 4shared [/quote] Megaupload, rapidshare, Mediafire, Pero todos son por el estilo de 4shared. Igualmente puedes creare una cuenta en sourceforge para proyectos de sw libre Salu2 y felicidades (a los dos) por el proyecto.. :)[/quote] Assembla, Google Code, etc. Yo uso estos dos y también Sourceforge, aunque con menos énfasis, pero hay que reconocer que es un referente en alojamiento de software libre. Para el tema de adjuntos en el foro, al cambiar de servidor ya no tenemos problemas de espacio (disponemos de 150Gb) así que ya no hay tanto inconveniente en subir adjuntos al foro. ----------------------------------- shordi Miercoles, 14 Diciembre 2011, 19:15 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Ahora sí pita. Conejudo tío. Gracias por el aporte. ----------------------------------- Invitado Viernes, 20 Enero 2012, 08:31 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Es una pena, pero megaupload ha cerrado, así como megaporn, megavideo, etcs :( http://www.infobae.com/notas/627689-Cerro-Megaupload-por-acusacion-de-pirateria-cuatro-detenidos.html ----------------------------------- Enchufadoo Domingo, 29 Enero 2012, 23:13 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- Si una lastima, y yo por las dudas me escondo un par de meses para no terminar en guantanamo o algo asi :oops: ----------------------------------- mckaygerhard Lunes, 11 Noviembre 2013, 20:35 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- QUE TAL MODIFICARLO PARA YOUTUBE!!! y ademas opcional hacerlo tambien para consola, algunas veces hay firewalls y solo tnemos conexcion ssh los que si somos linuxeros de verdad y no usamos winbuntu AJA reviviendo ----------------------------------- jguardon Lunes, 11 Noviembre 2013, 21:18 Re: Programa Para Ver Videos De Megavideo Sin Restriccion ----------------------------------- [quote user="mckaygerhard" post="19465"]los que si somos linuxeros de verdad y no usamos winbuntu[/quote] Hola mckay No es la primera vez que te veo hacer este tipo de comentarios. Creo que no son propios de alguien que como tú, presume de ser "linuxero de verdad". Cada cual, usa la versión del sistema operativo que más le gusta o con la que más cómodo se encuentra. Que uses Debian no te hace mejor que los demás, ni peor tampoco, por eso te pediría que te abstengas de hacer esos comentarios comparando Ubuntu con windows o lo que sea... Aquí no hay "linuxeros de verdad" ni de mentira. Hay usuarios de Linux, unos más avanzados que otros, nada más. Por cierto, en la lista de gambas, tampoco gustan ese tipo de comentarios, pero no seré yo quien te llame la atención allí. Los fundamentalismos no son buenos, hay que ser más tolerante con los gustos de la gente y respetar en general a cualquiera que use un PC y necesite ayuda con la programación o cualquier otra cosa, ¿no te parece? O te gustaría que la gente no te tomase en serio por no saber escribir en inglés correctamente, por ejemplo? Vamos a usar gambas, que es lo que realmente nos importa y vamos a dejar aparte estas "cositas". Por cierto, yo tampoco uso Ubuntu, simplemente porque no me gusta. Saludos