Projekt -> Optionen: Build-Nr. autom. setzen anhand eines Schemas

[Uwe Raabe]

Zitat von Delphi.Narium:

Mit einem BeforeCompileExperten für die IDE lässt sich das mit Sicherheit machen.

Ein neues Plugin für die IDE rechne ich jetzt nicht wirklich zu den Bordmitteln. Aber ja, mit der OTAPI lässt sich sowas wohl realisieren.

[juergen]

Hallo,

so, ich habe den spannenden Ansatz von Delphi.Narium versucht umzusetzen.

Delphi-Quellcode:

PROCEDURE TBeforeCompile.BeforeCompile( CONST Project: IOTAProject; IsCodeInsight: Boolean; VAR Cancel: Boolean );
VAR
  // sl: TStringList;
  lw_my_Build_Number: Word;
BEGIN
  IF NOT IsCodeInsight THEN
  BEGIN
    lw_my_Build_Number := StrToIntDef( FormatDateTime( 'YY', Now ) + RightStr( '0' + IntToStr( WeekOfTheYear( Now ) ), 2 ) + IntToStr( DayOfTheWeek( Now ) ), 11111 );
    Project.ProjectOptions.Values['Build'] := lw_my_Build_Number;
    Project.ProjectOptions.ModifiedState := True;

    ShowMessage( 'Before_Compile_erfolgreich    ' + IntToStr( lw_my_Build_Number ) );
  END;
END;

Package installiert. Alles OK.

Wenn ich jetzt ein Projekt compiliere, schlägt auch die Message "Before_Compile_erfolgreich 21404" auf! Bis hierhin sieht für mich also alles in Ordnung aus.
Leider steht in der Build-Nummer nicht mein Wert, sondern noch der zu vorige, alte Wert.

Hat da noch jemand eine Idee warum das Setzen der Build-Number nicht funktioniert?

[Uwe Raabe]

Zitat von juergen:

Hat da noch jemand eine Idee warum das Setzen der Build-Number nicht funktioniert?

Ja. ProjectOptions ist eine Sammlung aller Optionen des gesamten Platform/Konfigurationsbaums - es gibt also mehrere Einträge für jeden Values[<Name>], auf die man mit diesem Ansatz nicht herankommt.

Du kannst aber mit (Project.ProjectOptions as IOTAProjectOptionsConfigurations).ActiveConfiguration auf die richtigen Werte zugreifen.

[juergen]

Vielen Dank, Uwe!
Ich hatte es nun probiert mit ( Project.ProjectOptions AS IOTAProjectOptionsConfigurations ).ActiveConfiguration.SetValues( 'VerInfo_Build', s ); Hab aber nicht verstanden, warum SetValue() als 2. Parameter ein TString erwartet. Ich hätte eher gedacht ein String oder Word.

Ich musste nun aber auch feststellen, dass wenn in diesem OTAPI-Experten ein Fehler auftritt, es dann richtig "kracht" und es wird sehr schwer für mich diesen Fehler dann im Projekt zu finden. (Abstrakter Fehler)

Daher werde ich wohl morgen eher hoika's Vorschlag folgen.

Vielen Dank nochmal an alle!

[jaenicke]

Zitat von juergen:

Ich musste nun aber auch feststellen, dass wenn in diesem OTAPI-Experten ein Fehler auftritt, es dann richtig "kracht" und es wird sehr schwer für mich diesen Fehler dann im Projekt zu finden. (Abstrakter Fehler)

Dass du mit einer zweiten Instanz von Delphi deinen Experten debuggen kannst, weißt du?

[juergen]

Zitat:

Dass du mit einer zweiten Instanz von Delphi deinen Experten debuggen kannst, weißt du?

Das wusste ich nicht. Danke für den Hinweis.

Ich bekomme es aber leider nicht hin über SetValues() die Build-Nummer zu setzen.
( Project.ProjectOptions AS IOTAProjectOptionsConfigurations ).ActiveConfiguration.SetValues( 'VerInfo_Build', s ) Ich bin mir ziemlich sicher, dass ich SetValues() falsch anwende/ verstehe.
Ich finde aber auch nichts zum Nachlesen.

[Uwe Raabe]

SetValues ist für Properties gedacht, die eine Stringlist repräsentieren. In deinem Fall solltest du Value[sVerInfo_Build] oder AsInteger[sVerInfo_Build] zuweisen (die Stringkonstanten stehen in CommonOptionStrs).