Hola muy buenas compañeros como estan, espero que muy bien y deseandoles como siempre exitos en sus programas.

Quiero comentarles que estoy tratando de mejorar el navegador de los ejemplos que trae gambas estoy tomando muchos programas de los mismos y tratando de agregarles mas cosas conjuntamente corrigiendoles sus errores entre ellos la consola de comandos ahora voy el navegador.

Bien el navegador me encanta y todo pero estoy atrapado en un problemilla que lo veo simple pero no logro solucionarlo estoy usando gambas 3.1.1 y me va muy bien, el problema es en la descarga de un archivo especificamente cuando quiero descargar una imagen al navegar, por ejemplo si descargo musica lo hace bien y videos tambien, pero cuando intento descargar una imagen se queda descargando he modificado el codigo y me doy cuenta que sucede es por el dialogo savefile ejemplo



Yo noto que al quitarle If Dialog.SaveFile() Then Return alli si me guarda la imagen pero no es viable porque si deseo guardar otra con el mismo nombre me sobreescribe la anterior y me guarda el archivo directamente sin cambiarle el nombre si opcion a ruta y sin permiso!, pero cuando guardo una cancion o video si me deja con el Savefile, que podra ser?

Las mejoras que le he hecho es un combobox para que vaya guradando las paginas visitas tambien que busque gambas, google, facebook, twitter, youtube simplemente escribiendolos y tambien por un click en un menu, tambien opcion a buscar personas en facebook directamente, cambio de colores, abrir directorios y ejecutar mi consola, me falta agregarles las historiales y los marcadores, e aqui la imagen.

 

Los problemas que de verdad si veo dificiles son el flashplayer, ya que algunas paginas que ejecutan objetos en este programa me dicen que estoy usando SAFARI LINUX y que debo actualizar imaginense jajajaja...

Una mejora mas para el navegador ahora con historiales. para hacer esa simple funcion tuve que crear una sentencia donde me buscara la carpeta .historiales y el archivo historial.txt si no existe entonces crear la carpeta y el archivo de lo contrario si existe simplemente lo que haya en el combobox agregarlo luego ir guardandolo en el txt y despues cuando se abra el navegador cargarlo al combobox.

Codigo:




Y despues para buscar o navegar:



Claro no es que este una belleza pero al menos modifique algo

Ahora lo que si me pone a pensar es la repeticiones de las historiales tendria que hacer un comparador por ejemplo si combobox.text=combobox.list no guardar en txt else de lo contrario guardar estoy pensando en hacer un array alli es donde estoy, bueno saludos.

 

Hola,

Lo otro sería usar una base de datos en sqlite3 para esas cosas... y hacer la consulta si la página ya existe, guardar un contador de visitas para las páginas y obtener posteriormente las más visitadas...

Ideas, tan sólo.

Saludos...

vicr escribió: [Ver mensaje]

Hola,

Lo otro sería usar una base de datos en sqlite3 para esas cosas... y hacer la consulta si la página ya existe, guardar un contador de visitas para las páginas y obtener posteriormente las más visitadas...

Ideas, tan sólo.

Saludos...

por lo que recuerdo firefox en sus carpetas temporales de trabajo esta lleno de archivos sqlite guardando esa y otras informaciones, demasiadas diría yo

===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/

Treeemenda idea me dieron compañeros programadores entonces quiza me tocaria hacer un procedimiento parecido pero con sqlite creandolo en una carpeta y trayendolos o cargandolos con un timer en el combobox.list.

Citar:

trayendolos o cargandolos con un timer en el combobox.list.

Eso carga el tema innecesariamente. Mejor cargas el combo con los 10 últimos por fecha, el más reciente arriba, y luego lo recargas  en el evento keyrelease del combobox, según el usuario teclee letras, con un

miconexionsqlite.exec("select * from historico where direccion like '&1%'",micombobox.text)

o algo así. De esa forma sólo accedes a la BD cuando es necesario.

===================
No podemos regresar

Aja esta bien señor Shordi voy a probar asi.

Hola muy buenas como estan, saludos vuelvo a mostrarles como esta quedando el navegador y vaya que he parido mucho con estas funciones por poco y me vuelvo loco  

Quiero comentarles que logre hacer que el navegador creara dos bases de datos en sqlite con todo y su carpeta con sus respectivos campos una para historiales y la otra para nombres de facebook con sus respectivas validaciones y que a su ves me trajera los ultimos registros de primero de cada base de datos a los combobox por supuesto tuve que crear dos modulos de host y que estos a su ves me ejecutaran una consulta sql ordenandolos de mayor a menor para que me muestren los registros recientes, observen:

Modulo de host para validar y crear el directorio junto con la creacion y conexion de la base de datos en sqlite en el directorio home:



Imagenes: carpeta
 

archivo sqlite
 

Logre hacerle validaciones como por ejemplo si estos son modificados o eliminados vuelve y crea y conecta de lo contrario simplemente ubicar y conectar.

Bien ahora viene traer esos datos en el combobox donde van las paginas web visitadas o almacenadas usando la sentencia sql order by ide desc



