Version der BPL ermitteln

[oki]

Hi Leute,

erstmal wieder Dank für die Antworten. Sorry, dass ich mich erst so spät melde, aber aus irgend welchen Gründen hatte ich keine Mails über neue Beiträge in dem Thread bekommen. Deshalb hatte ich mich ran gemacht und die Erstellung der inc über ein kleines eigenes Tool getestet. Das habe ich in mein PostBuild aufgenommen. Eigentlich habe ich es genau so bemacht, wie es himitsu beschrieben hat.

Damit klappt das jetzt alles super!

Hier mal der Code meines kleinen Tools:

Delphi-Quellcode:

 (*
   Die Konsolenanwendung generiert eine IncludeDatei, die die Versionsnummer der angegebenen
   BPL ermittelt.
   Zum Aufruf der Anwendung müssen folgende Parameter übergeben werden:
   BPLVersion_inc.exe [BPLName] [DestDir]
   - BPLName
       ist der Name der zu verarbeitenden Datei incl. Pfadangabe
   - DestDir
       ist das Verzeichnis, in dem die Datei angelegt wird. Ist das Verzeichnis nicht
       vorhanden, so wird dieses durch BPLVersion_inc angelegt.
   Der Name der Datei ist BPLVersion_[BPLName].inc

   Die aufzurufende Funktion lautet:
   function GetBPLVersion_[BPLName] : String;

   BPLName ist der Name der BPL ohne Pfad.
 *)
program BPLVersion_inc;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes,
  FileVers;  // eigene Unit zur Ermittlung der Versionsnummer

var AList : TStringList;
     BPlName, BPlVersion, DestPath, s : String;
    Counter : Integer;
begin
  try
    try
      AList := TStringList.Create;
      BPlName := ParamStr(1);
      DestPath := ParamStr(2);
      ForceDirectories(DestPath);
      if (BPLName = '') or (not FileExists(BPLName)) then begin
        raise Exception.Create('BPL "' + BPLName + '" nicht gefunden!');
      end;
      BPLVersion := GetFileVersionsString(BPLName);
      BPLName :=ExtractFileName(BPLName);
      Counter := 1;
      s := '';
      while (not (BPLName[Counter] = '.')) or (Counter = Length(BPLName)) do begin
        s := s + BPLName[Counter];
        inc(Counter);
      end;
      AList.Add('function GetBPLVersion_' + s + ' : String;');
      AList.Add('begin');
      AList.Add('  Result := ''' + BPLVersion + '''');
      AList.Add('end;');

      AList.SaveToFile(IncludeTrailingPathDelimiter(DestPath) +
        'BPLVersion_' + s + '.inc');
    finally
      AList.Free;
    end;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

Ich hab mir dabei nicht unbedingt die größten Kopfschmerzen zur Eleganz gemacht. Es funzt und das reicht mir. In meinem Projektquellcode implementiere ich an der entsprechenden Stelle die Compilerdirektive:
{$I BPLVersion_MyBPL.inc} und kann dann auf die Funktion zugreifen. Ich habe das gleich mit den entsprechenden Übergabepareametern versehen, so kann ich für jede BPL eine eigene Inc-Datei mit eigenem Funktionsaufruf generieren. Weitere Tools für andere BPL's sind somit nicht nötig. Das sollte auch mit DLL's gehen, brauch ich aber nicht. Sinnvollerweise sollte der Code des Tools dann dahingehend erweitert werden.

Wie gesagt, in den Projektoptionen das ganze ins PostBuild (BPLVersion_inc.exe "MyBPL" "C:\Programmierung\MyBPLProject").

Dank euch allen noch mals und Gruß

oki