Wie definieren Sie die version der Anwendung an einem Ort für mehrere Anwendungen?

Können Sie erstellen eine VERSIONINFO Ressource, die in einem nur-text-Datei (eg., Versioninfo.rc)

1 VERSIONINFO
FILEVERSION 2,0,0,0
PRODUCTVERSION 2,0,0,0
FILEOS 0x4
FILETYPE 0x1
{
BLOCK "StringFileInfo"
{
    BLOCK "040904E4"
    {
        VALUE "CompanyName", "Your Company Name Here\0"
        VALUE "FileDescription", "Your File Description Here\0"
        VALUE "FileVersion", "2.0.0.0\0"
        VALUE "InternalName", "Your Internal Name\0"
        VALUE "LegalCopyright", "© Your Copyright Notice\0"
        VALUE "LegalTrademarks", "Your Trademark Notice\0"
        VALUE "OriginalFilename", "YourExeName\0"
        VALUE "ProductName", "Your Product Name\0"
        VALUE "ProductVersion", "2.0.0.0\0"
        VALUE "Comments", "No Comments\0"
    }
}

BLOCK "VarFileInfo"
{
    VALUE "Translation", 0x0409 0x04E4
}
}

Hinweis: Die C-Stil-null-Abschlusszeichen (\0) benötigt werden, am Ende jedes Element, wie gezeigt, um für den Ressourcen-compiler, um richtig zu beenden, den strings. Andernfalls, wenn Sie mit dem Explorer zum anzeigen der Versionsinformationen für die ausführbare Datei, erhalten Sie möglicherweise verstümmelt oder teilweise verketteten Werte.

Fügen Sie eine Zeile in Ihre Projektdatei Quelle:

{$R VersionInfo.res VersionInfo.rc}

Schlage ich vor, um die gemeinsamen version-info-Ressource in eine externe Referenz in Ihrem version control system, und dann können Sie einfach überprüfen Sie es heraus, in jedem Projekt-Ordner und aktualisieren Sie es leicht.

Projekt->Bauen, und Ihre version info ist eingebettet in die .exe. Sie können überprüfen Sie mithilfe von Windows Explorer und der Anzeige der Eigenschaften der app.

Gibt es ein paar Beiträge (eins von mir und eins in einer Antwort von Jim Fleming) in den Embarcadero Delphi-Foren an CodeNewsFast Archive. Mir ist [hier], wo beschreibe ich Schritt-für-Schritt, wie Sie eine pre-build-Ereignis in Ihrem Projekt zur Aktualisierung der Versionsnummer in der Ressource-script, das ich oben gepostet.

Jim posts ein paar Antworten, aber über ein Dutzend posts oder so da unten ist die Quelle für eine ausführbare Datei, die aufgerufen werden kann, die pre-build-Ereignis, das für ihn arbeitet. (Es gibt einige Dinge würde ich anders machen, wie lassen sich die IDE-übergeben Sie das Projekt Namen und Speicherort auf der Kommandozeile; wie dies beschrieben ist in der Schritt-für-Schritt-Artikel. Ich würde auch mit der version Parsen und Inkrementieren anders, aber die basic-app ist ein guter Ausgangspunkt.)

Embarcadero Gruppen sind derzeit down, aber ich war in der Lage, zum abrufen von Jim ' s code von CodeNewsFast als gut, und es reproduzieren können hier:

Ken,

Dank an Euch, ich habe es zu arbeiten.

Nur falls jemand anderes will, um diese Lösung zu implementieren, Unten finden Sie die nötigen Schritte und Hilfs-Programm.

Jim Fleming

A) Erstellen Sie Ihre Version-Info-Ressource-Datei in Ihrem Projekt-Verzeichnis oder wo auch immer, mit den folgenden

Inhalt und Dateierweiterung .rc:

//Note the \000 !!!! Here and elsewhere below !!!! 
//C string terminator !!!
#define CONST_VERSION "4.1.1.1003\000" 

1 VERSIONINFO
FILEVERSION 1,0,0,1
PRODUCTVERSION 1,0,0,1
FILEOS 0x4
FILETYPE 0x1
{
BLOCK "StringFileInfo"
{

BLOCK "040904E4" //Will need changing if your language is not English and char-set not 1252 (multilingual).
{
VALUE "CompanyName", "Whatever\000"
VALUE "FileDescription", "Whatever\000"
VALUE "FileVersion", CONST_VERSION
VALUE "InternalName", "My Internal Name\000"
VALUE "LegalCopyright", "Copyright © whoever\000"
VALUE "LegalTrademarks", "\000"
VALUE "OriginalFileName", "If you wish\000"
VALUE "ProductName", "What pleases you\000"
VALUE "ProductVersion", CONST_VERSION
VALUE "Comments", "Anything you wish to add\000"
}
}
BLOCK "VarFileInfo"
{
VALUE "Translation", 0x0409 0x04E4
}
}

B) Erstellen Sie ein neues Projekt in einem Ordner, code-nur Modul sollte ähnlich sein:

unit FormIncrementBuildNumber;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls, System.IOUtils, System.StrUtils;


