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

[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).

[juergen]

Hallo Uwe,

erst einmal vielen Dank für dein Geduld!
Leider bekomme ich es mit
( Project.ProjectOptions AS IOTAProjectOptionsConfigurations ).ActiveConfiguration.Value[sVerInfo_Build { uses CommonOptionStrs }] := IntToStr(lw_my_Build_Number); nicht hin.
Es kommt die Fehlermeldung:

Zitat:

[Fataler Fehler] Abstrakter Fehler

Hast du da noch eine Idee?

[juergen]

Hallo,

der OTAPI Expert zum Setzen der Build-Number nach meinem Schema funktioniert nun (und noch weitere Sachen )! Siehe Post #13, das ist dort korrekt.
Ich hatte an einer anderen Stellen einen Fehler eingebaut, den ich nicht auf Anhieb gefunden hatte.
Vorsichtshalber habe ich auch eigene Try-Except-Meldungen eingebaut, damit es im Falle eines Fehlers sofort ersichtlich ist, dass der Fehler aus dem OTAPI-Expert kommt und nicht aus dem eigentlichen Projekt.

Allen ein schönes Wochenende!

[juergen]

Hallo zusammen,

nun habe ich noch ein Phänomen mit dem OTAPI-Experten.
- Die Build-Nr. wird *immer* mit dem OTAPI-Experten in den Projektoptionen gesetzt! Fein!
- Bei den meisten Projekten wird die Build-Nr. auch in die Exe übernommen. Aber eben nicht bei allen Projekten (gefühlt bei größeren Projekten nicht), obwohl die richtige Build-Nr. ja *immer* in den Projektoptionen steht!
- Erst wenn ich bei den Projektoptionen dort explizit auf den Button "Speichern" gehe, wird die Build-Nr. auch in die Exe übernommen.

Ich habe schon einiges versucht aber nichts hatte geholfen.

Delphi-Quellcode:

PROCEDURE TBeforeCompile.BeforeCompile( CONST Project: IOTAProject; IsCodeInsight: Boolean; VAR Cancel: Boolean );
VAR
  ls_my_Build_Number: STRING;
BEGIN
  IF NOT IsCodeInsight THEN
  BEGIN
    TRY
      ls_my_Build_Number := FormatDateTime( 'YY', Now ) + RightStr( '0' + IntToStr( WeekOfTheYear( Now ) ), 2 ) + IntToStr( DayOfTheWeek( Now ) );
      ( Project.ProjectOptions AS IOTAProjectOptionsConfigurations ).ActiveConfiguration.AsInteger[sVerInfo_Build { uses CommonOptionStrs } ] :=
        StrToIntDef( ls_my_Build_Number, 99999 );

      sleep( 2000 );{ TODO 2 -oJS -cwichtig : Test, muss entfernt werden }
      Project.Refresh (True); { TODO 2 -oJS -cwichtig : Test, muss entfernt werden }
      Project.ProjectOptions.ModifiedState := True;
      sleep( 2000 );{ TODO 2 -oJS -cwichtig : Test, muss entfernt werden }
    EXCEPT
      ShowMessage( 'Dieser Fehler kommt aus dem OTAPI-Experten für das Erstellen der Build-Nr. in den Projektoptionen!' );
    END;
  END;
END;

Hat jemand hier noch einen Ansatz woran das liegen könnte?

Vielen Dank schon mal vorab!

[Delphi.Narium]

Hab' mir was ähnliches für Delphi 7 gebaut.

Dort muss zusätzlich (zum eigene Beforecompileexperten) in den Projektoptionen Versionsinfo in das Projekt übernehmen und Buildnummer automatisch erhöhen aktiviert sein.

Wie das bei aktuellen Delphis aussieht, weiß ich nicht.

[juergen]

Danke für den Hinweis, Delphi.Narium

Das hatte ich schon alles ausprobiert. Leider kein Erfolg, egal was ich unter "Optionen für Build-Nr." festlege. "Versionsinformationen in das Projekt übernehmen" ist angehakt.