TJclFileVersionInfo

[kluckweb]

Hallo,

ich habe nun hier schon so oft was von der TJclFileVersionInfo gehört.
Wo finde ich denn bitte die Komponente dazu? Also ich meine in welchem Tabreiter?
Bei mir ist die Komponente nicht drin glaube ich.

Danke

[kluckweb]

Hallo,

ich würde meine Frage gerne etwas erweitern.

Ich habe nun schon diverse Varianten ausgetestet, die hier im DP genannt wurden, um die Versionsnummer meines Projektes auszulesen.
Leider ohne Erfolg.

Kann mir jemand eine funktionierende Möglichkeit für ein D7 Projekt nennen, um die Versionsnummer auszulesen und in einem Label anzeigen zu können?

Danke

[Luckie]

Was heißt hier "ohne Erfolg2? Solltes es mit einem Code-Beispiel Problem geben, wäre es sinnvoll dort in dem Thread nachzufragen.

Desweiteren kannst du innerhalb von 24 Stunden deine Beiträge noch editieren. Es besteht also keine Notwendigkeit innerhalb von 15 Minuten ein weiteres Posting in deinem Thread zu erstellen.

[marabu]

Hi,

hattest du diesen thread gefunden? Dateibeschreibung aus Resource auslesen

TJclFileVersionInfo ist vielleicht etwas irreführend - bei mir steckt das Zeugs in der Unit JvVersionInfo.

Grüße vom marabu

[kluckweb]

Hallo,

also ich rufe folgende Funktion auf:

Delphi-Quellcode:

function TUserLogin.GetVersion: TGetVersionsStr;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  VerInfo := nil;
  try
    VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
    try
      GetMem(VerInfo, VerInfoSize);
      GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
      VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
      with VerValue^ do
      begin
        Result.LongString := Format('%d.%d.%d.%d',
          [dwFileVersionMS shr 16,
          dwFileVersionMS and $FFFF,
          dwFileVersionLS shr 16,
          dwFileVersionLS and $FFFF]);

        Result.ShortString := Format('%d.%d',
          [dwFileVersionMS shr 16,
          dwFileVersionMS and $FFFF]);
      end;
    finally
      FreeMem(VerInfo, VerInfoSize);
    end;
  except
    Result.ShortString := #$31#$2E#$30; // 1.0
    Result.LongString := Result.ShortString;
  end;
end;

und kriege dann beim Compilieren die Meldungen:
"Unedfinierter Bezeichner: GetVersion"
"Unedfinierter Bezeichner: Result"

[kluckweb]

@marabu

Wie kriege ich die Versionsnummer denn mit der Funktion in ein Label??

Da werden bei mir Fehler über Fehler produziert.

[Luckie]

Hast du den Code so aus dem Forum kopiert? Hast du eine Klasse TUserInfo?

@kluckweb: Ich habe dir gerade eben schon mal gesagt, dass du deine Beiträge editieren kannst!

[kluckweb]

Ja, ich habe den Code aus dem Forum kopiert, den Marabu mir genannt hat.
Der Code funktioniert auch. Vielen Dank für den Hinweis.

Aber ich kriege den Wert noch nicht in ein Label.

Ich weiß, dass ich meine Beiträge editieren kann, aber so kann man besser nachverfolgen, was nacheinander gemacht wurde.
Daher erstelle ich acuh Antworten.

[marabu]

Das sollte doch eigentlich genügen:

Delphi-Quellcode:

procedure TUserLogin.FormCreate(Sende: TObject); 
begin
  // ...
  VersionLabel.Caption := GetVersion.ShortString;
end;

[Luckie]

Zitat:

Zitat von kluckweb

Ich weiß, dass ich meine Beiträge editieren kann, aber so kann man besser nachverfolgen, was nacheinander gemacht wurde.
Daher erstelle ich acuh Antworten.

Aber es ist einfach unnötig, wenn nach dir noch niemand geantwortet hat. So wird der Thread durch überflüssige Postings einfach unübersichtlich.