Actualización aplicaciones

[comba]

Quiero a finar un poco más. Eso que dice neftali ya lo tengo y funciona de maravilla.

Pero me gustaria si es posible hacerlo todo en un fichero. No tener por un lado la aplicacion y por el otro el update.

¿Se podría generar un fichero en dos para reemplazará el exe actual por el nuevo?¿Y como abriríamos el programa automáticamente?

Me refiero a que abres tu programa y te dice que hay una nueva versión, te la descargas la reemplazas y quieres que se vuelve abrir la aplicación de nuevo.

Un saludo y gracias.

[Neftali [Germán.Estévez]]

Empezado por comba

...Pero me gustaria si es posible hacerlo todo en un fichero. No tener por un lado la aplicacion y por el otro el update.

El problemqa es que un fichero no puede reemplazarse a sí mismo, cerrarse y luego abrirse.

Empezado por comba

...¿Se podría generar un fichero en dos para reemplazará el exe actual por el nuevo?

Eso no lo he entendido.

[comba]

Quizás no me explique muy bien. Así que lo siento.
Lo que quise decir es lo siguiente.

Yo tengo dos aplicaciones,una aplicación que es el programa y la otra para actualizar la aplicación(updater).
Cuando entro en mi aplicación y hay una nueva versión, cierro la aplicación y abro el updater.
Entonces descargo,descomprimo y renombro la aplicación antigua y copia la nueva aplicación. y antes de cerrar el updater abró la nueva aplicación.

¿Eso sería posible hacerlo todo en una aplicación?.

Mi idea hacer todo esto en una aplicación pero antes de reemplazar el archivo que estoy ejecutando, hacer algo que lo reemplace y abrá la aplicación. Y he pensado si eso sería posible con una archivo de ms-dos.



Pero de todas formas gracias si tienes la respuesta, ya que creo que tengo la solución.

Un saludo.

[Neftali [Germán.Estévez]]

Empezado por comba

Quizás no me explique muy bien.

Sí te has explicado bien, pero la respuesta sigue siendo la misma. No puede hacerse con una única aplicación, porque una aplicación no puede reemplazarse a sí misma (mientras se está ejecutando) y no puede cerrarse y volverse a abrir ella sóla.

Empezado por comba

...pero antes de reemplazar el archivo que estoy ejecutando, hacer algo que lo reemplace y abrá la aplicación...

Esta frase no la entiendo...

Empezado por comba

...he pensado si eso sería posible con una archivo de ms-dos.

Llámalo UPDATER o aplicación de MS-DOS, pero necesitas una segunda aplicación que como mínimo:
(1) Reemplace la aplicación principal (que no puede estar ejecutándose)
(2) Que ejecute la aplicación principal (la versión nueva).

[[seoane]]

Aunque pienso que es complicarse demasiado, aquí te dejo una manera de hacerlo usando un archivo bat. Cuando quieras actualizarte, llama a la siguiente función pasándole la ruta del nuevo ejecutable, y cierra tu programa. El archivo bat se encargara de actualizar y volver a ejecutar tu aplicación.

Código Delphi [-]
procedure Actualizate(Nuevo: string);
var
  Actual: String;
  Buffer: array[0..MAX_PATH] of Char;
begin
  if GetShortPathName(PChar(ParamStr(0)),@Buffer, Sizeof(Buffer) -1) = 0 then
    Exit;
  Actual:= String(PChar(@Buffer));
  if GetShortPathName(PChar(Nuevo),@Buffer, Sizeof(Buffer) -1) = 0 then
    Exit;
  Nuevo:= String(PChar(@Buffer));
  with TStringList.Create do
  try
    Add(':BUCLE');
    Add('Del ' + Actual);
    Add('if %ERRORLEVEL% NEQ 0 goto BUCLE');
    Add('Copy ' + Nuevo + ' ' + Actual);
    Add('Start ' + Actual);
    SaveToFile(ChangeFileExt(ParamStr(0),'.bat'));    
    ShellExecute(0,nil,PChar(ChangeFileExt(ParamStr(0),'.bat')),nil,nil,SW_SHOW);
  finally
    Free;
  end;
end;

// Ejemplo de uso
Actualizate('c:\Windows\Temp\nuevo.exe');
Halt; // Lo apropiado seria usar close, o algo similar

[Jose Manuel]

Estoy siguiendo los puntos que me dices

(1) Desde tu programa te descargas el fichero TXT que podría ser así:
----------------------------------
version=1.1.0.1234
----------------------------------
(2) Comparas la versión de tu programa con la del fichero.
(3) Si la de tu programa es menor, debes actualizar.
(4a) Descargas el programa y lo guardas en un directorio temporal.
(4b) Cierras tu programa, pero antes lanzas una segunda aplicación (UPDATER) que se encarge de:
(A) Copiar el fichero descargado al lugar donde está tu aplicación
(B) Volver a ejecutar tu aplicación.

y en el primer paso, me gustaría no descargar el programa, sino leer el contenido de un fichero de texto y pasarlo una variable. ¿Como se hace esto utilizando delphi6? o en caso de que no se pueda hacer facilmente, como se podría descarga un fichero de texto de forma que no pregunte al usuario si lo quiere guardar o abrir.

Un saludo
Jose Manuel García

[Neftali [Germán.Estévez]]

Empezado por Jose Manuel

...y en el primer paso, me gustaría no descargar el programa, sino leer el contenido de un fichero de texto y pasarlo una variable.

Es que en el primer paso no dice que descargues el programa, sino descargar el fichero de texto para leerlo.

Empezado por Jose Manuel

...como se podría descarga un fichero de texto de forma que no pregunte al usuario si lo quiere guardar o abrir.

Pon un botón en un formulario y añade este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  b:Boolean;
  TS:TStrings;
  Str:String;

  //----------------------------------------------------------------------------
  function DownloadFile(Source, Dest: string): Boolean;
  begin
    // proteccion
    try
      Source := AnsiReplaceStr(Source, '/', '\');
      Result := UrlDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil) = 0;
    except
      Result := False;
    end;
  end;
  //----------------------------------------------------------------------------
begin

  // descargar
  b := DownloadFile('http://neftali.clubdelphi.com/temp/test_vrs.txt',
                    'c:\temp\test_vrs.txt');
  // correcto?
  if (b) then begin
    // Crear TStrings
    TS := TStringList.Create();
    // Coger la version
    TS.LoadFromFile('c:\temp\test_vrs.txt');
    Str := TS[1];
    // Avisar
    MessageDlg('Versión en el Servidor: ' + Str, mtInformation, [mbOK], 0);
    // Liberar
    TS.Free;
  end;
end;

Tendrás que añadir al uses las units StrUtils y urlMon.
Este código descarga el fichero TXT (del que hablamos más arriba) y lee la línea 1 (que contiene la versión).