[Gelöst]: Versionsinformationen auslesen

[kralle]

Hallo,

ich wollte wie unter Delphi die Informationen die unter "Projekteinstellungen/Versionsinformationen" vorliegen zur Laufzeit ausgeben und fand folgende Codezeilen:

Code: Alles auswählen

unit vinfo;
 
{$mode objfpc}
 
interface
 
uses
  Classes, SysUtils, resource, versiontypes, versionresource;
 
type
  { TVersionInfo }
 
  TVersionInfo = class
  private
    FVersResource: TVersionResource;
    function GetFixedInfo: TVersionFixedInfo;
    function GetStringFileInfo: TVersionStringFileInfo;
    function GetVarFileInfo: TVersionVarFileInfo;
  public
    constructor Create;
    destructor Destroy; override;
 
    procedure Load(Instance: THandle);
    property FixedInfo: TVersionFixedInfo read GetFixedInfo;
    property StringFileInfo: TVersionStringFileInfo read GetStringFileInfo;
    property VarFileInfo: TVersionVarFileInfo read GetVarFileInfo;
  end;
 
implementation
 
{ TVersionInfo }
 
function TVersionInfo.GetFixedInfo: TVersionFixedInfo;
begin
  Result := FVersResource.FixedInfo;
end;
 
function TVersionInfo.GetStringFileInfo: TVersionStringFileInfo;
begin
  Result := FVersResource.StringFileInfo;
end;
 
function TVersionInfo.GetVarFileInfo: TVersionVarFileInfo;
begin
  Result := FVersResource.VarFileInfo;
end;
 
constructor TVersionInfo.Create;
begin
  inherited Create;
  FVersResource := TVersionResource.Create;
end;
 
destructor TVersionInfo.Destroy;
begin
  FVersResource.Free;
  inherited Destroy;
end;
 
procedure TVersionInfo.Load(Instance: THandle);
var
  Stream: TResourceStream;
begin
  Stream := TResourceStream.CreateFromID(Instance, 1, PChar(RT_VERSION));
  try
    FVersResource.SetCustomRawDataStream(Stream);
    // access some property to load from the stream
    FVersResource.FixedInfo;
    // clear the stream
    FVersResource.SetCustomRawDataStream(nil);
  finally
    Stream.Free;
  end;
end;
 
end.

und

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
 
   function ProductVersionToString(PV: TFileProductVersion): String;
   begin
     Result := Format('%d.%d.%d.%d', [PV[0],PV[1],PV[2],PV[3]])
   end;
 
var
   Info: TVersionInfo;
begin
   Info := TVersionInfo.Create;
   Info.Load(HINSTANCE);
   ShowMessage(ProductVersionToString(Info.FixedInfo.FileVersion));
   ShowMessage(ProductVersionToString(Info.FixedInfo.ProductVersion));
   Info.Free;
end;

Aber, wenn ich das Programm starte, werden diese Units nicht gefunden:

resource, versiontypes, versionresource;

Warum?

Lazarus-Version 9.28.2
OS: Windows XP SP3

MfG
Heiko Rompel

[Maik81ftl]

Hmmm, hab mal bei mir gesucht, gennerell sind die daten bei Lazarus vorhanden, daran kann's nicht liegen, da sowas aber auch mir schon vorgekommen ist, gehe ich mal davon aus, das die Phade zu den Units nicht richtig eingestellt sind.

[kralle]

Hallo,

Hmmm, hab mal bei mir gesucht, gennerell sind die daten bei Lazarus vorhanden, daran kann's nicht liegen, da sowas aber auch mir schon vorgekommen ist, gehe ich mal davon aus, das die Phade zu den Units nicht richtig eingestellt sind.

Aber wie kann das passieren? Ich habe Lazarus einfach installiert ohne an irgendwelchen Pfaden zu spielen.

Gruß Heiko

[Maik81ftl]

jopp! genau das is die Tücke, welche i bei Lazarus unter XP auch schon einige male erleben durfte kann aber sein, das das denne direkt am rechner liegt.

sind die sogenannten Feinheiten eines Systemes.

deshalb bin ich unter anderem auch zu Ubuntu gewechselt.

[MAC]

hast du die units mal kopiert und einfach in das verzeichnis deines projektes gelegt ?
könnte eventuell auch reichen.

[Socke]

Aber wie kann das passieren? Ich habe Lazarus einfach installiert ohne an irgendwelchen Pfaden zu spielen.

