¿ por correo electronico ?.....
Ta bien ca.....nijo
La "bandeja de entrada" de Outlook es un ENORME y gigantesco archivo de texto con algunos marcadores para delimitar los mensajes, buscar lo que quieres dentro de ese archivo esta campeon.
Veamos ahora las bondades de usar xHarbour.
Como bien saben, xHarbour tiene una clase IP encargada de todos los menesteres de conexion con IP.
Dentro de la clase IP, hay una clase llamada TURL, la cual nos permite descargar archivos que esten alojados en un servidor web.
Lo primero que necesitamos es obviamente tener un servidor web donde podamos subir nuestros archivos
La mecanica que se puede utilizar es la siguiente:
1) colocamos en nuestro servidor web un archivo EXE con la nueva verison del programa y un archivo TXT que contenga la version actual de nuestro software, por ejemplo:
1.2
Este TXT solo contiene esos 3 caracteres, llamemosle por ejemplo veract.txt
2) Desde nuestro programa, vamos a descargar nuestro archivito TXT, usando la clase TURL y lo guardamos en un archivito de texto local llamado newver.txt:
Code: Select all
oUrl := tURL():New("http://www.tuservidorweb.com/veract.txt" )
oClient := tIPClient():New( oUrl )
oClient:nConnTimeout := 20000
oClient:Open( oUrl )
oClient:ReadToFile( "newver.txt" )
oClient:Close()
3) Asumimos que la version instalada la tenemos guardada en una variable:
cVerInstalada := "1.0"
4) Leemos nuestro archivo descargado de internet:
cVerNueva := ALLTRIM (MEMOREAD("newver.txt"))
5) Comparamos la version nueva con la instalada
Code: Select all
IF cVerNueva > cVerInstalada
// 6) Descargamos la version nueva:
oUrl := tURL():New("http://www.tuservidorweb.com/prognuevo.exe" )
oClient := tIPClient():New( oUrl )
oClient:nConnTimeout := 20000
oClient:Open( oUrl )
oClient:ReadToFile( "prognuevo.exe")
oClient:Close()
ENDIF
y luego se hace el "Swap" de programa. Es decir, cambiamos el programa viejo por el nuevo, acutalizamos la variable de la version, y listo.
Tambien podemos hacer archivos INI para manejar mejor esto.
(45 dls )