Difference between revisions of "Show Application Title, Version, and Company/ru"

From Free Pascal wiki
Jump to navigationJump to search
 
(3 intermediate revisions by the same user not shown)
Line 13: Line 13:
 
* комплект приложения (если он есть) в plist. См. [[Mac Show Application Title, Version, and Company]] для получения дополнительной информации.
 
* комплект приложения (если он есть) в plist. См. [[Mac Show Application Title, Version, and Company]] для получения дополнительной информации.
  
== Implementations ==
+
== Реализации ==
 
=== FPC 3.0 ===
 
=== FPC 3.0 ===
Implementation in FPC 3.0.x using [[fcl-res]]: see [[http://wiki.lazarus.freepascal.org/User_Changes_3.0#TVersionInfo_.28fileinfo_unit.29_re-implemented_in_a_platform_independent_way| announcement in User Changes 3.0 ]]
+
Реализация в FPC 3.0.x с использованием [[fcl-res]]: см. [[http://wiki.lazarus.freepascal.org/User_Changes_3.0#TVersionInfo_.28fileinfo_unit.29_re-implemented_in_a_platform_independent_way| announcement in User Changes 3.0]]
  
The code below shows how to get executable info out of
+
В приведенном ниже коде показано, как получить информацию об исполняемых файлах из 
* .exe/.dll/.ocx files (Windows format)  
+
* .exe/.dll/.ocx (формат Windows) файлов
* Lazarus-compiled ELF executables (Linux)
+
* исполняемых файлов ELF, скомпилированных в Lazarus (Linux),
* Lazarus-compiled MACH-O executables (OSX)
+
* исполняемых файлов MACH-O, скомпилированных в Lazarus (OSX)
  
 
<syntaxhighlight lang="pascal">
 
<syntaxhighlight lang="pascal">
 
program printfileinfo;
 
program printfileinfo;
{ Displays file version info for
+
{Отображает информацию о версии файла для
- Windows PE executables
+
- исполняемых файлов Windows PE  
- Linux ELF executables (compiled by Lazarus)
+
- исполняемых Linux ELF (скомпилированных в Lazarus)
- OSX MACH-O executables (compiled by Lazarus)
+
- исполняемых файлов MACH-O OSX (скомпилированных в Lazarus)
Runs on Windows, Linux, OSX...)
+
Запускается на Windows, Linux, OSX...
 
}
 
}
  
Line 38: Line 38:
 
   {$ENDIF}{$ENDIF}
 
   {$ENDIF}{$ENDIF}
 
   Classes,sysutils
 
   Classes,sysutils
   // FPC 3.0 fileinfo reads exe resources as long as you register the appropriate units
+
   // FPC 3.0 fileinfo читает ресурсы exe, пока вы регистрируете соответствующие модули
 
   , fileinfo
 
   , fileinfo
   , winpeimagereader {need this for reading exe info}
+
   , winpeimagereader {это нужно для чтения информации exe}
   , elfreader {needed for reading ELF executables}
+
   , elfreader {необходимо для чтения исполняемых файлов ELF}
   , machoreader {needed for reading MACH-O executables}
+
   , machoreader {необходимо для чтения исполняемых файлов MACH-O}
 
   ;
 
   ;
  
Line 68: Line 68:
 
</syntaxhighlight>
 
</syntaxhighlight>
  
=== Implementations using legacy FPC 2.6.x ===
+
=== Реализации с использованием устаревшего FPC 2.6.x ===
Uses [[fcl-res]]; contribution via the mailing list: [http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20100723/8db6b97e/attachment.ksh]
+
Использует [[fcl-res]]; вклад через список рассылки: [http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20100723/8db6b97e/attachment.ksh]
  
Use this like
+
Используйте это как
 
<syntaxhighlight lang="pascal">
 
<syntaxhighlight lang="pascal">
 
uses
 
uses
Line 78: Line 78:
 
  FUNCTION resourceVersionInfo: STRING;
 
  FUNCTION resourceVersionInfo: STRING;
 
   
 
   
  (* Unlike most of AboutText (below), this takes significant activity at run-    *)
+
  (* В отличие от большинства AboutText (см.ниже), это требует значительных усилий  *)
  (* time to extract version/release/build numbers from resource information      *)
+
  (* во время выполнения программы для извлечения номеров версий/выпусков/сборок из *)
  (* appended to the binary.                                                     *)
+
  (* информации о ресурсах, добавленной в двоичный файл.                           *)
 
   
 
   
 
  VAR    Stream: TResourceStream;
 
  VAR    Stream: TResourceStream;
Line 90: Line 90:
 
   TRY
 
   TRY
 
   
 
   
  (* This raises an exception if version info has not been incorporated into the  *)
+
  (* Это вызывет исключение, если информация о версии не была включена в двоичный *)
  (* binary (Lazarus Project -> Project Options -> Version Info -> Version       *)
+
  (* файл (Lazarus Project -> Project Options -> Version Info -> Version           *)
  (* numbering).                                                                 *)
+
  (* numbering).                                                                   *)
+
 
 
     Stream:= TResourceStream.CreateFromID(HINSTANCE, 1, PChar(RT_VERSION));
 
     Stream:= TResourceStream.CreateFromID(HINSTANCE, 1, PChar(RT_VERSION));
 
     TRY
 
     TRY
Line 115: Line 115:
  
  
Using vinfo: [http://forum.lazarus.freepascal.org/index.php?topic=12435.0] and [http://forum.lazarus.freepascal.org/index.php?topic=13957.0]
+
Использоаавние vinfo: [http://forum.lazarus.freepascal.org/index.php?topic=12435.0 здесь] и [http://forum.lazarus.freepascal.org/index.php?topic=13957.0 здесь]
 
 
 
 
  
== Related tips ==
+
== Советы по теме ==
=== SVN/Git/Hg/Mercurial revision ===
+
=== Ревизии SVN/Git/Hg/Mercurial ===
Use $(lazarusdir)/tools/svn2revisioninc to get revision number (from a subversion, git or mercurial repository) into a file revision.inc, e.g. something like:
+
Используйте <code>$(lazarusdir)/tools/svn2revisioninc</code> для получения номера ревизии (из репозиториев subversion, git или mercurial) в файле revision.inc, например что-то вроде:
 
<syntaxhighlight lang="pascal">
 
<syntaxhighlight lang="pascal">
// Created by Svn2RevisionInc
+
// Создан при помощи Svn2RevisionInc
 
const RevisionStr = '43594';
 
const RevisionStr = '43594';
 
</syntaxhighlight>
 
</syntaxhighlight>
  
== Unix-only hacks ==
+
== Хаки только для Unix-систем ==
  
These work with Linux on various platforms, and probably with Solaris provided that the GNU-derived utilities are installed.
+
Они работают с Linux на различных платформах и, вероятно, с Solaris при условии, что установлены утилиты, производные от GNU.
  
=== Getting Subversion revision information as a program-accessible string ===
+
=== Получение информации о версии Subversion в виде строки, доступной для программы ===
 
 
Put this into Project options -> Compilation -> Execute before -> Command:
 
  
 +
Вставьте это в Project options -> Compilation -> Execute before -> Command:
 +
<syntaxhighlight lang="bash">
 
  /bin/sh -c "echo -n C`svnversion -n`C |tr A-G %-+ >project_svnrevision.inc"
 
  /bin/sh -c "echo -n C`svnversion -n`C |tr A-G %-+ >project_svnrevision.inc"
 +
</syntaxhighlight>
  
 
Note quote and backtick positions. The tr is converting C into another layer of quotes which is necessary for things to work as required.
 
Note quote and backtick positions. The tr is converting C into another layer of quotes which is necessary for things to work as required.
 +
Обратите внимание на кавычки и обратные кавычки. <code>Tr</code> преобразует <code>C</code> в другой уровень цитат, который необходим для того, чтобы все работало должным образом.
  
Put this into the program:
+
Поместите это в программу:
 
<syntaxhighlight lang="pascal">
 
<syntaxhighlight lang="pascal">
 
   (*$IFDEF UNIX  *)
 
   (*$IFDEF UNIX  *)
Line 148: Line 148:
 
</syntaxhighlight>
 
</syntaxhighlight>
  
Note that that has to be a string, since the revision number will have a non-numeric suffix if the project has been updated since it was last committed.
+
Обратите внимание, что это должна быть строка, так как номер версии будет иметь нечисловой суффикс, если проект был обновлен с момента его последней фиксации.
  
=== Renaming the final executable to include platform and timestamp ===
+
=== Переименование окончательного исполняемого файла, чтобы включить в его название платформу и метку времени ===
 
 
Put this into Project options -> Paths -> Unit output directory:
 
  
 +
Вставьте это в Project options -> Paths -> Unit output directory:
 +
<syntaxhighlight lang="bash">
 
  lib/$(TargetCPU)-$(TargetOS)
 
  lib/$(TargetCPU)-$(TargetOS)
 
+
</syntaxhighlight>
Put this into Project options -> Paths -> Target file name:
+
Вставьте это в Project options -> Paths -> Target file name:
 
+
<syntaxhighlight lang="bash">
 
  UnyokedBackend-$(TargetCPU)-$(TargetOS)-$(LCLWidgetType)
 
  UnyokedBackend-$(TargetCPU)-$(TargetOS)-$(LCLWidgetType)
 +
</syntaxhighlight>
 +
Убедитесь, что установлена галочка "Apply conventions"(Применить соглашения). Это может немного отличаться в зависимости от версии IDE и компилятора/компоновщика.
  
Make sure that "Apply conventions" is ticked (checked). This might vary slightly according to IDE and compiler/linker versions.
+
Вставьте это в Project options -> Compilation -> Execute after -> Command:
 
 
Put this into Project options -> Compilation -> Execute after -> Command:
 
 
<syntaxhighlight lang="bash">
 
<syntaxhighlight lang="bash">
 
  /bin/sh -c "mv libunyokedbackend-$(TargetCPU)-$(TargetOS)-$(LCLWidgetType).so UnyokedBackend-$(TargetCPU)-$(TargetOS)-$(LCLWidgetType).`date +%F.%R`.so"
 
  /bin/sh -c "mv libunyokedbackend-$(TargetCPU)-$(TargetOS)-$(LCLWidgetType).so UnyokedBackend-$(TargetCPU)-$(TargetOS)-$(LCLWidgetType).`date +%F.%R`.so"
 
</syntaxhighlight>
 
</syntaxhighlight>
That should be a single line. Note quote and backtick positions.
+
Это должна быть одна строка. Обратите внимание на кавычки и обратные кавычки.
  
 
[[Category:macOS]]
 
[[Category:macOS]]

Latest revision as of 13:41, 18 August 2020

English (en) русский (ru)

Обзор

Windows

С самых ранних версий Microsoft Windows имела возможность хранить информацию о версии и т.д. в исполняемом файле. Поддержка этого была добавлена в Delphi в районе v3 и частично работала в Lazarus 0.9.24.

Linux

В формате файла ELF нет неявных положений о номерах версий, авторских правах и так далее, но Lazarus хранит это в разделах ресурсов. Чтение информации во время исполнения программы зависит от модулей FPC, ниже - некоторая полезная информация.

macOS и iOS

Для macOS информация о версии файла Lazarus может храниться в двух местах:

  • исполняемый файл MACH-O (например, в Windows, Linux); см. ниже
  • комплект приложения (если он есть) в plist. См. Mac Show Application Title, Version, and Company для получения дополнительной информации.

Реализации

FPC 3.0

Реализация в FPC 3.0.x с использованием fcl-res: см. [announcement in User Changes 3.0]

В приведенном ниже коде показано, как получить информацию об исполняемых файлах из

  • .exe/.dll/.ocx (формат Windows) файлов
  • исполняемых файлов ELF, скомпилированных в Lazarus (Linux),
  • исполняемых файлов MACH-O, скомпилированных в Lazarus (OSX)
program printfileinfo;
{Отображает информацию о версии файла для 
- исполняемых файлов Windows PE 
- исполняемых Linux ELF (скомпилированных в Lazarus)
- исполняемых файлов MACH-O OSX (скомпилированных в Lazarus)
Запускается на Windows, Linux, OSX...
}

{$mode objfpc}{$H+}
{$ifdef mswindows}{$apptype console}{$endif}
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes,sysutils
  // FPC 3.0 fileinfo читает ресурсы exe, пока вы регистрируете соответствующие модули
  , fileinfo
  , winpeimagereader {это нужно для чтения информации exe}
  , elfreader {необходимо для чтения исполняемых файлов ELF}
  , machoreader {необходимо для чтения исполняемых файлов MACH-O}
  ;

var
  FileVerInfo: TFileVersionInfo;

{$R *.res}

begin
  FileVerInfo:=TFileVersionInfo.Create(nil);
  try
    FileVerInfo.ReadFileInfo;
    writeln('Company: ',FileVerInfo.VersionStrings.Values['CompanyName']);
    writeln('File description: ',FileVerInfo.VersionStrings.Values['FileDescription']);
    writeln('File version: ',FileVerInfo.VersionStrings.Values['FileVersion']);
    writeln('Internal name: ',FileVerInfo.VersionStrings.Values['InternalName']);
    writeln('Legal copyright: ',FileVerInfo.VersionStrings.Values['LegalCopyright']);
    writeln('Original filename: ',FileVerInfo.VersionStrings.Values['OriginalFilename']);
    writeln('Product name: ',FileVerInfo.VersionStrings.Values['ProductName']);
    writeln('Product version: ',FileVerInfo.VersionStrings.Values['ProductVersion']);
  finally
    FileVerInfo.Free;
  end;
end.

Реализации с использованием устаревшего FPC 2.6.x

Использует fcl-res; вклад через список рассылки: [1]

Используйте это как

uses
  resource, versiontypes, versionresource;

 FUNCTION resourceVersionInfo: STRING;
 
 (* В отличие от большинства AboutText (см.ниже), это требует значительных усилий  *)
 (* во время выполнения программы для извлечения номеров версий/выпусков/сборок из *)
 (* информации о ресурсах, добавленной в двоичный файл.                            *)
 
 VAR     Stream: TResourceStream;
         vr: TVersionResource;
         fi: TVersionFixedInfo;
 
 BEGIN
   RESULT:= '';
   TRY
 
 (* Это вызывет исключение, если информация о версии не была включена в двоичный *)
 (* файл (Lazarus Project -> Project Options -> Version Info -> Version           *)
 (* numbering).                                                                   *)

     Stream:= TResourceStream.CreateFromID(HINSTANCE, 1, PChar(RT_VERSION));
     TRY
       vr:= TVersionResource.Create;
       TRY
         vr.SetCustomRawDataStream(Stream);
         fi:= vr.FixedInfo;
         RESULT := 'Version ' + IntToStr(fi.FileVersion[0]) + '.' + IntToStr(fi.FileVersion[1]) +
                ' release ' + IntToStr(fi.FileVersion[2]) + ' build ' + IntToStr(fi.FileVersion[3]) + eol;
         vr.SetCustomRawDataStream(nil)
       FINALLY
         vr.Free
       END
     FINALLY
       Stream.Free
     END
   EXCEPT
   END
 END { resourceVersionInfo } ;


Использоаавние vinfo: здесь и здесь

Советы по теме

Ревизии SVN/Git/Hg/Mercurial

Используйте $(lazarusdir)/tools/svn2revisioninc для получения номера ревизии (из репозиториев subversion, git или mercurial) в файле revision.inc, например что-то вроде:

// Создан при помощи Svn2RevisionInc
const RevisionStr = '43594';

Хаки только для Unix-систем

Они работают с Linux на различных платформах и, вероятно, с Solaris при условии, что установлены утилиты, производные от GNU.

Получение информации о версии Subversion в виде строки, доступной для программы

Вставьте это в Project options -> Compilation -> Execute before -> Command:

 /bin/sh -c "echo -n C`svnversion -n`C |tr A-G %-+ >project_svnrevision.inc"

Note quote and backtick positions. The tr is converting C into another layer of quotes which is necessary for things to work as required. Обратите внимание на кавычки и обратные кавычки. Tr преобразует C в другой уровень цитат, который необходим для того, чтобы все работало должным образом.

Поместите это в программу:

   (*$IFDEF UNIX   *)
           rev= (*$I project_svnrevision.inc *) ;
   (*$ELSE         *)
           rev= 'unimplemented';
   (*$ENDIF        *)

Обратите внимание, что это должна быть строка, так как номер версии будет иметь нечисловой суффикс, если проект был обновлен с момента его последней фиксации.

Переименование окончательного исполняемого файла, чтобы включить в его название платформу и метку времени

Вставьте это в Project options -> Paths -> Unit output directory:

 lib/$(TargetCPU)-$(TargetOS)

Вставьте это в Project options -> Paths -> Target file name:

 UnyokedBackend-$(TargetCPU)-$(TargetOS)-$(LCLWidgetType)

Убедитесь, что установлена галочка "Apply conventions"(Применить соглашения). Это может немного отличаться в зависимости от версии IDE и компилятора/компоновщика.

Вставьте это в Project options -> Compilation -> Execute after -> Command:

 /bin/sh -c "mv libunyokedbackend-$(TargetCPU)-$(TargetOS)-$(LCLWidgetType).so UnyokedBackend-$(TargetCPU)-$(TargetOS)-$(LCLWidgetType).`date +%F.%R`.so"

Это должна быть одна строка. Обратите внимание на кавычки и обратные кавычки.