Hola amigos,he estado mirando en el foro sobre este tema y no e encontrado nada,asiq lo posteo en un mensaje.
Me gustaria saber como puedo hacer para que mi aplicacion detecte si hay una nueva version de el y muestre la version nueva en un label.
Gracias
eso es sencillo, pero necesitas un servidor web o un servidor ftp para realizar la comprobación...
Yo lo haría asi:
Declaras una variable local con la version actual, por ejemplo:
version = 1.5
Luego descargamos nuestro archivo de internet con la API DownloadToFileA:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Screen.MousePointer = vbHourglass
File = URLDownloadToFile(0, "http://www.miserver.com/config.dat", App.Path & "\config.dat", 0, 0)
Screen.MousePointer = vbNormal
End Sub
Ahora con el archivo descargado, lo leemos con la funcion OPEN y el operador INPUT. Leemeos el contenido y lo comparamos con la variable, si son distintas lanzamos la API DownloadToFileA otra vez para descargar la nueva version, una vez descargada la ejecutamos y finalizamos nuestra aplicacion antigua con un END
No te doy todo el codigo, solo el planteamiento, si no puedes pregunta donde te atrancas e intentaremos ayudarte un poco mas
Saludos!! ;)
gracias,funciona mu bien
Cita de: bautistasbr en 1 Agosto 2006, 19:38 PM
gracias,funciona mu bien
te ha funcionado? perfecto. damos el tema como cerrado.
Saludos!! ;)