Actualizar mi programa por red

[david duarte]

Hola a todos!!!

tengo el siguiente problema, quiero checar las versiones del programa que estoy haciendo, ya tengo la funcion para verificar las versiones de los archivos (estos archivos estan en diferentes computadores) que es la siguiente:

Código Delphi [-]
function Tform1.VersionExe(const ruta: string) : string;
var
  Pt, Pt2: Pointer;
  Size, Size2: DWord;
begin
  Result := '';
  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);
    end;
  end;
end;

pero el problema es que siempre el Size 2 me da cero y por consiguiente nunca entra en los siguientes renglones y no me da nada en la version.

Alguien sabe porque???

Tengo otra funcion que sirve para lo mismo, pero solamente me compara los archivos locales, la funcion es la siguiente

Código Delphi [-]
GetVersion: string;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  Result := '';
  VerInfoSize := GetFileVersionInfoSize(PChar(ruta), Dummy);
  if VerInfoSize = 0 then Exit;
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
  begin
    Result := IntToStr(dwFileVersionMS shr 16);
    Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);
    Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);
    Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);
  end;
  FreeMem(VerInfo, VerInfoSize);
end;

la verdad es que le busque y busque y no le encuentro.

Ya le hice cambios a la segunda, pero no se puede, me marcan errores.

Si alguien sabe en donde puedo encontrar la solución, se los agradeceria.

Gracias!!!!
Saludos!!!

[Ñuño Martínez]

Este Seoane cada vez me sorprende más. ¿Hay algo para lo que no tenga respuesta y solución?

Perdón por el SPAM pero no conozco otra forma de marcar el hilo en la lista de suscripciones, y este es de los que no hay que perder de vista.

[[Lepe]]

acabo de subir el truco 401, que calcula el MD5 dado el nombre de un archivo.

Acabo de ver que se trata del mismo algoritmo usado por seoane, pero no tenía firma... Bueno, se queda en los trucos ya.

Espero sea de ayuda.

Ñuño: arriba del hilo, en el menú Herramientas, tienes la opción de suscribirte y quitar la suscripción.

Saludos

[[seoane]]

Empezado por Lepe

acabo de subir el truco 401, que calcula el MD5 dado el nombre de un archivo.

¿De donde lo sacaste Lepe?

[[seoane]]

Empezado por Lepe

Acabo de ver que se trata del mismo algoritmo usado por seoane, pero no tenía firma... Bueno, se queda en los trucos ya.

Yo me dí cuenta porque es el mismo código que puse hace tiempo en un hilo, y en el que con las prisas incluí la función SHGetFolderPath que ahí no pintaba nada, pero al copiar y pegar se me paso. Solo lo preguntaba por si encontraras el código fuera del clubdelphi, era curiosidad

[[Lepe]]

No sé que decirte, lo ví, lo guardé y hasta hoy no lo he usado.

Saludos

[[seoane]]

Empezado por Lepe

No sé que decirte, lo ví, lo guardé y hasta hoy no lo he usado.

No importa, ya dije que era solo por curiosidad. Espero que no te molestara la pregunta

De todas formas, añadí al truco que pusiste, como comentario, la unit que utilizo ahora que creo esta un poco mas completa. Con unas pocas modificaciones se podría incluir sha1 además md5, si a alguien le interesa que lo diga

[[Lepe]]

¿molestarme? ¿por qué?.

Pero eso que te sirva de lección y a todo Unit que tires fuera del pc, pues un Unit header al estilo de Neftali, que quede clarita la cosa desde un principio

Saludos y gracias por la unidad.

[Ñuño Martínez]

Gracias Lepe. Como dicen en mi pueblo: "Más vale tarde que nunca"

[raorre]

Estoy intentando acceder al fichero agent.zip pero no hay manera, este foro esta modificado desde hace tiempo no se si me contestaran pero me podrian enviar el fichero, gracias de todos modos.

[dec]

Hola,

Empezado por raorre

Estoy intentando acceder al fichero agent.zip pero no hay manera, este foro esta modificado desde hace tiempo no se si me contestaran pero me podrian enviar el fichero, gracias de todos modos.

El archivo existe, pero, se ve que no tienes los permisos suficientes para acceder al mismo. Puesto que se están haciendo ahora pruebas sobre todo esto, haciendo una excepción puedo enviarte yo mismo el archivo. Indica una dirección de correo electrónico a la que poder hacerlo, por favor.

[[Gabo]]

Perdón por el SPAM pero no conozco otra forma de marcar el hilo en la lista de suscripciones, y este es de los que no hay que perder de vista.

Yo te perdono porque voy a hacer lo mismo
Este hilo se me había pasado hasta ahora...

Gracias Seoane...