Hola,
Estaba viendo un editor que me gusta mucho y en el 'acerca de' decía build 2139.
Me pregunto si hay alguna manera de automatizar el número de build de una aplicación, de manera que el propio make lleve la cuenta de cuantas veces hemos compilado los fuentes. Estoy dándole vueltas a la cabeza y no encuentro la manera, se me ocurre la manera de hacerlo a través de un ini, pero no dentro del propio exe, que es como me gustaría.
Saludos,
José Luis
[Version]
Ejecutable=20111002
Dictionary=
RSalazarU wrote:Hola Jose:
Colocar el numero de Build en el EXE creo que es difícil automatizarlo.
Yo lo hago a través del creador de instaladores InnoSetup
- El numero de Build es la fecha de la compilación
- El innoSetup puede ver la fecha del EXE y crear un instalador con esa fecha
- Al ejecuta el instalador creado por el innoSetup, este coloca en el INI de la aplicación el número Build
- La aplicación lee del INI el numero de Build
- OJO: Cada vez que creo un instalador se crea una versión
Parte del ini seria
[Version] Ejecutable=20111002 Dictionary=
- De esta forma le puedo preguntar al usuario que numero de Build esta usando
En mi pagina puedes ver los algunos instaladores y sus numero de "versión" http://sauro-sys.com/node/3
Atentamente,
Rolando
Desde Cochabamba, Bolivia.
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
/*
GenBuild.Prg
Generacion de ExeBuild.Prg
La primera vez la secuencia de creacion es:
GenBuild.Prg-> GenBuild.Exe -> ExeBuild.Prg
Funcionamiento:
- En nuestro proyecto (.mak o similar) se a¤ade un .prg
a la lista llamado ExeBuild.Prg
- Se crea un GenBuild.Exe a partir de GenBuild.Prg
- GenBuild.Exe debe ejecutarse antes de compilar: o bien
se inserta en la ejecucion del make, o bien se inserta
a un .bat que llama primero al GenBuild.Exe y luego al
Make.Exe
Posibles mejoras:
- Cuando varios proyectos en misma carpeta, posibilidad de
recibir un parametro con el nombre del exe o proyecto
y añadir (automaticamente) a ExeBuild.Dbf una linea
por cada exe o proyecto.
*/
FUNCTION GenBuild()
Local nBuildNumber, dBuildNumber:= Date(), cBuildTime:= Time()
Local hLog
Local cExeBuild, caExeBuild
IF !File("ExeBuild.Dbf")
dbCreate("ExeBuild.Dbf",;
{;
{"BuildNumbe", "N", 9, 0};
})
SELECT 0
USE ExeBuild
Add_Rec(0)
ELSE
SELECT 0
USE ExeBuild
ENDIF
RLock()
nBuildNumber:= BuildNumbe+ 1
REPLACE BuildNumbe WITH nBuildNumber
UNLOCK
COMMIT
CLOSE ExeBuild
caExeBuild:= "{"+;
LTrim(Str(nBuildNumber, 9, 0))+ ","+;
DToC(dBuildNumber)+ ","+;
cBuildTime;
"}"
cExeBuild:= ;
"/* "+;
" ExeBuild.Prg "+;
" "+;
" Devuelve Numero, Fecha y hora del Build "+; "
" "+;
" Creado automaticamente desde GenBuild.Exe (GenBuild.Prg) "+;
" En el proyecto (.mak) ha incluirse una mencion a "+;
" ExeBuild.Prg "+;
" "+;
"*/ "+;
" "+;
"FUNCTION ExeBuild() "+;
" "+;
"RETURN "+ caExeBuild+ " "+;
""
MemoWrite("ExeBuild", cExeBuild)
// Grabamos un log secuencial de builds para tener info de
// todas las compilaciones.
IF !File("LogBuild.Txt")
hLog:= FCreate("LogBuild.Txt")
FWrite(hLog, "Log de builds")
FWrite(hLog, "-------------")
ELSE
hLog:= FOpen("LogBuild.Txt")
ENDIF
FWrite(hLog, "Build "+ caExeBuild}
FClose(hLog)
RETURN NIL/*
Idea original en FiveTechsoft by hmpaquito » Thu Jan 05, 2012 9:24 am
=====================================================================
GenBuild.Prg
Generacion de aExeBuild.Prg // CGP
La primera vez la secuencia de creacion es:
GenBuild.Prg-> GenBuild.Exe -> aExeBuild.Prg // CGP
Funcionamiento:
- En nuestro proyecto (.mak o similar) se a¤ade un .prg
a la lista llamado aExeBuild.Prg // CGP
- Se crea un GenBuild.Exe a partir de GenBuild.Prg
- GenBuild.Exe debe ejecutarse antes de compilar: o bien
se inserta en la ejecucion del make, o bien se inserta
a un .bat que llama primero al GenBuild.Exe y luego al
Make.Exe
Posibles mejoras:
- Cuando varios proyectos en misma carpeta, posibilidad de
recibir un parametro con el nombre del exe o proyecto
y añadir (automaticamente) a ExeBuild.Dbf una linea
por cada exe o proyecto.
*/
FUNCTION GenBuild( nBuild, cPathPRG )
Local nBuildNumber, dBuildNumber:= Date(), cBuildTime:= Time()
Local hLog
Local cExeBuild, caExeBuild
IF !File("ExeBuild.Dbf")
dbCreate("ExeBuild.Dbf",;
{;
{"BuildNumbe", "N", 9, 0};
})
SELECT 0
USE ExeBuild
Add_Rec(0)
ELSE
SELECT 0
USE ExeBuild
ENDIF
RLock()
nBuildNumber:= BuildNumbe + 1
//// CGP
If nBuild > 0
nBuildNumber:= nBuild
EndIf
//// CGP
REPLACE BuildNumbe WITH nBuildNumber
UNLOCK
COMMIT
CLOSE ExeBuild
caExeBuild:= "{" + ;
LTrim( Str( nBuildNumber, 9, 0) ) + "," + ;
DToC( dBuildNumber ) + "," + ;
cBuildTime;
"}"
cExeBuild:= ;
"/* " + Chr(13)+Chr(10) + ; // CGP
" aExeBuild.Prg " + Chr(13)+Chr(10) + ;
" " + Chr(13)+Chr(10) + ;
" Devuelve Array de Numero, Fecha y hora del Build " + Chr(13)+Chr(10) + ; // CGP
" " + Chr(13)+Chr(10) + ;
" Creado automaticamente desde GenBuild.Exe (GenBuild.Prg) " + Chr(13)+Chr(10) + ;
" En el proyecto (.mak) ha incluirse una mencion a " + Chr(13)+Chr(10) + ;
" aExeBuild.Prg " + Chr(13)+Chr(10) + ; // CGP
" " + Chr(13)+Chr(10) + ;
"*/ " + Chr(13)+Chr(10) + ;
" " + Chr(13)+Chr(10) + ;
"FUNCTION aExeBuild() " + Chr(13)+Chr(10) + ; // CGP
" " + Chr(13)+Chr(10) + ;
"RETURN " + caExeBuild + Chr(13)+Chr(10) + ;
""
MemoWrite( cPathPRG + "aExeBuild" + ".PRG", cExeBuild) // CGP
// Grabamos un log secuencial de builds para tener info de
// todas las compilaciones.
IF !File("LogBuild.Txt")
hLog:= FCreate("LogBuild.Txt")
FWrite(hLog, "Log de builds")
FWrite(hLog, "-------------")
ELSE
hLog:= FOpen("LogBuild.Txt")
ENDIF
FWrite(hLog, "Build "+ caExeBuild}
FClose(hLog)
RETURN NILUn Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
/*
Idea original en FiveTechsoft by hmpaquito » Thu Jan 05, 2012 9:24 am
=====================================================================
GenBuild.Prg
Generacion de aExeBuild.Prg // CGP
La primera vez la secuencia de creacion es:
GenBuild.Prg-> GenBuild.Exe -> aExeBuild.Prg // CGP
Funcionamiento:
- En nuestro proyecto (.mak o similar) se a¤ade un .prg
a la lista llamado aExeBuild.Prg // CGP
- Se crea un GenBuild.Exe a partir de GenBuild.Prg
- GenBuild.Exe debe ejecutarse antes de compilar: o bien
se inserta en la ejecucion del make, o bien se inserta
a un .bat que llama primero al GenBuild.Exe y luego al
Make.Exe
Posibles mejoras:
- Cuando varios proyectos en misma carpeta, posibilidad de
recibir un parametro con el nombre del exe o proyecto
y añadir (automaticamente) a ExeBuild.Dbf una linea
por cada exe o proyecto.
*/
#Define CRLF Chr(13)+ Chr(130) // PAQ
FUNCTION GenBuild( nBuildPar, cPathPrg )
Local nBuildNumber, dBuildNumber:= Date(), cBuildTime:= Time()
Local hLog
Local cExeBuild, caExeBuild
IF cPathPrg == NIL // PAQ
cPathPrg:= ""
ENDIF
IF nBuild == NIL // PAQ Cuando parametro build entonces no graba en automatico
IF !File("ExeBuild.Dbf")
dbCreate("ExeBuild.Dbf",;
{;
{"BuildNumbe", "N", 9, 0};
})
SELECT 0
USE ExeBuild
Add_Rec(0)
ELSE
SELECT 0
USE ExeBuild
ENDIF
RLock()
nBuildNumber:= BuildNumbe + 1
//// CGP
// If nBuild > 0
// nBuildNumber:= nBuild
//EndIf
////// CGP
REPLACE BuildNumbe WITH nBuildNumber
UNLOCK
COMMIT
CLOSE ExeBuild
ELSE
nBuildNumber:= nBuildPar
ENDIF
caExeBuild:= "{" + ;
LTrim( Str( nBuildNumber, 9, 0) ) + "," + ;
DToC( dBuildNumber ) + "," + ;
cBuildTime;
"}"
cExeBuild:= ;
"/* " + CRLF+;
" aExeBuild.Prg " + CRLF+;
" " + CRLF+;
" Devuelve Array de Numero, Fecha y hora del Build " + CRLF+;
" " + CRLF+;
" Creado automaticamente desde GenBuild.Exe (GenBuild.Prg) " + CRLF+;
" En el proyecto (.mak) ha incluirse una mencion a " + CRLF+;
" aExeBuild.Prg " + CRLF+;
" " + CRLF+;
"*/ " + CRLF+;
" " + CRLF+;
"FUNCTION aExeBuild() " + CRLF+;
" " + CRLF+;
"RETURN " + caExeBuild + CRLF+;
""
MemoWrite( cPathPRG + "aExeBuild" + ".PRG", cExeBuild) // CGP
// Grabamos un log secuencial de builds para tener info de
// todas las compilaciones.
IF !File("LogBuild.Txt")
hLog:= FCreate("LogBuild.Txt")
FWrite(hLog, "Log de builds")
FWrite(hLog, "-------------")
ELSE
hLog:= FOpen("LogBuild.Txt")
ENDIF
FWrite(hLog, "Build "+ caExeBuild}
FClose(hLog)
RETURN NIL; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define DateExeFile GetFileDateTimeString('.\ChqueraXH32.exe', 'yymmdd', '_',':')
#define DateDictFile GetFileDateTimeString('.\Dictionary\Dictionary.add', 'yymmdd', '_',':')
[Setup]
AppName=ChqueraXH32
AppVerName=ChqueraXH32 1.5
DefaultDirName={pf}\SAURO\ChqueraXH32
DefaultGroupName=SAURO\ChqueraXH32
OutputDir=.\Instalar
OutputBaseFilename=SetupChqueraXH32_v.{#DateExeFile}.{#DateDictFile}
SetupIconFile=.\Icons\Boligrafo.ico
VersionInfoVersion=1
VersionInfoTextVersion=v.{#DateExeFile}.{#DateDictFile}
AppPublisher=Sauro Srl.
AppPublisherURL=http://www.sauro-sys.com/
AppSupportURL=http://www.sauro-sys.com/
AppUpdatesURL=http://www.sauro-sys.com/
VersionInfoCompany=SAURO SOFTWARE SRL.
VersionInfoCopyright=SAURO SOFTWARE
WizardImageFile=E:\Archivos de programa\Inno Setup 5\WizModernImage-IS.bmp
WizardSmallImageFile=E:\Archivos de programa\Inno Setup 5\WizModernSmallImage-IS.bmp
InternalCompressLevel=max
Compression=lzma/Max
SolidCompression=true
AllowNoIcons=true
WindowVisible=false
PrivilegesRequired=admin
[Messages]
AdminPrivilegesRequired=Este proceso requiere privilegiso de administrador.
[Languages]
Name: english; MessagesFile: compiler:Default.isl
Name: spanish; MessagesFile: compiler:Languages\Spanish.isl
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons};
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons};
[Files]
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
Source: ChqueraXH32.exe; DestDir: {app}
Source: ChqueraXH32.dll; DestDir: {app}; Flags: ignoreversion
Source: Recursos.dll; DestDir: {app}; Flags: ignoreversion
Source: ..\..\DLL\Mnto32.dll; DestDir: {app}; Flags: ignoreversion
Source: ..\..\DLL\Common.dll; DestDir: {app}; Flags: ignoreversion
Source: ..\..\DLL\User.dll; DestDir: {app}; Flags: ignoreversion
Source: Program.ch; DestDir: {app}; Flags: ignoreversion
Source: Chquera.ch; DestDir: {app}; Flags: ignoreversion
Source: ..\ContXH32\Contabilidad.ch; DestDir: {app}; Flags: ignoreversion
Source: ..\FIVEGEN\SYSTEM.ch; DestDir: {app}; Flags: ignoreversion
Source: whatsnew.txt; DestDir: {app}; Flags: ignoreversion
Source: DICTIONARY\*.dbf; DestDir: {app}\Dictionary; Excludes: ~*.*,DBName*.*,*.ADD,*.AI,*.AM; Flags: ignoreversion; Tasks: ; Languages:
Source: DICTIONARY\*.cdx; DestDir: {app}\Dictionary; Excludes: ~*.*,DBName*.*,*.ADD,*.AI,*.AM; Flags: ignoreversion; Tasks: ; Languages:
Source: DICTIONARY\*.fpt; DestDir: {app}\Dictionary; Excludes: ~*.*,DBName*.*,*.ADD,*.AI,*.AM; Flags: ignoreversion; Tasks: ; Languages:
Source: DICTIONARY\DICTIONARY.ADD; DestDir: {app}\Dictionary; Flags: ignoreversion; Tasks: ; Languages:
Source: DICTIONARY\DICTIONARY.AI; DestDir: {app}\Dictionary; Flags: ignoreversion; Tasks: ; Languages:
Source: DICTIONARY\DICTIONARY.AM; DestDir: {app}\Dictionary; Flags: ignoreversion; Tasks: ; Languages:
Source: D:\xHarbourBCC_121_Rv6714\Contrib\rdd_ads\ACESDK\Redistribute\Axcws32.dll; DestDir: {app}; Flags: promptifolder
Source: D:\xHarbourBCC_121_Rv6714\Contrib\rdd_ads\ACESDK\Redistribute\Adsloc32.dll; DestDir: {app}; Flags: promptifolder
Source: D:\xHarbourBCC_121_Rv6714\Contrib\rdd_ads\ACESDK\Redistribute\Ace32.dll; DestDir: {app}; Flags: promptifolder
;Source: D:\xHarbourBCC_121_Rv6714\Contrib\rdd_ads\ACESDK\Redistribute\Adslocal.cfg; DestDir: {app}; Flags: promptifolder
Source: ..\..\CFG\Adslocal.cfg; DestDir: {app}; Flags: promptifolder; DestName: Adslocal.cfg
Source: D:\xHarbourBCC_121_Rv6714\Contrib\rdd_ads\ACESDK\Redistribute\ansi.chr; DestDir: {app}; Flags: promptifolder
Source: D:\xHarbourBCC_121_Rv6714\Contrib\rdd_ads\ACESDK\Redistribute\extend.chr; DestDir: {app}; Flags: promptifolder
;Source: D:\xHarbourBCC_121_Rv6714\Contrib\rdd_ads\ACESDK\Redistribute\Ads.ini; DestDir: {app}; Flags: ignoreversion onlyifdoesntexist
Source: ..\..\CFG\Ads.ini; DestDir: {app}; Flags: ignoreversion promptifolder;
[Icons]
Name: {group}\ChqueraXH32; Filename: {app}\ChqueraXH32.exe; WorkingDir: {app}; IconIndex: 0
Name: {group}\{cm:UninstallProgram,ChqueraXH32}; Filename: {uninstallexe}
Name: {userdesktop}\ChqueraXH32; Filename: {app}\ChqueraXH32.exe; Tasks: desktopicon; WorkingDir: {app}; IconIndex: 0
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\ChqueraXH32; Filename: {app}\ChqueraXH32.exe; Tasks: quicklaunchicon; WorkingDir: {app}; IconIndex: 0
[Run]
Filename: {app}\ChqueraXH32.exe; Description: {cm:LaunchProgram,ChqueraXH32}; Flags: nowait postinstall skipifsilent
Filename: {app}\whatsnew.txt; Description: Ver que hay de nuevo; Flags: postinstall shellexec skipifsilent
[INI]
Filename: {app}\ChqueraXH32.ini; Section: SYSTEM; Key: WND_MDI; String: .F.
Filename: {app}\ChqueraXH32.ini; Section: SYSTEM; Key: OUTLOOK2003; String: .T.
Filename: {app}\ChqueraXH32.ini; Section: Version; Key: Ejecutable; String: {#DateExeFile}
Filename: {app}\ChqueraXH32.ini; Section: Version; Key: Dictionary; String: {#DateDictFile}
[Registry]
Root: HKLM; Subkey: SOFTWARE\SAURO\FIVEWIN\ChqueraXH32; ValueType: string; ValueData: ChqueraXH32
Root: HKLM; Subkey: SOFTWARE\SAURO\FIVEWIN\ChqueraXH32; ValueType: string; ValueName: Fecha registro; ValueData: code:GetDateInstall( ); Flags: createvalueifdoesntexist
[Code]
function GetDateInstall( ): String;
begin
Result := GetDateTimeString('yymmdd', '_',':');
end;hmpaquito wrote:FiveWidi,
Buenas correcciones...
Lo de modificar el nombre del ejecutable o de la funcion: solo por hablar de algo: Algunos nombre de funcion las prefijo con el tipo que devolveran y en otros casos no. Imaginate que decidimos mañana que aExeBuild() devuelva un objeto, por ejemplo de la clase TPublic, con datas ¿ Tenemos entonces que renombrar la clase y pasearnos por todos los puntos donde la utilizamos y llamarla oExeBuild ? En general, a no ser que este mas o menos seguro de que el tipo a devolver no cambiara, no le pongo el tipo para evitar este inconveniente.
Te dejo una copia con algunas modificaciones que vienen con // PAQ
/* Idea original en FiveTechsoft by hmpaquito » Thu Jan 05, 2012 9:24 am ===================================================================== GenBuild.Prg Generacion de aExeBuild.Prg // CGP La primera vez la secuencia de creacion es: GenBuild.Prg-> GenBuild.Exe -> aExeBuild.Prg // CGP Funcionamiento: - En nuestro proyecto (.mak o similar) se a¤ade un .prg a la lista llamado aExeBuild.Prg // CGP - Se crea un GenBuild.Exe a partir de GenBuild.Prg - GenBuild.Exe debe ejecutarse antes de compilar: o bien se inserta en la ejecucion del make, o bien se inserta a un .bat que llama primero al GenBuild.Exe y luego al Make.Exe Posibles mejoras: - Cuando varios proyectos en misma carpeta, posibilidad de recibir un parametro con el nombre del exe o proyecto y añadir (automaticamente) a ExeBuild.Dbf una linea por cada exe o proyecto. */ #Define CRLF Chr(13)+ Chr(130) // PAQ FUNCTION GenBuild( nBuildPar, cPathPrg ) Local nBuildNumber, dBuildNumber:= Date(), cBuildTime:= Time() Local hLog Local cExeBuild, caExeBuild IF cPathPrg == NIL // PAQ cPathPrg:= "" ENDIF IF nBuild == NIL // PAQ Cuando parametro build entonces no graba en automatico IF !File("ExeBuild.Dbf") dbCreate("ExeBuild.Dbf",; {; {"BuildNumbe", "N", 9, 0}; }) SELECT 0 USE ExeBuild Add_Rec(0) ELSE SELECT 0 USE ExeBuild ENDIF RLock() nBuildNumber:= BuildNumbe + 1 //// CGP // If nBuild > 0 // nBuildNumber:= nBuild //EndIf ////// CGP REPLACE BuildNumbe WITH nBuildNumber UNLOCK COMMIT CLOSE ExeBuild ELSE nBuildNumber:= nBuildPar ENDIF caExeBuild:= "{" + ; LTrim( Str( nBuildNumber, 9, 0) ) + "," + ; DToC( dBuildNumber ) + "," + ; cBuildTime; "}" cExeBuild:= ; "/* " + CRLF+; " aExeBuild.Prg " + CRLF+; " " + CRLF+; " Devuelve Array de Numero, Fecha y hora del Build " + CRLF+; " " + CRLF+; " Creado automaticamente desde GenBuild.Exe (GenBuild.Prg) " + CRLF+; " En el proyecto (.mak) ha incluirse una mencion a " + CRLF+; " aExeBuild.Prg " + CRLF+; " " + CRLF+; "*/ " + CRLF+; " " + CRLF+; "FUNCTION aExeBuild() " + CRLF+; " " + CRLF+; "RETURN " + caExeBuild + CRLF+; "" MemoWrite( cPathPRG + "aExeBuild" + ".PRG", cExeBuild) // CGP // Grabamos un log secuencial de builds para tener info de // todas las compilaciones. IF !File("LogBuild.Txt") hLog:= FCreate("LogBuild.Txt") FWrite(hLog, "Log de builds") FWrite(hLog, "-------------") ELSE hLog:= FOpen("LogBuild.Txt") ENDIF FWrite(hLog, "Build "+ caExeBuild} FClose(hLog) RETURN NIL
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
1 VERSIONINFO LOADONCALL MOVEABLE
FILEVERSION 2012, 0, 0, 0
PRODUCTVERSION 2012, 0, 0, 0
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
FILEOS VOS_NT_WINDOWS32
FILETYPE VFT_APP
{
BLOCK "StringFileInfo"
{
BLOCK "040904b0"
{
VALUE "CompanyName", "http://www.myweb.pt/\000"
VALUE "FileDescription", "Test sample\000"
VALUE "FileVersion", "2012\000"
VALUE "LegalCopyright", "(c) Me\000"
VALUE "LegalTrademarks", "(c) Me\000"
VALUE "ProductName", "Flota\000"
VALUE "ProductVersion", "2012\000"
}
}
BLOCK "VarFileInfo"
{
VALUE "Translation", 1033, 1200
}
}/* Aquí empieza el programa principal.
----------------------------------*/
FUNCTION MAIN()
local programa := "Genbuild.PRG"
GenBuild( Arg( 1 ), Arg( 2 ) )
Return Nil
// Fi de la funció d'arrancada.
/* ************************************************************************************************* */
/* ************************************************************************************************* */
/*
Idea original en FiveTechsoft by hmpaquito » Thu Jan 05, 2012 9:24 am
=====================================================================
GenBuild.Prg
Generacion de aExeBuild.Prg // CGP
La primera vez la secuencia de creacion es:
GenBuild.Prg-> GenBuild.Exe -> aExeBuild.Prg // CGP
Funcionamiento:
- En nuestro proyecto (.mak o similar) se a¤ade un .prg
a la lista llamado aExeBuild.Prg // CGP
- Se crea un GenBuild.Exe a partir de GenBuild.Prg
- GenBuild.Exe debe ejecutarse antes de compilar: o bien
se inserta en la ejecucion del make, o bien se inserta
a un .bat que llama primero al GenBuild.Exe y luego al
Make.Exe
Posibles mejoras:
- Cuando varios proyectos en misma carpeta, posibilidad de
recibir un parametro con el nombre del exe o proyecto
y añadir (automaticamente) a ExeBuild.Dbf una linea
por cada exe o proyecto.
Ejemplo de uso en el BAT de compilación de la aplicación AMPA1011:
c:\desarrol\utilidad\Genbuild 0 c:\desarrol\trabajo\AMPA1011\PRG\Arquitec\
*/
#Define CRLF Chr(13)+Chr(10) // PAQ
FUNCTION GenBuild( nBuildPar, cPathPrg )
Local nBuildNumber, dBuildNumber:= Date(), cBuildTime:= Time()
Local hLog
Local cExeBuild, caExeBuild
IF nBuildPar == NIL .or. nBuildPar = "" // CGP
nBuildPar := 0
EndIf
IF cPathPrg == NIL // PAQ
cPathPrg := ""
ENDIF
IF nBuildPar = 0 // == NIL // PAQ Cuando parametro build entonces no graba en automatico // CGP
IF !File("ExeBuild.Dbf")
dbCreate("ExeBuild.Dbf",;
{;
{"BuildNumbe", "N", 9, 0};
})
SELECT 0
USE ExeBuild
//Add_Rec(0) // CGP
Append Blank // CGP
ELSE
SELECT 0
USE ExeBuild
ENDIF
RLock()
nBuildNumber:= ExeBuild->BuildNumbe + 1 // CGP
REPLACE BuildNumbe WITH nBuildNumber
UNLOCK
COMMIT
CLOSE ExeBuild
ELSE
nBuildNumber:= nBuildPar
ENDIF
////// CGP
caExeBuild:= "{ " + ;
LTrim( Str( nBuildNumber, 9, 0) ) + ", " + ;
"'" + DToS( dBuildNumber ) + "', " + ;
"'" + cBuildTime + "'" + ;
" }"
cExeBuild:= ;
"/* " + CRLF+;
" aExeBuild.Prg " + CRLF+;
" " + CRLF+;
" Devuelve 3 datos del build en una Array con: " + CRLF+;
" Numero (tipo entero, ej. 5) " + CRLF+;
" Fecha (tipo cadena AAAAMMDD, ej. '20120325' ) " + CRLF+;
" hora (tipo cadena HHMMSS, ej. '16:43:51') " + CRLF+;
" " + CRLF+;
" Creado automaticamente desde GenBuild.Exe (GenBuild.Prg) " + CRLF+;
" En el proyecto (.mak) ha incluirse una mencion a " + CRLF+;
" aExeBuild.Prg " + CRLF+;
" " + CRLF+;
"*/ " + CRLF+;
" " + CRLF+;
"FUNCTION aExeBuild()" + CRLF+;
"RETURN " + caExeBuild + CRLF+;
"/* */"
MemoWrit( cPathPRG + "aExeBuild" + ".PRG", cExeBuild ) // CGP
// Grabamos un log secuencial de builds para tener info de
// todas las compilaciones.
IF !File("LogBuild.Txt")
hLog:= FCreate("LogBuild.Txt")
FWrite(hLog, "Log de builds" + CRLF ) // CGP
FWrite(hLog, "-------------" + CRLF ) // CGP
ELSE
hLog:= FOpen("LogBuild.Txt", 1) // CGP
ENDIF
FSeek(hLog, 0, 2) // CGP
FWrite(hLog, "Build "+ caExeBuild + CRLF ) // CGP
FClose(hLog)
RETURN NILUn Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
/***************
Prog : GenBuild.prg
Autor : eMeGe
Módulo : unico
Inicio : 16/02/2012
Liberado : 22/02/2012
Versiones : 1.00 Operable
Idea original en: <!-- l --><a class="postlink-local" href="http://forums.fivetechsupport.com/viewtopic.php?f=6&t=23215#p124598">viewtopic.php?f=6&t=23215#p124598</a><!-- l --> » Jue Ene 05, 2012 6:24 am » by hmpaquito
version optimizada » by FiveWiDi
Proyecto:
1) Se podría generar un solo GenBuild para todos nuestros proyectos,
en lugar de un genBuild para cada proyecto entonces el .dbf podría ser así:
dbCreate( scPathDB+cDBF+".dbf", ;
{ ;
{ "Aplicacion", "C", 8, 0 }, ;
{ "BuildNro", "N", 5, 0 } ;
} )
con indice sobre campo "Aplicación" para realizar las busquedas y
actualizar el Build en consecuencia
2) Con el mismo criterio de la generación/mantenimiento del .rc
se puede hacer el mantenimiento de archivos de instalacion
Inno
*****************************************************************
*/
#include "fivewin.ch"
// Estaticas
GLOBAL aStaticsMain[ 5 ]
#xtranslate saDatVers => aStaticsMain\[1\]
#xtranslate saHeader => aStaticsMain\[2\]
#xtranslate scPathDB => aStaticsMain\[3\]
#xtranslate scAppName => aStaticsMain\[4\]
#xtranslate snBldNumber => aStaticsMain\[5\]
PROCEDURE Main()
// Camino
DEFAULT scPathDB:= ".\" // camino de archivos .dbf, .rc, .log
// Aplicacion
scAppName:= "tuApp"
// Genera/Actualiza Build
SetBuild()
// Cabecera
saHeader:= { "/*----------------------------------------------------", ;
" Autor.....: ", ;
" Correo-e..: ", ;
"", ; // archivo de...
" COPYRIGHT.: (c) "+Str( Year(Date()),,,.T.)+" Tu Empresa", ;
"------------------------------------------------------*/" }
// datos de la Versión
saDatVers:= Hash( "Version", 'FILEVERSION 0,17,1,12', ;
"FileVersion", '"0.017.0212.'+Str(snBldNumber,,,.T.)+'\000"', ;
"FileDescription", '"Sistema de...\000"', ;
"InternalName", '"tuApp\000"', ;
"LegalCopyright", '"'+Str( Year(Date()),,,.T.)+' © Tu Empresa\000"', ;
"ProductName", '"'+Str( Year(Date()),,,.T.)+' Tu Empresa\000"', ;
"ProductVersion", '"ßeta 0.017.0212 (Build '+Str(snBldNumber,,,.T.)+')\000"', ;
"OriginalFilename",'"tuApp.exe\000"' )
// Genera/Actualiza .rc
SetRC()
// Genera/Actualiza .log
SetLog()
// Fin
// ------------------------------------------------------------------------- \\
// Establecer próximo Build
//
PROCEDURE SetBuild()
local cDBF:= "BD"+AfterAtNum( "mg", scAppName ) // mio; cambiar segun gusto
IF !File( scPathDB+cDBF+".dbf")
dbCreate( scPathDB+cDBF+".dbf", ;
{ ;
{ "BuildNro", "N", 5, 0 } ;
} )
SELECT 0
USE ( scPathDB+cDBF )
APPEND BLANK
ELSE
SELECT 0
USE ( scPathDB+cDBF )
ENDIF
snBldNumber:= ( cDBF )->BuildNro +1
RLock() // lo dejo por compatibilidad. Si se usa un genbuild.exe x aplicacion no es necesario
REPLACE BuildNro WITH snBldNumber
UNLOCK
COMMIT
CLOSE ( cDBF )
// Fin
// ------------------------------------------------------------------------- \\
// Archivo app.rc
//
PROCEDURE SetRC()
local oRC, ;
cArchRC:= scPathDB+scAppName+".rc", ;
nX
if !File( cArchRC )
saHeader[4]:= " Archivo...: recursos"
oRC:= TTxtFile():New( cArchRC )
if oRC:Open()
for nX:= 1 to Len( saHeader )
oRC:Add( saHeader[nX] )
next
oRC:Add( '1 24 "d:/bat/theme.man"' ) // corresponde a WindowsXP.Manifest
oRC:Add( 'PryYo32 ICON "tuApp.ico"' ) // ícono para la aplicación
oRC:Add( 'VS_VERSION_INFO VERSIONINFO' )
oRC:Add( saDatVers["Version"] )
oRC:Add( 'FILEFLAGSMASK 0x3F' )
oRC:Add( 'FILEFLAGS 0x0' )
oRC:Add( 'FILEOS VOS__WINDOWS32' )
oRC:Add( 'FILETYPE VFT_APP' )
oRC:Add( 'FILESUBTYPE VFT2_UNKNOWN'+CRLF )
oRC:Add( 'BEGIN' )
oRC:Add( ' BLOCK "StringFileInfo"' )
oRC:Add( ' BEGIN' )
oRC:Add( ' BLOCK "040904B0"' )
oRC:Add( ' BEGIN' )
oRC:Add( ' VALUE "Author", "Ing. Mario González\000"' ) // En la aplicación estos datos se recuperan con
oRC:Add( ' VALUE "CompanyName", "Ideas & Desarrollos\000"' ) // GetFileVersionInfo() - yo lo tengo en un fuente
oRC:Add( ' VALUE "FileVersion", ' +saDatVers["FileVersion" ] ) // con referencia como de autor anónimo
oRC:Add( ' VALUE "FileDescription", ' +saDatVers["FileDescription" ] )
oRC:Add( ' VALUE "InternalName", ' +saDatVers["InternalName" ] )
oRC:Add( ' VALUE "LegalCopyright", ' +saDatVers["LegalCopyright" ] )
oRC:Add( ' VALUE "ProductName", ' +saDatVers["ProductName" ] )
oRC:Add( ' VALUE "ProductVersion", ' +saDatVers["ProductVersion" ] )
oRC:Add( ' VALUE "OriginalFilename", '+saDatVers["OriginalFilename"] )
oRC:Add( ' VALUE "SpecialBuild","Enlazado con xHarbour 1.2.1 Lic. GNU\000"' )
oRC:Add( ' END' )
oRC:Add( ' END'+CRLF )
oRC:Add( ' BLOCK "VarFileInfo"' )
oRC:Add( ' BEGIN' )
oRC:Add( ' VALUE "Translation", 0x409, 0x4B0' )
oRC:Add( ' END' )
oRC:Add( 'END' )
else
MsgAlert( "No se pudo crear "+cArchRC, "Atención" )
end
else
oRC:= TTxtFile():New( cArchRC )
oRC:GoTo( 10 )
oRC:RepLine( saDatVers["Version"] )
oRC:GoTo( 23 )
oRC:RepLine( ' VALUE "FileVersion", ' +saDatVers["FileVersion" ] )
oRC:GoTo( 24 )
oRC:RepLine( ' VALUE "FileDescription", ' +saDatVers["FileDescription" ] )
oRC:GoTo( 25 )
oRC:RepLine( ' VALUE "InternalName", ' +saDatVers["InternalName" ] )
oRC:GoTo( 26 )
oRC:RepLine( ' VALUE "LegalCopyright", ' +saDatVers["LegalCopyright" ] )
oRC:GoTo( 27 )
oRC:RepLine( ' VALUE "ProductName", ' +saDatVers["ProductName" ] )
oRC:GoTo( 28 )
oRC:RepLine( ' VALUE "ProductVersion", ' +saDatVers["ProductVersion" ] )
oRC:GoTo( 29 )
oRC:RepLine( ' VALUE "OriginalFilename", '+saDatVers["OriginalFilename"] )
end
oRC:Close()
// Fin
// ------------------------------------------------------------------------- \\
// Archivo log
//
PROCEDURE SetLog()
local oLog, ;
cArchLog:= scPathDB+"GenBuild.log", ;
nX
if !File( cArchLog )
saHeader[4]:= " Archivo...: registro de builds"
oLog:= TTxtFile():New( cArchLog )
if oLog:Open()
for nX:= 1 to Len( saHeader )
oLog:Add( saHeader[nX] )
next
oLog:Add( CRLF + ;
"Build "+ ;
"{ " + ;
Str( snBldNumber,,, .T. ) + ", " + ;
"'" + DtoC( Date() ) + "'" + ", " + ;
"'" + Time() + "'" + ;
" }" )
else
MsgAlert( "No se pudo crear "+cArchLog, "Atención" )
end
else
oLog:= TTxtFile():New( cArchLog )
oLog:GoTo( 8 )
oLog:InsLine( "Build " + ;
"{ " + ;
Str( snBldNumber,,, .T. ) + ", " + ;
"'" + DtoC( Date() ) + "'" + ", " + ;
"'" + Time() + "'" + ;
" }" )
end
oLog:Close()
// Fin/***************
Prog : GenBuild.prg
Autor : eMeGe
Módulo : unico
Inicio : 16/02/2012
Liberado : 22/02/2012
Versiones : 1.10 Se introdujo el uso de archivo .ini; el que guarda
variables de la versión que permiten actualizarse
sin necesidad de recompilar el fuente.
1.00 Operable
Idea original en: <!-- l --><a class="postlink-local" href="http://forums.fivetechsupport.com/viewtopic.php?f=6&t=23215#p124598">viewtopic.php?f=6&t=23215#p124598</a><!-- l --> » Jue Ene 05, 2012 6:24 am » by hmpaquito
version optimizada » by FiveWiDi
Proyecto:
1) Se podría generar un solo GenBuild para todos nuestros proyectos,
en lugar de un genBuild para cada proyecto entonces el .dbf podría ser así:
dbCreate( scPathDB+cDBF+".dbf", ;
{ ;
{ "Aplicacion", "C", 8, 0 }, ;
{ "BuildNro", "N", 5, 0 } ;
} )
con indice sobre campo "Aplicación" para realizar las busquedas y
actualizar el Build en consecuencia
2) Con el mismo criterio de la generación/mantenimiento del .rc
se puede hacer el mantenimiento de archivos de instalacion
Inno
*****************************************************************
*/
#include "fivewin.ch"
// Estaticas
GLOBAL aStaticsMain[ 4 ]
#xtranslate shIni => aStaticsMain\[1\]
#xtranslate saHeader => aStaticsMain\[2\]
#xtranslate scPathDB => aStaticsMain\[3\]
#xtranslate snBldNumber => aStaticsMain\[4\]
PROCEDURE Main()
local cIni:= "DatVersion.ini", ;
hIni, ;
cAnio:= Str( Year(Date()),,,.T.), ;
cAppExe:= Space( 8 )
// Camino
DEFAULT scPathDB:= ".\" // camino de archivos .dbf, .rc, .log
// Genera/Actualiza Build
SetBuild()
// Cabecera
saHeader:= "/*----------------------------------------------------" +CRLF+ ;
" Autor.....: Ing. Mario González" +CRLF+ ;
" Correo-e..: <!-- e --><a href="mailto:mario.r.gonzalez@gmail.com">mario.r.gonzalez@gmail.com</a><!-- e -->" +CRLF+ ;
" archivo :" +CRLF+ ;
" COPYRIGHT.: (c) "+cAnio+" Ideas & Desarrollos desde 1989"+CRLF+ ;
"------------------------------------------------------*/"
// datos de la Versión
if !File( scPathDB+cIni )
msgGet( "OBLIGATORIO!", "Nombre de la Aplicación", @cAppExe )
shIni:= Hash()
shIni["MAIN" ]:= Hash() // Obligatorio
shIni["Aplic"]:= Hash()
shIni["Aplic"]["Exe" ]:= AllTrim( cAppExe )
shIni["Aplic"]["AppIcon"]:= 'AppIcon ICON "resbmp/"'
shIni["AppVer"]:= Hash()
shIni["AppVer"]["Version" ]:= 'FILEVERSION 0,0,0,0'
shIni["AppVer"]["FileVersion" ]:= ''
shIni["AppVer"]["FileDescription" ]:= ''
shIni["AppVer"]["InternalName" ]:= ''
shIni["AppVer"]["LegalCopyright" ]:= '"'+cAnio+' © Ideas & Desarrollos\000"'
shIni["AppVer"]["ProductName" ]:= ''
shIni["AppVer"]["ProductVersion" ]:= ''
shIni["AppVer"]["OriginalFilename"]:= ''
HB_WriteIni( scPathDB+cIni, shIni, StrTran( saHeader, " archivo :", " archivo : .ini" ) )
else
shIni := HB_ReadIni( scPathDB+cIni )
shIni["AppVer"]["FileVersion" ] += Str(snBldNumber,,,.T.)+'\000"'
shIni["AppVer"]["ProductVersion" ] += " "+Str(snBldNumber,,,.T.)+')\000"'
end
// Genera/Actualiza .rc
SetRC()
// Genera/Actualiza .log
SetLog()
// Fin
// ------------------------------------------------------------------------- \\
// Establecer próximo Build
//
PROCEDURE SetBuild()
local cDBF:= "BuildNro"
IF !File( scPathDB+cDBF+".dbf")
dbCreate( scPathDB+cDBF+".dbf", ;
{ ;
{ "BuildNro", "N", 5, 0 } ;
} )
SELECT 0
USE ( scPathDB+cDBF )
APPEND BLANK
ELSE
SELECT 0
USE ( scPathDB+cDBF )
ENDIF
snBldNumber:= ( cDBF )->BuildNro +1
RLock() // lo dejo por compatibilidad. Si se usa un genbuild.exe x aplicacion no es necesario
REPLACE BuildNro WITH snBldNumber
UNLOCK
COMMIT
CLOSE ( cDBF )
// Fin
// ------------------------------------------------------------------------- \\
// Archivo .rc de igual nombre al de la aplicación
//
PROCEDURE SetRC()
local oRC, ;
cArchRC:= scPathDB+shIni["Aplic"]["Exe"]+".rc", ;
nX
if !File( cArchRC )
oRC:= TTxtFile():New( cArchRC )
if oRC:Open()
oRC:Add( StrTran( saHeader, " archivo :", " archivo : recursos" ) )
oRC:Add( '1 24 "d:/bat/theme.man"' )
oRC:Add( shIni["Aplic"]["AppIcon"] )
oRC:Add( 'VS_VERSION_INFO VERSIONINFO' )
oRC:Add( shIni["AppVer"]["Version"] )
oRC:Add( 'FILEFLAGSMASK 0x3F' )
oRC:Add( 'FILEFLAGS 0x0' )
oRC:Add( 'FILEOS VOS__WINDOWS32' )
oRC:Add( 'FILETYPE VFT_APP' )
oRC:Add( 'FILESUBTYPE VFT2_UNKNOWN'+CRLF )
oRC:Add( 'BEGIN' )
oRC:Add( ' BLOCK "StringFileInfo"' )
oRC:Add( ' BEGIN' )
oRC:Add( ' BLOCK "040904B0"' )
oRC:Add( ' BEGIN' )
oRC:Add( ' VALUE "Author", "Ing. Mario González\000"' )
oRC:Add( ' VALUE "CompanyName", "Ideas & Desarrollos\000"' )
oRC:Add( ' VALUE "FileVersion", ' +shIni["AppVer"]["FileVersion" ] )
oRC:Add( ' VALUE "FileDescription", ' +shIni["AppVer"]["FileDescription" ] )
oRC:Add( ' VALUE "InternalName", ' +shIni["AppVer"]["InternalName" ] )
oRC:Add( ' VALUE "LegalCopyright", ' +shIni["AppVer"]["LegalCopyright" ] )
oRC:Add( ' VALUE "ProductName", ' +shIni["AppVer"]["ProductName" ] )
oRC:Add( ' VALUE "ProductVersion", ' +shIni["AppVer"]["ProductVersion" ] )
oRC:Add( ' VALUE "OriginalFilename", '+shIni["AppVer"]["OriginalFilename"] )
oRC:Add( ' VALUE "SpecialBuild","Enlazado con xHarbour 1.2.1 Lic. GNU\000"' )
oRC:Add( ' END' )
oRC:Add( ' END'+CRLF )
oRC:Add( ' BLOCK "VarFileInfo"' )
oRC:Add( ' BEGIN' )
oRC:Add( ' VALUE "Translation", 0x409, 0x4B0' )
oRC:Add( ' END' )
oRC:Add( 'END' )
else
MsgAlert( "No se pudo crear "+cArchRC, "Atención" )
end
else
oRC:= TTxtFile():New( cArchRC )
oRC:GoTo( 8 )
oRC:RepLine( shIni["Aplic"]["AppIcon"] )
oRC:GoTo( 10 )
oRC:RepLine( shIni["AppVer"]["Version"] )
oRC:GoTo( 24 )
oRC:RepLine( ' VALUE "FileVersion", ' +shIni["AppVer"]["FileVersion" ] )
oRC:GoTo( 25 )
oRC:RepLine( ' VALUE "FileDescription", ' +shIni["AppVer"]["FileDescription" ] )
oRC:GoTo( 26 )
oRC:RepLine( ' VALUE "InternalName", ' +shIni["AppVer"]["InternalName" ] )
oRC:GoTo( 28 )
oRC:RepLine( ' VALUE "ProductName", ' +shIni["AppVer"]["ProductName" ] )
oRC:GoTo( 29 )
oRC:RepLine( ' VALUE "ProductVersion", ' +shIni["AppVer"]["ProductVersion" ] )
oRC:GoTo( 30 )
oRC:RepLine( ' VALUE "OriginalFilename", '+shIni["AppVer"]["OriginalFilename"] )
end
oRC:Close()
// Fin
// ------------------------------------------------------------------------- \\
// Archivo log
//
PROCEDURE SetLog()
local oLog, ;
cArchLog:= scPathDB+"GenBuild.log", ;
nX
if !File( cArchLog )
oLog:= TTxtFile():New( cArchLog )
if oLog:Open()
oLog:Add( StrTran( saHeader, " archivo :", " archivo : registros" ))
oLog:Add( CRLF + ;
"Build "+ ;
"{ " + ;
Str( snBldNumber,,, .T. ) + ", " + ;
"'" + DtoC( Date() ) + "'" + ", " + ;
"'" + Time() + "'" + ;
" }" )
else
MsgAlert( "No se pudo crear "+cArchLog, "Atención" )
end
else
oLog:= TTxtFile():New( cArchLog )
oLog:GoTo( 8 )
oLog:InsLine( "Build " + ;
"{ " + ;
Str( snBldNumber,,, .T. ) + ", " + ;
"'" + DtoC( Date() ) + "'" + ", " + ;
"'" + Time() + "'" + ;
" }" )
end
oLog:Close()
// Fin