Hola
Lo que yo hago es crear un archivo INI en el servidor con el campo version luego comparo con el del
usuario, si son diferentes actualizo
este es el archivo ini del servidor
_______________________________________________________________________________
Sistema Administrativo Version 1.0.0
(c) copyright: Patricio Avalos Aguirre, 2009
patricio_avalos_aguirre@hotmail.com
_______________________________________________________________________________
[Version]
numero=1.0.1
[Revision]
;version 1.0,1 8 SEP 2007
;Se realiza la conexion por Servidor Ads
_______________________________________________________________________________
y asi sucesivamente..
y asi tienes un historial de cambios de tu sistema
static function VerUpDate()
local oIniUpdate, oIniLocal, cVersion, cVersion2, lReturn := .f.
if !file( ViewUsu():cPathUpd + "\Update.exe" ) .or. !file( ViewUsu():cPathUpd + "\Wcta.exe" )
MsgInfo( "Hay una actualización pendiente del sistema, que podria afectar completamente el desarrollo de este"+CRLF + CRLF +;
"favor comuniquese con XXXXX" + CRLF + ;
CRLF + CRLF+;
"Error:Falta archido update.exe, posible causa no esta autentificado en el servidor", "Usuario" )
return( lReturn )
endif
INI oIniUpdate FILE ( ViewUsu():cPathUpd + "\update.ini" )
GET cVersion SECTION "Version" ENTRY "numero" OF oIniUpdate DEFAULT "1.0.0"
INI oIniLocal FILE (ViewUsu():cPathLocal + "\wInvent.ini")
GET cVersion2 SECTION "Version" ENTRY "Version" OF oIniLocal DEFAULT "1.0.0"
if PadR( cVersion2,6 ) <> PadR( cVersion,6 )
WinExec( ViewUsu():cPathUpd+"\Update.exe "+cVersion )
lReturn := .t.
endif
return( lReturn )
//------------------------------------------------------------------------------------------------
es archivo UPDATE.EXE esta en el servidor es el encargado de copiar la aplicacion y luego modificar el archivo ini del cliente
espero que te sea de utilidad
Saludos
Patricio
__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl