Build count - Wie oft habe ich kompiliert?

[MisterNiceGuy]

Hi, gibt's ne interne Variable die mir sagt wie oft ich das Projekt schon kompiliert habe?
Ich würd das gern als Anzeige in mein Projekt einbauen!

[himitsu]

"Compiliert" nicht, aber "Erzeugt"

einfach in den Projektoptionen > Versionsinfo bei "Buildnummer automatisch erhöhen" das Kreuz machen,

dann wird jedesmal der letzte Wert "Compilierenung" (ich weiß, falscher Name) erhöht.



Ansonsten kannst du dir z.B. auch mit 'nem Post-Build-Script behelfen.
OK, das geht bei D7 noch nicht

[MisterNiceGuy]

Jo, aaaber wie binde ich dann den Counter in meine Anwendung ein? Ich würd den ja gern im fertigen Programm anzeigen!

[himitsu]

Zitat:

Zitat von MisterNiceGuy

Jo, aaaber wie binde ich dann den Counter in meine Anwendung ein? Ich würd den ja gern im fertigen Programm anzeigen!

indem du die Versionsinfo ausließt?

das Wie sollte auch irgendwo im Forum zu finden :zwinker:

Delphi-Quellcode:

Function GetFileVersion: String;
  Var i, W: LongWord;
    P: Pointer;
    FI: PVSFixedFileInfo;

  Begin
    Result := 'NoVersionInfo';
    i := GetFileVersionInfoSize(PChar(ParamStr(0)), W);
    If i = 0 Then Exit;
    GetMem(P, i);
    Try
      If not GetFileVersionInfo(PChar(ParamStr(0)), W, i, P)
        or not VerQueryValue(P, '\', Pointer(FI), W) Then Exit;
      Result := Format('v%d.%d.%d.%d', [FI^.dwFileVersionMS shr 16, FI^.dwFileVersionMS and $FFFF,
        FI^.dwFileVersionLS shr 16, FI^.dwFileVersionLS and $FFFF]);
      If FI^.dwFileFlags and VS_FF_DEBUG        <> 0 Then Result := Result + ' debug';
      If FI^.dwFileFlags and VS_FF_PRERELEASE   <> 0 Then Result := Result + ' beta';
      If FI^.dwFileFlags and VS_FF_PRIVATEBUILD <> 0 Then Result := Result + ' private';
      If FI^.dwFileFlags and VS_FF_SPECIALBUILD <> 0 Then Result := Result + ' special';
    Finally
      FreeMem(P);
    End;
  End;

[add]
Da ich selber nur Hauptversion.Nebenversion.Zähler nutze, trenne ich meistens nicht zwischen Ausgabe und Compilierung und fasse diese daher zusammen

Delphi-Quellcode:

Result := Format('v%d.%d.%d', [FI^.dwFileVersionMS shr 16,
  FI^.dwFileVersionMS and $FFFF, FI^.dwFileVersionLS]);

Das Ganze liefert dann die roten Teile der Versionsinfos
als "vH.N.A.C Flags" oder "vH.N.X Flags" .

[MisterNiceGuy]

Vielen Dank für die detaillierte Erklärung :) Aber wenn ich mein Projekt builde werden die Counter nicht automatisch hochgezählt! Muss ich da noch irgendwas beachten? Ich hab die Häkchen an den Kästchen alle mal testweise gesetzt, tut sich aber nix.

Edit: Ah doch, jetzt gehts! Häkchen beim Autoincrement vergessen...

[taaktaak]

Zitat:

OK, das geht bei D7 noch nicht

Ähh, vielleicht nicht bei D7 Personal, bei "Professional" schon.
.. war ja wohl der PostBuild gemeint :oops:

[himitsu]

Beachten mußt du schon einwas ... man darf nicht vergessen "erzeugen" zu nutzen, wenn man hochzählen will (aber falls man es mal vergißt, dann läßt es sich ja notfalls noch manuell etwas nachregeln :roll: )

@taaktaak: wurden die Pre- und Post-Compile-Scripte nicht erst in D2006 oder D2007 eingeführt?

[MisterNiceGuy]

Doch es geht in der Personal Edition ABER das nervt ja tierisch, dass man immer Builden muss und F9 nicht reicht um automatisch zu incrementieren!

[himitsu]

Zitat:

Zitat von MisterNiceGuy

ABER das nervt ja tierisch, ...

ich weiß :nerd:

das ist wohl soein Schutz, damit die Versionsnummer nicht gleich in Tausenderschritten steigen ... wenn ich bedenke, wie oft ich jedesmal zum Debuggen kompiliere, bis dann irgendwann mal wieder 'ne Vesion veröffentlich wird :oops:

[taaktaak]

@himitsu:
Hatte den Beitrag zu oberflächlich gelesen, daher meine unsinnige Antwort. Das mit den Pre- und Post-Compile-Scripten kenne ich (noch) gar nicht. Habe mir aber zum Geburtstag von Sohnemann Delphi 2010 gewünscht. Hohoh, das wird ja ein "Kulturschock" werden :roteyes: