Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Como actualizar tu propio EXE (https://www.clubdelphi.com/foros/showthread.php?t=54236)

oscjae 12-03-2008 14:56:01

Como actualizar tu propio EXE
 
Wenas a to2, he estado buscando por el foro y no he encontrado nada al respecto, tampoco se si este es el mejor sitio para poner este hilo.

Estoy intentando hacer un auto actualizador de mi propia aplicacion, no hay problema en el caso de bajar el archivo EXE cuando tenga que bajarlo y demas, pero el problema esta cuando tengo que sustituirlo, he leido algo sobre el tema, pero no se muy bien que es lo que tendria que hacer, o mejor dicho, que es lo que se suele hacer.
He leido sobre hacer una aplicacion aparte, meterla en el fichero de recursos y extraerla cuando la necesite, para poder cerrar la aplicacion y sustituirla por el archivo que se ha bajado, y luego ejecutarla de nuevo, tambien he leido algo de que en el registro de windows se puede dejar como una notificacion de que cuando se vuelva a ejecutar el programa, antes de nada realice un proceso, que podria ser lo de sustituirlo, pero tampoco se muy bien como va.

Si pudierais ayudarme os lo agradeceria.

Salu2 a to2.

cHackAll 12-03-2008 15:20:34

Hola oscjae, efectivamente éste no es el sub-foro adecuado, el espacio más neutral para los temas "mixtos" es el sub-foro Varios.

La forma en que actualices tu aplicación es meramente el producto de tu capacidad, imaginación y experiencia, tan solo te doy un ejemplo.

Tu aplicacion verifica via Web las actualizaciones, una vez encontrada la descarga en un archivo temporal. Terminada la descarga procede a auto-renombrarse a un nombre dummy.tmp y renombra el archivo temporal al nombre original de la aplicación. Hasta allí el reemplazo ha sido exitoso. Ahora debe marcar al archivo dummy.tmp para eliminación o eliminarlo al arrancar la nueva versión.

Código Delphi [-]
// download...
 MoveFile(PChar(ParamStr(0)), 'dummy.tmp');
 MoveFile('c:\downloaded.tmp', PChar(ParamStr(0)));
 CreateProcess(nil, PChar(ParamStr(0)), ...
 Halt;
 
// Y la nueva version solamente;
 Sleep(1000);
 DeleteFile('dummy.tmp');

El anterior código es solo una pequeña muestra, y como ya te comentaba los métodos para realizar lo que quieres dependen de la habilidad del programador.

Saludos

oscjae 12-03-2008 16:54:08

Gracias por la respuesta, no pensaba que pudiera renombrar el archivo mientras se estaba ejecutando.

Salu2.

axesys 12-03-2008 17:22:49

Otra alternativa mas sencilla puede ser usar un componente como el mxWebUpdate de MaxComponents o el AutoUpgrader de appcontrols

Neftali [Germán.Estévez] 12-03-2008 18:20:53

Busca de nuevo, hemos hablado varias veces sobre el tema e incluso recuerdo que se han subido códigos de ejemplo.

seoane 12-03-2008 18:25:20

No lo he probado pero, chackall ¿esto funciona? :confused:
Código Delphi [-]
MoveFile(PChar(ParamStr(0)), 'dummy.tmp');
MoveFile('c:\downloaded.tmp', PChar(ParamStr(0)));

eduarcol 12-03-2008 18:27:44

yo subi un ejemplo que hace lo que quieres, apoyado en codigo de seoane, pero estaba en mi subdominio, no se si emilio lo puede publicar en algun chance que tenga..., voy a preguntarle

cHackAll 12-03-2008 18:38:43

Cita:

Empezado por seoane (Mensaje 272738)
chackall ¿esto funciona? :confused:

      
si

seoane 12-03-2008 19:04:15

Pues me dejas sorprendido chackall :eek:

Siempre había creído que un programa era intocable mientras se estaba ejecutando, es decir, que no se podía borrar, mover, ni renombrar, pero estaba equivocado acabo de comprobar que si se puede mover :eek:

Es mas, en la lista de procesos sigue manteniéndose el nombre viejo :eek:

¿Soy el único al que esto le parece peligroso? ;)

cHackAll 12-03-2008 19:17:34

Cita:

Empezado por seoane (Mensaje 272759)
...¿Soy el único al que esto le parece peligroso? ;)

Más peligroso me parece hacer notar a los niños que tienen juguete nuevo.

