Upgrade Aplicacion

[mjjj]

hola... aer si me pueden ayudar...

estoy utilizando Tidftp para descargar el archivo... pero antes de descargarlo primero quiero saber si es que la version que esta en el servidor ftp es mas nueva que la que tengo en el PC cliente.

para obtener la version de la aplicacion en el PC cliente lo hago de esta manera

Código Delphi [-]
result:='';
  ruta := 'c:\mat\ordenes.exe';
  if not FileExists(ruta) then Exit;
  Size := GetFileVersionInfoSize(PChar(ruta), Size2);
  if (Size > 0) then begin
    GetMem(Pt, Size);
    try
      GetFileVersionInfo(PChar(ruta), 0, Size, Pt);
      VerQueryValue (Pt, '\', Pt2, Size2);
      with TVSFixedFileInfo (Pt2^) do begin
        Result :=
        IntToStr(HiWord(dwFileVersionMS))+'.'+
        IntToStr(LoWord(dwFileVersionMS))+'.'+
        IntToStr(HiWord(dwFileVersionLS))+'.'+
        IntToStr(LoWord(dwFileVersionLS));
      end;
    finally
      FreeMem(Pt);

Ahora bien necesito comprar esta version con la que esta en el servidor FTP... como hago para obtener la version del ejecutable que esta en el servidor y luego compararlas??

Espero me puedan ayudar,...

Saludos

[mamcx]

Quizas te puedas ahorrar todo eso con un componente prefabricado, no?

[mjjj]

ya lo creo, pero... cual podria ser?

He buscado pero no encuentro nada...

Saludos

[ContraVeneno]

pues sería igual, pero la ruta sería al servidor ftp

[mjjj]

entonces la ruta deberia quedar algo asi:

por ejemplo si la direccion IP del servidor FTP es 192.1.1.70


ruta := '192.1.1.70:c:\mat\ordenes.exe';

estoy en lo correcto

[[nightynvid]]

Otra solucion es si tienes un servidor de base de datos, tener una tabla con las versiones que vas publicando, cada que generes una version das de alta un registro con la informacion de la nueva version, de esa manera haces solo una consulta a la tabla de versiones y seleccionas la mas reciente, la comparas con la version del programa cliente y si es mas reciente o mas antigua haces lo necesario.