4 respuestas en este tema

[seoane]

Buenos dias,

 

ultimamente me he acostumbrado a incluir en mis programa, de forma automatica, en que revision de Git estaba en el momento de compilar la applicación, asi si hay algun problema puedo saber exactamente que version del codigo era.

 

En Scala (lenguaje con el que trabajo actualmente) es facil usando plugins para su herramienta de compilacion (Sbt), pero nunca lo habia probado en Delphi.

 

Hoy he estado dandole vueltas a como hacerlo en Delphi y he llegado a esto (si alguien tiene una solucion mas facil que me avise):

 

He creado el sigueinte bat, y lo he guardado en la carpeta del proyecto:

php

@echo off
for /f %%a in ('git rev-parse HEAD') do set gitCommit=%%a
for /f %%a in ('git rev-parse --short HEAD') do set gitShortCommit=%%a
 
echo gitCommit = '%gitCommit%'; > gitCommit.inc
echo gitShortCommit = '%gitShortCommit%'; >> gitCommit.inc

Y en Project->Options->Build Events->Pre-built events  he añadido el siguiente comando:

php

$(PROJECTDIR)\prebuild.bat

Asi antes de cada "build" se ejecuta el bat, creando un fichero como este:

php

gitCommit = 'd9a01369f38b4c36672a3409e9be12c67a2877ce'; 
gitShortCommit = 'd9a0136';

Que podemos incluir en nuestro codigo asi:

php

const 
  appName = 'Appname';
  appVersion = '0.1.0';
  {$include gitCommit.inc}

Y usarlo por ejemplo para ponerlo en el titulo de la ventana:

php

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Caption:= appName + ' - ' + appVersion + ' - ' + gitShortCommit;
end;

Saludo

 

PD: Si alguien conoce una manera más sencilla que lo diga

[egostar]

Muy interesante, en la oficina estamos tocando el GitLab para versionar nuestro código y estoy en el proceso de aprendizaje.

 

Saludos

[Agustin Ortu]

Espectacular, y siempre que lo poina en un recurso a mano..

 

En mi caso, yo hago lo siguiente, tengo esto en el .dpr:

delphi

program app;
 
//incluyo el recurso con la version
{$R 'VersionInfo.res' 'VersionInfo.rc'}
{$R *.res}
 
// uses
 
// bloque principal que inicializa la aplicacion
 
begin
 
end.

Este es mi archivo VersionInfo.rc:

delphi

1 VERSIONINFO
FILEVERSION 1, 2, 3, 4
PRODUCTVERSION 1, 0, 0, 0
FILEOS VOS_DOS_WINDOWS32
FILETYPE VFT_APP
{
 BLOCK "StringFileInfo"
 {
  BLOCK "040904E4"
  {
   VALUE "CompanyName", "NombreCompania\000"
   VALUE "FileDescription", "\000"
   VALUE "FileVersion", "1.0.0.0\000"
   VALUE "InternalName", "\000"
   VALUE "LegalCopyright", "Copyright\000"
   VALUE "OriginalFilename", "AcaPoniaElHash\000"
  }
 }
 BLOCK "VarFileInfo"
 {
  VALUE "Translation", 1033, 1252
 }
}

Basicamente lo que hacia yo era algo bastante feo , ya que estaba usando el campo OriginalFilename y ahi metia la revision.. pero  bueno

 

Me parece que tu solucion es muchisimo mejor, y ademas, si no me equivoco, no queda "publica" la informacion en el archivo, aunque tampoco es tan peligroso

 

Lo peor es que nunca se me ocurrio "automatizar" el proceso; ya que en ese verson info tambien pongo la fecha y lo hago tambien a mano, soy de terror

[Delphius]

Voy a decir una burrada profesional pero bue... nunca me puse a estudiar en que consiste y de que forma aprovechar el uso de .inc en nuestros proyectos.

Por otra parte, lo de tener a mano en nuestros ejecutables el hash de revisión me parece una idea bastante ingeniosa... ahora que estoy más familiarizado con Git.

 

Ahora bien, me parece interesante mientras el proyecto está desarrollandose. Mi duda es si conviene esto cuando sale la versión definitiva, o al menos algo que pudiera considerarse un "release candidate".

 

Lo de añadir la versión a mano, eso lo hice un par de ocasiones. Aunque ahora que estoy en proceso de mejorar si sistema de versionado, como que no me va el sistema tradicional que ofrece para completar en la configuración del proyecto. Creo que aquí me sería util, por lo que estoy entendiendo, el poder de los incs para luego recuperar esta info y mostrarla en las ventanas "Acerca de".

 

Saludos,

[Agustin Ortu]

Vi el tema el versionado progresivo, pero merece una lectura más en detalle como para opinar

Con respecto al hash de git, a mí la verdad me resulta útil porque uso mucho git, y me es más fácil buscar la versión por commit, y al mismo tiempo puedo ir viendo que cambió antes y después.. me resulta imprescindible para el versionado de la bd, ya que voy llevando scripts con "parches" diferenciales y los voy aplicando

Este es otro asuntillo que debería tener una solución fácil y automática en Delphi; habría que emular lo que otros framework llaman las migraciones de la bd (es básicamente git para el esquema de la base)