+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: General (https://gambas-es.org/forum-4.html)
+--- Tema: [SOLUCIONADO] Consulta: Como chequear nueva versión (/thread-251.html)
Consulta: Como chequear nueva versión - Ozymandias - 29-01-2021
Buenas!, este es mi primer posteo en este foro. Hace algún tiempito vengo utilizando Gambas para diferentes cuestiones.
Entre ellas, hice un *GUI* para *ClamAV*.
![[Imagen: clamav.png]](https://1.bp.blogspot.com/-7vvB2wEMmyE/XtrkwkQBFdI/AAAAAAAAU6k/yi-Cl7WgAAMNl4iWa4zp3HotK-8qyPMIQCLcBGAsYHQ/s1600/clamav.png)
A quien le interese les dejo el link de la publicación donde puede descargarse todo el material y ver información extra. https://thenerdyapprentice.blogspot.com/2020/06/gui-para-clamav.html
Mi consulta es la siguiente, hubieron (y siguen habiendo) muchas correcciones y mejoras de código en los últimos tiempos (estoy colaborando co un programador que se contactó conmigo vía el blog). Quisiera agregar alguna manera (dentro del menu *?*, por ejemplo) de que el programa pueda chequear cuál es la última versión disponible. Para así poder dirigir al usuario a la página de descarga, pero no tengo ni idea de como hacerlo.
El proyecto está publicado en GitHub: https://github.com/mcattani/clamscangui
Alguien tiene alguna pista de por donde puedo arrancar?, les agradecería mucho la información!.
Saludos.
RE: Consulta: Como chequear nueva versión - tincho - 29-01-2021
Hola Ozymandias, bienvenido al foro.
Como sabes el archivo .project contiene la informacion relativa a la versión del programa con lo cual, al descargar dicho archivo desde el repositorio, podes hacer la comparación. Acá te dejo una forma de contrastar las versiones de tu programa y las del repositorio github.
Código:
Public Sub Form_Open()
Dim vChk As String
vChk = GitVersion("https://raw.githubusercontent.com/mcattani/clamscangui/master/.project")
If Application.Version <> vChk Then
Message.Info(("New version found") & ": " & vChk)
Endif
End
Public Function GitVersion(raw As String) As String
Dim s As String
Dim stx As String[]
Dim r As String
Dim v As String
v = ""
If Exist("/tmp/project.txt") Then
Shell "rm /tmp/project.txt" Wait
Endif
Shell "wget -O '/tmp/project.txt' '" & raw & "'" Wait
If Exist("/tmp/project.txt") Then
s = File.Load("/tmp/project.txt")
stx = Split(s, "\n")
For Each r In stx
If InStr(r, "Version=") Then
If Split(r, "=")[0] = "Version" Then
v = Split(r, "=")[1]
Break
Endif
Endif
Next
Endif
Return v
EndNota: este método sirve siempre y cuando en el repo vayas aumentando la versión cuando haces un cambio relevante que merezca que los usuarios actualicen su instalación local.
Saludos.
RE: Consulta: Como chequear nueva versión - Ozymandias - 29-01-2021
Muchísimas gracias Tincho!
Desconocía la dirección https://raw.githubusercontent.com, recientemente aprendía usar GitHub!
RE: Consulta: Como chequear nueva versión - tincho - 29-01-2021
(29-01-2021, 13:06)Ozymandias escribió: Desconocía la dirección https://raw.githubusercontent.com
Si, es muy útil para hacer cosas como esta.
Saludos.
RE: Consulta: Como chequear nueva versión - tercoide - 29-01-2021
Bienvenido al foro. Acá somos varios los programadores que también nos gusta la electrónica así que te vas sentir a gusto.
Dentro de la misma idea que propone Tincho, tu app puede buscar en cualquier sitio algun rastro de la existencia de una nueva version. Dependiendo de donde la tengas alojada. GitHub, Sourceforge, tu blog, etc.
Saludos.
RE: Consulta: Como chequear nueva versión - jsbsan - 29-01-2021
tincho:
Muy bueno tu código. Me lo apunto .
Saludos
Julio
RE: Consulta: Como chequear nueva versión - tincho - 29-01-2021
(29-01-2021, 18:47)jsbsan escribió: Muy bueno tu código. Me lo apunto .
Gracias, me alegro de que te sea útil.
Un saludo.