Was steht denn in der vollständigen Compilerausgabe drinnen (Rechtsklick in das Nachrichtenfenster -> "Alles und verstecktes kopieren")? Wenn er die Datei findet, aber anmeckert (dass sie neu kompiliert werden müsse), ist entweder beim Packen der Installtionsdateien etwas schief gelaufen (nicht deine Schuld, aber dein Problem ) oder die Datei wurde nachträglich verändert.

[kralle]

Hallo,

Aber wie kann das passieren? Ich habe Lazarus einfach installiert ohne an irgendwelchen Pfaden zu spielen.

Was steht denn in der vollständigen Compilerausgabe drinnen (Rechtsklick in das Nachrichtenfenster -> "Alles und verstecktes kopieren")? Wenn er die Datei findet, aber anmeckert (dass sie neu kompiliert werden müsse), ist entweder beim Packen der Installtionsdateien etwas schief gelaufen (nicht deine Schuld, aber dein Problem ) oder die Datei wurde nachträglich verändert.

Hint: Start of reading config file C:\Programme\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Hint: End of reading config file C:\Programme\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.4 [2009/10/25] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling project1.lpr
Compiling unit1.pas
Compiling vinfo.pas
vinfo.pas(8,22) Fatal: Can't find unit resource used by vinfo

Dann werde ich jetzt mal die Dateien suchen und schauen, das ich den Suchpfad erweitere bzw. die Dateien ins Projektverzeichnis kopieren.

Gruß Heiko

[kralle]

Hallo,

hast du die units mal kopiert und einfach in das verzeichnis deines projektes gelegt ?
könnte eventuell auch reichen.

Also, die Windows-Suche hat die entsprechenden *.pas Dateien nicht gefunden.
Kann es sein das die im Windows-Installationspaket nicht enthalten sind?

Gruß Heiko

[af0815]

Also, die Windows-Suche hat die entsprechenden *.pas Dateien nicht gefunden.

kann auch eine *.pp oder auch *.ppu Datei sein.

[Socke]

Kann es sein das die im Windows-Installationspaket nicht enthalten sind?

Da fällt mir gerade so ein: Warum verwendest du unter Windows nicht die Windows-API?

[MAC]

Kann es sein das die im Windows-Installationspaket nicht enthalten sind?

Da fällt mir gerade so ein: Warum verwendest du unter Windows nicht die Windows-API?

Wieso sollte er sie benutzen , ist es nicht besser wenn man davon unabhängig ist damit das einfacher portierbar ist ?

[Socke]

Wieso sollte er sie benutzen , ist es nicht besser wenn man davon unabhängig ist damit das einfacher portierbar ist ?

Damit wir weniger Arbeit damit haben, die Suchpfade der Compiler-Installation zu raten .

@kralle: such dir mal bitte die Compiler-Optionen heraus, damit der FPC alle Pfade angibt, die er nach bestimmten Dateien durchsucht. Die gibst du dann bei deinem Projekt in den Compiler-Einstellungen an und postest nochmal die Ausgabe.

[shokwave]

Wieso sollte er sie benutzen , ist es nicht besser wenn man davon unabhängig ist damit das einfacher portierbar ist ?

Ist das nicht eh Win-Only?

@Kralle: Ich benutze dafür die unit FileInfo.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var myFileInfo:TFileVersionInfo;
begin
  myFileInfo:=TFileVersionInfo.Create(nil);
  myFileInfo.fileName:='C:\Windows\System32\Explorer.exe';
  showMessage(myFileinfo.getVersionSetting('CompanyName'));
  myFileInfo.Free;
end;

Die Namen der Versionsinfos findet man in der Unit:

Code: Alles auswählen

...
    ts.add('CompanyName');
    ts.add('FileDescription');
    ts.add('FileVersion');
    ts.add('InternalName');
    ts.add('LegalCopyright');
    ts.add('OriginalFilename');
    ts.add('ProductName');
    ts.add('ProductVersion');
...

[kralle]

Hallo,

Also, die Windows-Suche hat die entsprechenden *.pas Dateien nicht gefunden.

kann auch eine *.pp oder auch *.ppu Datei sein.

Ich habe jetzt mal Lazarus neu installiert.
Lazarus Pfad ist jetzt: c:\lazarus
FPC-Quelltextverzeichnis: C:\lazarus\fpc\2.2.4\source\

Die Dateien die ich benötige liegen in: C:\lazarus\fpc\2.2.4\source\packages\fv\src\resource.pas
werden da aber anscheinend nicht gefunden.

Gruß Heiko

[kralle]

Moin,

Also, die Windows-Suche hat die entsprechenden *.pas Dateien nicht gefunden.

kann auch eine *.pp oder auch *.ppu Datei sein.

Ich suchte nach .* und nicht nach .pas .

Gruß Heiko