TCbVersionInfo

TCbVersionInfo-Dateinformationen ermitteln

Die Klasse dient zum auslesen von Eigenschaften einer Datei.

Eigenschaften	Beschreibung
FileName:C	Pfadangabe + Dateiname

Eigenschaften nur zum Lesen	Beschreibung
Major:N	Haupt Versions-Nr.
Minor:N	wird nicht mehr verwendet, immer 0
Release:N	wird nicht verwendet, immer 0
Build:N	Minor Versions-Nr.
BuildInt:N	Build-Nr.
CompNo:N	Compilation-Nr. (fortlaufend über alle Versionen/Builds)
BuildID:N	Build-ID
Company:C	Firma
Product:C	Produktname
ProductShort:C	Produktname in Kurzform
Copyright:C	Copyright
Homepage:C	Homepage
MailTo:C	Email
MailSubj:C	Email Betreff
IsPrivateBuild:L	True = interner Build
PrivateBuild:C	Computer- und Benutzernameninformationen
Branch:C	Branchname
BuildType:N	1 = CI, 2 = NB, 3 = REL, 4 = DEV, 0 = Default = Invalid

Hinweis

Wenn kein 'FileName' für das Objekt festgelegt wurde, werden standardmäßig die Informationen der ausführenden Exe abgerufen.

BuildType Informationen:
1 für CI (continous integration build),
2 für NB (nigtly build),
3 für REL (release),
4 für DEV (developer),
0 für Default = Invalid

Beispiel

CODE

//##############################################################################
// Beispiel für TCbVersionInfo
//##############################################################################
| oObj1|

oObj1 := CreateObject('TCbVersionInfo'),
startseq
    oObj1.FileName := 'C:\BE_32.exe',

    //Beispiele für einige Eigenschaften einer Datei

    //Zum Lesen der Version
    writeln('Version: ' + Str(oObj1.Major) + '.' + Str(oObj1.Build) + '.' + Str(oObj1.BuildInt) + '.' + Str(oObj1.CompNo)),
    //Zum Lesen der BuildID
    writeln('Build ID: ' + Str(oObj1.BuildID)),
    //Zum Lesen des Build-Typs
    writeln('Build Typ: ' + Str(oObj1.BuildType)),
    //Zum Lesen des Firmennamens
    writeln('Firma: ' + oObj1.Company),
    //Um festzustellen, ob die Datei ein privater Build ist.
    writeln('Private Build ', oObj1.IsPrivateBuild),
always
    DestroyObject(oObj1),
stopseq,