type
  TIncrementBuildNumber = class(TForm)
    IncrementingBuildNumberLabel: TLabel;
    procedure FormShow (Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  IncrementBuildNumber: TIncrementBuildNumber;

implementation

{$R *.dfm}

procedure TIncrementBuildNumber.FormShow (Sender: TObject);
var
  Resource_File_Contents:       TStringList;
  Full_File_Name_And_Path:      string;
  First_Line_Of_File:           string;
  Position_First_Dot:           Integer;
  Position_Second_Dot:          Integer;
  Position_Third_Dot:           Integer;
  Position_Trailing_Backslash:  Integer;
  Start_of_Build_Number:        Integer;
  Length_of_Build_Number:       Integer;
  Build_Number_In_ASCII:        string;
  Build_Number_Numeric:         Integer;
  Old_Resource_File_Name:       string;
  Success:      Boolean;
begin
  if (System.ParamCount <> 1) then
  begin
    ShowMessage ('Resource File name not in first command-line parameter.');
    Exit;
  end;

  Full_File_Name_And_Path := System.ParamStr(1);
  if (not TFile.Exists(Full_File_Name_And_Path, False)) then
  begin
    ShowMessage ('Resource file ' + Full_File_Name_And_Path + 
                 ' not found.');
    Exit;
  end;

  Resource_File_Contents := TStringList.Create;
  try
    Resource_File_Contents.LoadFromFile(Full_File_Name_And_Path);
    First_Line_Of_File := Resource_File_Contents.Strings[0];

    if (Copy(First_Line_Of_File, 1, 21) <> '#define CONST_VERSION') then
    begin
      ShowMessage ('First line of Version Info must start with "#define CONST_VERSION".' + 
                   #13 + 'Version not incremented.');
      Exit;
    end;

    Position_First_Dot := Pos('.', First_Line_Of_File);
    if (Position_First_Dot = 0) then
    begin
      ShowMessage ('Version must have format "a.b.c.d".' + #13 + 
                   'Build Number not incremented.');
      Exit;
    end;

    Position_Second_Dot := PosEx('.', First_Line_Of_File, 
                                 Position_First_Dot+1);
    if (Position_Second_Dot = 0) then
    begin
      ShowMessage ('Version must have format "a.b.c.d".' + #13 + 
                   'Build Number not incremented.');
      Exit;
    end;

    Position_Third_Dot := PosEx('.', First_Line_Of_File, 
                                Position_Second_Dot+1);

    if (Position_Third_Dot = 0) then
    begin
      ShowMessage ('Version must have format "a.b.c.d".' + #13 + 
                   'Build Number not incremented.');

      Exit;
    end;

    Position_Trailing_Backslash := PosEx('\', First_Line_Of_File, 
                                         Position_Third_Dot+1);

    if (Position_Trailing_Backslash = 0) then
    begin
      ShowMessage ('Version must have format "a.b.c.d\000".' + #13 + 
                   'Build Number not incremented.');
      Exit;
    end;

    Start_of_Build_Number  := Position_Third_Dot + 1;
    Length_of_Build_Number := Position_Trailing_Backslash - 
                              Start_of_Build_Number;

    if (Length_of_Build_Number < 1) then
    begin
      ShowMessage ('Build Number must be present.' + #13 + 
                   'Build Number not incremented.');
      Exit;
    end;

    Build_Number_In_ASCII := Copy (First_Line_Of_File, 
                                   Start_of_Build_Number, 
                                   Length_of_Build_Number);
    Success := TryStrToInt (Build_Number_In_ASCII, Build_Number_Numeric);
    if (not Success) then
    begin
      ShowMessage ('Build Number must be numeric integer.' + #13 + 
                   'Build Number not incremented.');
      Exit;
    end;

    Build_Number_Numeric := Build_Number_Numeric + 1;
    Build_Number_In_ASCII := IntToStr(Build_Number_Numeric);
    Resource_File_Contents.Strings[0] := Copy(First_Line_Of_File, 1, 
                                              Position_Third_Dot) +
                                              Build_Number_In_ASCII + 
                                              '\000"';
    Old_Resource_File_Name := Full_File_Name_And_Path;
    Old_Resource_File_Name := TPath.ChangeExtension(Old_Resource_File_Name, '~rc');

    if TFile.Exists(Old_Resource_File_Name, False) then
      TFile.Delete(Old_Resource_File_Name);

    Success := RenameFile(Full_File_Name_And_Path, Old_Resource_File_Name);
    if (not Success) then
    begin
      ShowMessage ('Error renaming old resource file to have extension "~rc".' + #13 + 
                  'Build Number not incremented.');
      Exit;
    end;

    Resource_File_Contents.SaveToFile(Full_File_Name_And_Path);
  finally
    Resource_File_Contents.Free;
  end;
end;

procedure TIncrementBuildNumber.FormActivate (Sender: TObject);
begin
  Close;
end;

end.

C) In den Projekt-Optionen das Projekt, dessen build-Nummer erhöht werden:

• Entfernen Sie das Häkchen "include version info".

• Fügen Sie eine pre-build-Ereignis mit dem folgenden text, wie geschrieben, darunter die zwei Paare von doppelten Anführungszeichen, ersetzen Sie die Teile innerhalb von <, >:

"<vollständiger Dateiname und Pfad des auto-increment-Programm exe - >" "<vollständiger Dateiname und Pfad der .rc resource file - >"

D) Fügen Sie dem Projekt Hand, direkt unterhalb des "Programme" Stichwort:

{$R '<whatever you called it>.res' '<whatever you called it>.rc'} //I think both names must

werden das gleiche hier: wenn ich mich Recht erinnere, habe Fehler, wenn Sie anders waren.

E) Kompilieren Sie, führen Sie und genießen Sie die Rückkehr der Auto-Inkrement-build-Nummern, die trotz Embarcadero mit entfernt die Anlage.

Ende Jim Inhalte

Könnten Sie die pre-build-Ereignis auf, zum Beispiel, aktualisieren Sie die ProductName oder FileDescription Werte, oder jegliche andere, anders zu sein von der Basis-Skript.

Dies ist eines der Anwendungsfälle für die dzPrepBuild:
http://www.dummzeuch.de/delphi/dzprepbuild/englisch.html

(Hinweis: Das Projekt wurde auf sourceforge verlegt, weil berlios wurde, geschlossen werden, im letzten Jahr. http://sourceforge.net/projects/dzprepbuild/)