DLL-Version herausfinden

[skoschke]

Hallo,

ich erstelle eine DLL mit Delphi 10.4.
In den Projektoptionen ist die Version eingetragen (z.B. 1.2.7.0)
Nun möchte ich zur Kontrolle, ob die richtige DLL im Anwendungsprogramm verwendet wird, deren Version auslesen...

Delphi-Quellcode:

function GetCurrentVersion(): string;
var
  VerInfoSize: DWord;
  VerInfo: Pointer;
  VerValueSize: DWord;
  VerValue: PVSFixedFileInfo;
  Dummy: DWord;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(getModuleName), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(getModuleName), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
  begin
    Result := IntTostr(dwFileVersionMS shr 16);
    Result := Result + '.' + IntTostr(dwFileVersionMS and $FFFF);
    Result := Result + '.' + IntTostr(dwFileVersionLS shr 16);
    Result := Result + '.' + IntTostr(dwFileVersionLS and $FFFF);
  end;
  FreeMem(VerInfo, VerInfoSize);
end;

Die obige Funktion habe ich hier vor langer Zeit einmal hier gefunden
Leider bekomme ich als Ergebnis "1.0.0.0" und wenn ich mit die Eigenschaften der DLL im Explorer ansehe, ist da auch nur 1.0.0.0 als Dateiversion und Produktversion angegeben!

Warum steht das 1.2.7.0 nicht in den Eigenschaften der DLL?

Ciao
Stefan

[Uwe Raabe]

Prüf mal, ob die gewünschte Version auch in der gerade verwendeten Build-Konfiguration eingetragen ist. Es gibt zwar eine Vererbung der Werte, aber die funktioniert nur solange man keine eigenen Werte in den Child-Konfigurationen hat.

Unter anderem aus diesem Grund habe ich den Project Magician geschrieben: Keep Your Project Files Clean With Project Magician - speziell der Abschnitt Clear Settings in Child Configurations

[skoschke]

Hallo Uwe,

so sieht die Einstellung bei mir aus (siehe Anhang)

Ciao
Stefan

[himitsu]

PS: SysUtils.GetFileVersion

Es macht zwar in etwa das Gleiche, wie deine Funktion,
also gilt weiterhin das Gesagt von Uwe.

[Stolle58]

Was steht in

Code:

getModuleName

.

[Uwe Raabe]

Was ist das eigentlich für eine getModuleName Funktion ohne Parameter?

[Dalai]

Zitat von Uwe Raabe:

Was ist das eigentlich für eine getModuleName Funktion ohne Parameter?

Wahrscheinlich eine Vereinfachung dieser: https://docwiki.embarcadero.com/Libr....GetModuleName, in dem schon hInstance o.ä. übergeben wird.

Grüße
Dalai

[Uwe Raabe]

Zitat von skoschke:

Leider bekomme ich als Ergebnis "1.0.0.0" und wenn ich mit die Eigenschaften der DLL im Explorer ansehe, ist da auch nur 1.0.0.0 als Dateiversion und Produktversion angegeben!

Ich vermute ja immer noch ein Problem in den Projekteinstellungen. Kannst du das an einem frischen DLL-Projekt reproduzieren?

Du könntest auch mal die .dproj Datei hier anhängen.

[Rolf Frei]

Dir ist schon bewusst, dass du die Versionsinfo bei allen Build-Konfiugurationen eintragen musst. Dein Screenshot von oben wird nur ein 32 Bit Release Build mit dieser Versionsnummer ergänzen. Wenn du eine Debug Build compilierst, wird da noch der Defaultwert von 1.0.0.0 drin stehen. Kontrolliere daher mal alle deine Buildkonfigs (Combobox oben im Dialog), dass du da bei allen deine gewünschte Version drin stehen hast. Das ist leider absolut idiotisch gemacht! So musst du jedes mal alle Builds aktualisieren, wenn du die Versionsnummer ändern willst.

[jaenicke]

Zitat von Rolf Frei:

So musst du jedes mal alle Builds aktualisieren, wenn du die Versionsnummer ändern willst.

Es sei denn du löschst (manuell oder mit dem oben genannten Tool) alle Versionsinformationen aus der .dproj außer der Basiskonfiguration. Dann reicht es, die Basis anzupassen.

Meistens klappt das auch, indem man die Versionsinformation einmal in allen Buildkonfigurationen genau angleicht, aber das klappt leider nicht immer.

Problematisch ist auch manchmal, wenn man die Versionsinformation nicht auf Deutschland einstellt, weil manche Tools diese Ressource dann ignorieren.