TCbVersionInfo

Die Klasse dient zum auslesen von Eigenschaften einer Datei.

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

Eigenschaften

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

Beispiel

//##############################################################################
// 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,