Entwickler-Ecke

Programmierwerkzeuge - "Testversion" unter Versionsinfo


Metschu - So 24.07.11 13:03
Titel: "Testversion" unter Versionsinfo
Hallo zusammen!

Was macht eigentlich das Auswahlfeld "Testversion" in der Versionsinformation (Project -> Optionen -> Versionsinformation) ?

Kann man das wie die Versionsnummer auch auslesen und in dem Programm verabeiten?

Solange das Programm noch nicht fertig ist, soll ein Hinweisfenster am Start erscheinen, also nach dem Motto "IF Testversion then showmessage('Achtung Testversion')";
Derzeit kommentiere ich das immer aus, wenn das Programm fertig ist.

Gruß

Torsten


BenBE - Mo 25.07.11 07:06

Mit dem Haken kann man ein Flag in den Versionsinfos setzen lassen, mit dem man mitteilen kann, dass diese Dateiversion nur für Testzwecke (Debugging) gedacht ist; unabhängig davon, ob wirklich Debug-Informationen (siehe Linker/Compiler-Settings für z.B. TD32, Debug-Symbole, ...)

Wie man das Flag konkret wieder auswerten kann, müsste ich nachschauen.


Tastaro - Mo 25.07.11 07:55

Guckst du:
http://www.delphi-forum.de/viewtopic.php?t=96213&highlight=getfileversioninfo

Beste Grüße


Metschu - Mo 25.07.11 10:07

Das Auslesen der Versionsnummer benutze ich ja schon die ganze Zeit.

Würde nur gerne, wenn möglich, verarbeiten können, ob es sich um eine Testversion handelt oder nicht.

Gruß

Torsten


Tastaro - Mo 25.07.11 10:41

Wenn du das tust, musst du doch nur noch die Flags auswerten:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
const
   VFF_DEBUG = $01;    //Das Projekt wurde im Debug-Modus compiliert.
   VFF_TEST  = $02;    //Die Version ist keine endgültige Version.
   VFF_PRIVATE = $08;  //Die Version wurde nicht unter den üblichen Gesichtspunkten für Freigabeversionen compiliert.
   VFF_SPECIAL = $20;  //Die Version ist eine Abwandlung der Standardversion.
var
   boBetaVersion: boolean;
   boDebugVersion: boolean;
   boPrivateVersion: boolean;
   boSpecialVersion: boolean;
begin
   boBetaVersion := (VerValue^.dwFileFlags and VFF_TEST) = VFF_TEST;
   boDebugVersion := (VerValue^.dwFileFlags and VFF_DEBUG) = VFF_DEBUG;
   boPrivateVersion := (VerValue^.dwFileFlags and VFF_PRIVATE) = VFF_PRIVATE;
   boSpecialVersion := (VerValue^.dwFileFlags and VFF_SPECIAL) = VFF_SPECIAL;
   ...
end;


Beste Grüße


Metschu - Mo 25.07.11 11:23

Super, klappt.

Genau das habe ich gesucht!

Danke!