Observando la base de datos creadas y ejecutando sentnecias sql
 

Y con el order by id desc
  

Ahora cargandolos al combobox de navegacion
 

Tambien pense por supuesto en eliminar las historiales pero intente con la sentencia sql de TRUNCATE TABLE y no se porque no me funciono!!! por lo que tuve que eliminar la base de datos por shell, no me queda de otra, asi lo hice


Y asi por supuesto cuando abro el navegador el modulo de host vuelve y me crea todo de nuevo

Bien pasando a al otro punto yo me pregunte aja si no quiero que se me repitan las paginas visitadas? pues me tocaria hacer una consulta a la base de datos que si combobox.text es igual a lo que hay en base de datos decir historial ya existe de lo contrario agrega esta historial, aclaro que esto son pruebas para saber si esta trabajando como debe ser y asi quedo el codigo



Aqui validando si existe o no existe pagina web si no agregar
 

Tengo que admitir que lo de la base de datos sqlite de hacer el campo serial o autoincrementable me tenia como se dice en venezuela atariado por lo que se me ocurrio un contador y le hice pruebas por ello volvi y realice la sentencia sql order by id desc para que me traiga el ultimo numero del id de primero, luego decirle textboxcod.text=textboxcod.text+1 y asi cada ves que abra el formulario traerme siempre el ultimo numero e ir sumandole uno para el siguiente registro al almacenar mas paginas visitadas

 

Señor shordi para poder hacer lo que usted me pidio me fije primero en su codigo de creacion de base de datos sqlite esta:



Esta bueno aclaro que los .sqlite me daban error asi que a cada archivo le quite ese ".sqlite"

Ahora lo que si me tiene pensativo señor shordi es lo que ud me escribio no se que pensara usted del order by desc ya que usted me sugirio por fechas y que lo de los 10 primeros registro no se como hacer para moverme a solo 10 registros sera con un timer y luego hresul.movenext?

Muchas gracias por sus ayudas.

Citar:

Ahora lo que si me tiene pensativo señor shordi es lo que ud me escribio no se que pensara usted del order by desc ya que usted me sugirio por fechas y que lo de los 10 primeros registro no se como hacer para moverme a solo 10 registros sera con un timer y luego hresul.movenext?

Por fechas viene a ser lo mismo que por el rowid de la tabla, si éste es autoincrement. Es tan simple como crear un campo donde grabas el resultado de format(now(),"yyyymmddhhnnss") al añadir el registro.
Luego sólo tienes que ejecutar  "select * from visitados order by fecha desc limit 10"

Saludos

===================
No podemos regresar

Citar:

   If ComboBoxurl.Text = "google" Then
    ComboBoxurl.Text = "http://google.co.ve"
    'ComboBoxurl.Add(ComboBoxurl.Text)
    Else
      If ComboBoxurl.Text = "hotmail" Then
    ComboBoxurl.Text = "http://hotmail.com"
   ' ComboBoxurl.Add(ComboBoxurl.Text)
    Else
      If ComboBoxurl.Text = "facebook" Then
    ComboBoxurl.Text = "http://facebook.com"
     'ComboBoxurl.Add(ComboBoxurl.Text)
    Else
     If ComboBoxurl.Text = "fb" Then
    ComboBoxurl.Text = "http://facebook.com"
   ' ComboBoxurl.Add(ComboBoxurl.Text)
    Else
      If ComboBoxurl.Text = "twitter" Then
    ComboBoxurl.Text = "http://twitter.com"
    'ComboBoxurl.Add(ComboBoxurl.Text)
       Else
      If ComboBoxurl.Text = "gambas" Then
    ComboBoxurl.Text = "http://gambas-es.org"
    'ComboBoxurl.Add(ComboBoxurl.Text)
    Else
       If ComboBoxurl.Text = "youtube" Then
    ComboBoxurl.Text = "http://youtube.com"
   ' ComboBoxurl.Add(ComboBoxurl.Text)
    Else
      If ComboBoxurl.Text = "savefrom" Then
    ComboBoxurl.Text = "http://es.savefrom.net"
   ' ComboBoxurl.Add(ComboBoxurl.Text)
    Else
      If ComboBoxurl.Text = "localhost" Then
    ComboBoxurl.Text = "http://127.0.0.1"
   ' ComboBoxurl.Add(ComboBoxurl.Text)
    Else
      If ComboBoxurl.Text = "phpmyadmin" Then
    ComboBoxurl.Text = "http://127.0.0.1/phpmyadmin"
   ' ComboBoxurl.Add(ComboBoxurl.Text)Endif
Endif

Esto sin embargo, infringe una norma elemental: No mezcles datos con el código. ¿Y si cambiamos de foro y nos convertimos en gambas_es.com, por ejemplo? ¿Tienes que recompilar entonces? ¿Distribuir un nuevo .deb a cada máquina cuando cualquiera de esas direcciones -que no están bajo tu control- cambien?

Por otra parte no entiendo lo que haces ahí ¿por qué eliminar la mitad de la url?

Saludos

===================
No podemos regresar