Visual Foxpro 10 : Funcion psqlarchivoactualizar
Actualizar ejecutable automaticamente , Cuando generamos o modificamos un ejecutable tenemos que ir a todos los clientes para reemplazar el archivo ejecutable por el nuevo , con la funcion psqlarchivoactualizar ya no es necesario hacer eso.
sqldata y sqldata2 permiten almacenar el ejecutable del programa, en una tabla de la base de datos. puede ser la misma u otra exclusiva para esto.
Debe seguirse las siguientes instrucciones , cree una tabla llamada "archivos" con la siguiente estructura:
id integer
archivo char(30)
sumaver integer
comp char(1)
parte1 image o longblob
parte2 image o longblob
parte3 image o longblob
parte4 image o longblob
parte5 image o longblob
parte6 image o longblob
parte7 image o longblob
parte8 image o longblob
parte9 image o longblob
parte10 image o longblob
Copie el programa UPX.EXE a la carpeta WINDOWS en todos los clientes , utilice el de 32 o 64 bits segun sea el sistema operativo. estan incluido en el RAR de sqldata , y listo ya esta todo lo necesario para que funcione.
Cada ejecutable se autoactualizara, no es necesario ningun lanzador.
Despues de configurar psqlcadena. puede usarse esta funcion de actualizacion de ejecutables. lo pueden poner al comienzo del programa o en un timer para que revise cada cierto tiempo.
La funcion psqlarchivoactualizar muestra que hay una version nueva del sistema, e invita al usuario a presionar el boton SI para actualizar o esperar 30 segundos.
Esto actualizara el ejecutable. luego hay que reingresar al sistema.
Si se presiona CANCELAR, no se actualiza el archivo y se continuara, con la version actual del programa, y en la proxima verificacion volvera a preguntar.
Si se presiona NO el archivo sera subido a la base de datos, donde los clientes podran descargarla.
Al presionar NO pregunta una clave que por defecto es '01', que se configura en la unica funcion que debe colocarse.
Ejemplo de uso:
osqldata.psqlarchivoactualizar(_screen,"1","archivos","sqldataprueba.exe","01","11")archivos: es el nombre de la tabla en la base de datos que contiene los ejecutable.
sqldataprueba.exe: es el nombre del ejecutable de su programa , la funcion encriptarfa el ejecutable y lo guardara en la tabla que a especificado para guardar el ejecutable en este caso la tabla archivos.
01: es la clave que preguntara para subir el archivo
11: es la clave que se preguntara para continuar con la aplicacion para pruebas, sin subir ni bajar el archivo
Referencia:
La documentacion lo encontrara en la ruta de instalacion por defecto de la clase sqldata y sqldata2:
C:\Program Files\LEVELVFP ARGENTINA\manuales sqldata y sqldata2> actualizar ejecutable automaticamente.rtf
Se habla en el CURSO 1 SQLDATA Y SQLDATA CURSO DE INCIO en el minuto 00:12:10
Descarga
La clase sqldata y sqldata2 lo puede dercargar de la pagina oficial:
→ El usuario por defecto en respuesta solo puede poner SI , para bajar la actualizacion. es decir es obligatorio actualizar el programa.
→ Las otras respuestas NO / Cancelar es para el programador :
El NO es para subir o Actualizar el programa.
EL Cancelar es para probar el programa.
En ambos casos se debe ingresar la clave de acceso que es 1 por defecto
Modo de uso mas extenso
SET SYSMENU TO
SET PATH TO clases
SET CLASSLIB TO "sqldata2"
LOCAL osqldata2 as sqldata2 OF sqldata2.sqldata2
osqldata2=CREATEOBJECT("sqldata2.sqldata2")
osqldata2.psqlresetear(_screen)
osqldata2.pversioncomp(_screen,VERSION(4))
osqldata2.psqlcargar(_screen,"1",CREATEOBJECT("custom"))
osqldata2.psqlcadena(_screen,"1","sqlauto","localhost\sql2008e",
"sa","colon.1618","spanish","read uncommitted","empresa","","1433")
osqldata2.psqlestructura(_screen,"1","automatico",
"c:\descargas\sqldata2odbc\empresa\estructura")
osqldata2.psqllog(_screen,"1","automatico","logtabla")
osqldata2.psqllogproyecto(_screen,"1","empresa")
DO FORM ingreso
READ EVENTS