TIPs; no se puede mover el archivo entre unidades diferentes y tampoco cuando esta siendo utilizado (ZwCreateFile) por otro proceso.

Saludos

Neftali [Germán.Estévez] 12-03-2008 22:57:42

Cita:

Empezado por seoane (Mensaje 272759)
¿Soy el único al que esto le parece peligroso? ;)

Yo también había dudado de su correcto funcionamiento; No acabo de ver claro (la 2ª linea) que se pueda sobreescribir el propio fichero.

cHackAll 13-03-2008 20:18:31

Cita:

Empezado por Neftali (Mensaje 272833)
No acabo de ver claro (la 2ª linea) que se pueda sobreescribir el propio fichero.

Puesto que el archivo ha sido movido (renombrado), no existe la sobre escritura.

FrancisR 14-03-2008 11:51:49

Fantastico truco ChackAll
 
Oye gracias por este truco, es sencillo y tiene todo el sentido. Lo acabo de probar y funciona a la perfección. Lo deberían de poner en la sección de trucos.

jhonalone 21-03-2008 10:12:05

Auto Renombrar Aplicación
 
SI pero NO. Funciona y no funciona. Me explico.

Yo lo llevo haciendolo hace más de un año y medio. Se baja el fichero, se renombra el EXE, se renombra el fichero bajado al EXE y después se elimina el antiguo EXE renombrado. Yo, para evitar problemas, le obligo al usuario a reiniciar la aplicación.

Bien. Eso lo he probado con XP y con Vista y funciona. Pero el otro día alguien me llamó diciendo que daba un problema: "File Access denied". Bueno he comprobado que en ME da este error: mientras se está ejecutando la aplicación no te deja renombrar el fichero.

Así que Seoane y cHacAll los dos tenéis razón.

A mí, ahora, se me plantea el reto de hacerlo en ME, burlando la vigilancia del SO. Pero no sé cómo hacerlo. He probado con una utilidad de Seoane para aplazar el proceso hasta el próximo reinicio del equipo, pero esta rutina no funciona en ME. He probado ha hacerlo desde MS-DOS y da el mismo error.

Si alguien tiene alguna idea, os lo agradecería. Seguiré investigando.

Un Saludo.

cHackAll 23-03-2008 23:02:51

Pues en el caso de ME, lo que se debe usar es la API MoveFileEx, con el parámetro MOVEFILE_DELAY_UNTIL_REBOOT, sin embargo (me dirán que) dicho parámetro solo es compatible con tecnología NT, CIERTO, pero revisando un poco la ayuda de la API tenemos:
Cita:

Empezado por (F1) MoveFileEx
Windows 95:
The MOVEFILE_DELAY_UNTIL_REBOOT flag is not supported. To rename or delete a file at reboot on a Windows 95 system, place an entry in the WININIT.INI file in the Windows directory.

For example, on Windows 95, the following code fragment creates WININIT.INI entries that delete szDstFile and rename szSrcFile to be szDstFile at reboot:

GetWindowsDirectory(szWinInitFile, uSize);
lstrcat(szWinInitFile, "\\WININIT.INI");
WritePrivateProfileString("Rename", "NUL", szDstFile, szWinInitFile);
WritePrivateProfileString("Rename", szDstFile, szSrcFile, szWinInitFile);

y allí tenemos la solución, crear %SystemRoot%\wininit.ini y definir que archivos van a ser renombrados al reiniciar el S.O.

Saludos

jhonalone 23-03-2008 23:54:06

Muchas gracias cHackAll.
He tardado en responderte, porque me has pilllado cenando.
Investigando por ahí, encontré esa solución y ya tengo hecho una función que estuve comprobando y funciona en mi aplicación. Me falta comprobar si funciona en XP, que creo que si. No obstante te agradezco enormemente la molestia que te has tomado. Conozco tu labor en el foro por muchas otras soluciones que nos das a los "torpes".
No he colgado la solución en un post, porque tiene un pero, (como no).
Esta tarde he colgado un post en el foro de Api de Windows con el nombre "¿Como obtener nombres de ficheros MS-DOS"? donde explico el "pero" que tiene la cuestión. Pues antes de poner las instrucciones en el fichero WinInit.ini, que tambien tiene XP, hay que asegurarse de que la ruta es correcta.

Gracias de nuevo.
Todos te debemos mucho.
Un saludo.


La franja horaria es GMT +2. Ahora son las 15:25:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi