Korrekte Veröffentlichungsversion Aufgrund eines Bugs im Framework wird in der Veröffentlichungsversion die Revisionsnummer falsch angegeben. Dieser Tipp zeigt, wie es korrekt geht.
Autor:   Götz Kircher	Bewertung:	Views:  13.409
www.goetz-kircher.de	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Aufgrund eines Bugs im Framework wird in der Veröffentlichungsversion die Revisionsnummer falsch angegeben. Dieser Tipp zeigt, wie es korrekt geht.

''' <summary>
''' Gibt bei "Click-Once"- Veröffentlichungen unter VB 2008 die korrekte
''' vollständige Versionsnummer zurück.
''' </summary>
Public Shared Function Veröffentlichungsversion() As String
 
  ' Aufgrund eines Bugs im Framework wird die Veröffentlichungsversion
  ' falsch angebenen. Der Wert My.Application.Info.Version.MinorRevision
  ' zeigt unbrauchbare Werte an. Da genau das der Wert ist, der
  ' vom System beim Veröffentichen automatisch hochgezählt wird,
  ' kann das schmerzlich sein.
  '
  ' Die Lösung hier macht sich zunutze, daß der "Klick-Once" Installer
  ' eine Manifestdatei mit installiert, in der die korrekte Angabe
  ' steht. Das Ganze funktioniert auch innerhalb der IDE.
  ' 
  ' In den Eigenschaften des Programms ist unter "Assemblyinformationen"
  ' bei der letzten Stelle der Assemblyversion ein Joker zu setzten.
 
  With My.Application.Info
 
    ' Wenn die Daten nicht auffindbar sind, oder wenn irgend ein Fehler
    ' auftritt, werden die ersten drei Werte der Version zurückgeben,
    ' ohne die Revisionnummer.
 
    Dim zErsatzwert As String = .Version.ToString
    zErsatzwert = zErsatzwert.Substring(0, zErsatzwert.LastIndexOf("."))
 
    ' In dieser Datei steht der korrekte Wert.
    Dim zLwpD As String = .DirectoryPath & "\" & .AssemblyName & ".exe.manifest"
 
    ' Prüfen, ob vorhanden. (Das ist nur eine Sicherheitsmaßnahme.)
    If Not My.Computer.FileSystem.FileExists(zLwpD) Then
      Return zErsatzwert
    End If
 
    ' wenn ja, laden....
    Dim zFile As String
    Try
      zFile = My.Computer.FileSystem.ReadAllText(zLwpD)
    Catch ex As Exception
      Return zErsatzwert
    End Try
 
    ' Die Versionsummer steht hier:
    Dim iZeiPosStart As Integer = zFile.IndexOf("<asmv1:assemblyIdentity version=")
 
    If iZeiPosStart = -1 Then
      Return zErsatzwert
    End If
 
    ' Versionsummer separieren und zurückgeben
    Dim iZeiPosHochKommata01 As Integer = zFile.IndexOf("""", iZeiPosStart)
    Dim iZeiPosHochKommata02 As Integer = zFile.IndexOf("""", iZeiPosHochKommata01 + 1)
 
    If iZeiPosHochKommata02 < iZeiPosHochKommata01 Then
      Return zErsatzwert
    End If
 
    Return zFile.Substring(iZeiPosHochKommata01 + 1, _
      iZeiPosHochKommata02 - iZeiPosHochKommata01 - 1)
 
  End With
End Function

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.