Version der BPL ermitteln

[oki]

Push :oops:

[Satty67]

Etwas Handarbeit... beim erweitern der BPL eine kleines Programm starten, das die Version der BPL's in eine INC-Datei schreibt, die dann ins Programm eingebunden wird.

Wobei es dafür ja eine Lösung per IDE-Experte geben müsste, der das direkt vorm compilieren erledigt?

[oki]

Zitat:

Zitat von Satty67

Etwas Handarbeit... beim erweitern der BPL eine kleines Programm starten, das die Version der BPL's in eine INC-Datei schreibt, die dann ins Programm eingebunden wird.

Wobei es dafür ja eine Lösung per IDE-Experte geben müsste, der das direkt vorm compilieren erledigt?

Joop, so hatte ich mir das gedacht.
Jetzt stellt sich für mich nur noch die Frage, wie ich die Inc-Datei automatisch schreiben kann. Ich geb ehrlich zu, dass ich mit Inc-Dateien bis Dato noch nichts am Hut hatte :oops: . Kleiner Tipp wie ich die verwende (Wert auslese)?

Gruß oki

[Satty67]

Ich schreib mal über alles was....

Also Includes sind auch nur normale PAS oder Text-Dateien. Die Zeilen darin werden an der entsprechenden Stelle wie Copy&Paste eingefügt. Also ist der Inhalt beliebig, solange er Pascal-Quellcode entspricht (Dateiname ist auch egal, auch wenn *.pas default ist). ...einbinden per {$I XYZ_BBL.VER} and der gewünschen "Paste"-Stelle

Erzeugen sollte ja klar sein... eine Exe, die DLL-Version abfragt und z.B. den Wert als const-Deklaration in die Include-Datei schreibt. z.B.

Code:

const
  XYZ_BPL_Version : Double = 2.9;

Richtig spannend ist, wie diese Exe von der IDE vorm compilieren ausgeführt wird (also ohne manuellem Start). Das müsste gehen und das weis hier auch sicher jemand... nur ich nicht ;)

Noch genialer wäre ein IDE-Experte, der vorm compilieren einen Resource-String in die Resource des zu compilierenden Projekts reinschreibt.

[himitsu]

also ohne Experte wohl einfach so

Delphi-Quellcode:

// Projektoptionen > Pre-Build:
CreateBPLVersionInfo.exe


// einbinden / prüfen:
{$INCLUDE "BPLVersion.inc"}

...
Caption := MyBPLVersion;


// die BPLVersion.inc
const MyBPLVersion = '1.2.3.4';

aber besser wohl so ... da hat man auch gleich eine bessere Möglichkeit zu prügen ob die Pre/Post-Build-Ereignisse in den Optionen eingetragen sind
und somit Version möglichst aktuell wäre.

Delphi-Quellcode:

// Projektoptionen > Pre-Build:
CreateBPLVersionInfo.exe "BPL-Name" "MyBPLVersion" "BPLVersion.inc"


// Projektoptionen > Post-Build:
DEL "BPLVersion.inc"


// einbinden / prüfen:
{$INCLUDE "BPLVersion.inc"}
{$IF not Declared(MyBPLVersion))
  {$MESSAGE Error 'MyBPLVersion ist nicht definiert (eventuell Pre/Post-Build-Ereignisse prüffen)'}
{$IFEND}

...
Caption := MyBPLVersion;


// die .INC (z.B. "BPLVersion.inc")
const MyBPLVersion = '1.2.3.4';

CreateBPLVersionInfo.exe bracht ja nur 'ne kleine Consolenanwendung sein, welche die Version ausließt und die .INC erstellt (über die Parameter könnte man dieses dann so gestalten, daß man dieses eine Programm für mehrere BPLs verwenden kann)

[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:

Delphi-Quellcode:

{$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

[schöni]

Zitat:

Zitat von Satty67

Ich schreib mal über alles was....

Also Includes sind auch nur normale PAS oder Text-Dateien. Die Zeilen darin werden an der entsprechenden Stelle wie Copy&Paste eingefügt. Also ist der Inhalt beliebig, solange er Pascal-Quellcode entspricht (Dateiname ist auch egal, auch wenn *.pas default ist). ...einbinden per {$I XYZ_BBL.VER} and der gewünschen "Paste"-Stelle

Erzeugen sollte ja klar sein... eine Exe, die DLL-Version abfragt und z.B. den Wert als const-Deklaration in die Include-Datei schreibt. z.B.

Code:

const
  XYZ_BPL_Version : Double = 2.9;

Richtig spannend ist, wie diese Exe von der IDE vorm compilieren ausgeführt wird (also ohne manuellem Start). Das müsste gehen und das weis hier auch sicher jemand... nur ich nicht ;)

Da gab es mal Innerfuse Pascal Script und auch RemObjects Pascal Script. Ließe sich damit nicht ein Pascal Interpreter bauen? Der müsste natürlich dann als IDE Experte verfügbar gemacht werden.

[oki]

Zitat:

Zitat von schöni

Zitat:

Zitat von Satty67

Ich schreib mal über alles was....

Also Includes sind auch nur normale PAS oder Text-Dateien. Die Zeilen darin werden an der entsprechenden Stelle wie Copy&Paste eingefügt. Also ist der Inhalt beliebig, solange er Pascal-Quellcode entspricht (Dateiname ist auch egal, auch wenn *.pas default ist). ...einbinden per {$I XYZ_BBL.VER} and der gewünschen "Paste"-Stelle

Erzeugen sollte ja klar sein... eine Exe, die DLL-Version abfragt und z.B. den Wert als const-Deklaration in die Include-Datei schreibt. z.B.

Code:

const
  XYZ_BPL_Version : Double = 2.9;

Richtig spannend ist, wie diese Exe von der IDE vorm compilieren ausgeführt wird (also ohne manuellem Start). Das müsste gehen und das weis hier auch sicher jemand... nur ich nicht ;)

Da gab es mal Innerfuse Pascal Script und auch RemObjects Pascal Script. Ließe sich damit nicht ein Pascal Interpreter bauen? Der müsste natürlich dann als IDE Experte verfügbar gemacht werden.

Unter D2007 wie gesagt einfach in das PostBuild in den Projektoptionen. Mein altes Delphi 5 kannte das natürlich noch nicht. Wie es bei D7 mit PostBuild steht ... Dann ist das mit dem Automatismus natürlich nicht mehr so automatisch (zumindest einfach).

Für meine Belange und IDE ist es in der beschriebenen Variante aber ideal.

Gruß oki