Post-Build-Ereignis mit einer Variable

[hzzm]

Da bin ich schon wieder mit der naechsten Nuss zu knacken:

Ich muesste in den Befehl des Post-Build-Ereignisses eine Variable einfliessen lassen.
Ich war gerade kurz auf dem Holzweg mit

Code:

SetEnvironmentVariable(PChar('ARB-Compat'), PChar(ARBCompat));

in FormCreate. Ist natuerlich Bloedsinn, ich brauch ARBCompat: String; natuerlich schon beim kompilieren natuerlich nach dem kompilieren wenn mein Programm gar nicht laeuft.

Ist das irgendwie moeglich?
Danke fuer's Lesen.

[jaenicke]

Woher kommt der Wert denn?

Du kannst im Postbuild ja auch Parameter an eine Batchdatei übergeben. Aber dafür brauchst du den Wert.

[hzzm]

Der Delphi-Code waere die erste Stelle, an der ich den Compat-String setze:

Code:

const
  ARBCompat: String = '_47';

Der fliesst dann die komplette Build-Kette mit durch - wenn ich ihn nur aus delphi nach CMD kriege. Inklusive Installer-Erstellung etc etc.

Zitat:

Zitat von jaenicke (Beitrag 1368596)

Du kannst im Postbuild ja auch Parameter an eine Batchdatei übergeben. Aber dafür brauchst du den Wert.

Wie geht das denn? Eine delphi const oder var (is in dem Fall ja Wurscht) als Parameter an meine .bat?


Edit:
OK, das kann ja kaum gehen. Die var/const existiert ja nur zur Laufzeit meines Programms.
Wie soll ich das denn machen... Oder ueberseh ich jetzt irgendwas komplett?

[jaenicke]

Das heißt das ist ein manuell gesetzter Wert, den du nicht im Buildevent und im Quelltext parallel pflegen möchtest?

Du könntest den in eine Datei im Repository schreiben und im Prebuild in eine .inc Datei schreiben inklusive const usw., sprich als Quelltext und diese mit $I includen. Dann könntest du den wert im Postbuild genauso aus der Datei auslesen und die Konstante würde normal einkompiliert.

[hzzm]

Kann ich das nicht umgekehrt zu meinem Holzweg machen?

Ich setze eine environment variable die jederzeit in delphi verfuegbar ist und lese die einfach am Anfang in meinen Compat String?

Wenn ich das richtig verstanden hab', kann ich env vars ja schon ganz einfach an den post-build cmd liefern...

[Uwe Raabe]

Zitat:

Zitat von hzzm (Beitrag 1368608)

Ich setze eine environment variable die jederzeit in delphi verfuegbar ist und lese die einfach am Anfang in meinen Compat String?

Läuft dein compiliertes Programm denn ausschließlich auf deinem Entwicklungsrechner?

Vielleicht trittst du besser mal einen Schritt zurück und schilderst das eigentliche Ziel dieser ganzen Aktion?

[hzzm]

Zitat:

Zitat von Uwe Raabe (Beitrag 1368610)

Läuft dein compiliertes Programm denn ausschließlich auf deinem Entwicklungsrechner?

Vielleicht trittst du besser mal einen Schritt zurück und schilderst das eigentliche Ziel dieser ganzen Aktion?

Ja verdammt, das ist mir spaeter auch aufgefallen. So geht's auch nicht.

Ich brauche den String in meinem Installer-Kompilierer (der ueber .bat post-build startet), weil ich diese Compat nach aussen reflektieren muss (Information) und in meinem delphi-code, weil ich hier tatsaechlich in Abhaengigkeit der Compat unterschiedliche Aktionen reisse.

Dann muss ich den String halt doch an 2 Stellen pflegen. Es fuehrt kein Weg herum.
Es ist kein Weltuntergang; waere halt eleganter gewesen, wenn es gegangen waere.

Oder eben die Version von jaenicke, bei der ich in der .bat noch die Datei im repo auslese, die ich auch im delphi code $I'e.

Danke fuer's mitdenken.

[himitsu]

Irgendwo ins Programm

Delphi-Quellcode:

{$INCLUDE 'version.inc'}

oder

Delphi-Quellcode:

{$I 'version.inc'}

und die version.inc

Delphi-Quellcode:

const meinstring = '132';

.

oder

Delphi-Quellcode:

const {$INCLUDE 'version.inc'}

und die version.inc

Delphi-Quellcode:

meinstring = '132';

oder

Delphi-Quellcode:

const {$INCLUDE 'version.inc'};

und die version.inc

Delphi-Quellcode:

meinstring = '132'

oder

Delphi-Quellcode:

const meinstring = {$INCLUDE 'version.inc'};

und die version.inc

Delphi-Quellcode:

'132'

.
Diese Stringkonstante lässt sich auch fast überall anders verwenden

Delphi-Quellcode:

var meinstring: string = {$INCLUDE 'version.inc'};

oder

Delphi-Quellcode:

MeineProcedure({$INCLUDE 'version.inc'});

.
Und auch mehrere Konstanten/Variablen wären möglich.

Und diese INC lässt sich sehr einfach neu generieren oder bearbeiten.
In unserem Erstellungsscript (FinalBuilder) lass ich eine INC mit mehreren Konstanten im FinaBuilder generieren und speichern.
Einfach aus einem Text mit mehreren FB-Variablen drin, worin die Versionsnummer, die ausgecheckte SVN-Revision und der Repository-Name (der letzte Ordnername aus dem SVN-Verzeichnis) womit man beim Kunden nachsehen kann welche Version bei ihm genau installiert ist, wenn es mal Probleme gibt. (wird im InfoDialog mit ausgegeben)

[Uwe Raabe]

Alternativ bietet sich auch eine String-Resource in einer RC-Datei an. Oder man bindet den String als

Delphi-Quellcode:

resourcestring

ein und extrahiert diesen dann z.B. mit Angus Johnson's ResourceHacker oder einem ähnlichen Tool.

[himitsu]

resourcestring klingt nett, aber blöd ist eben, dass man ihn suchen muß, er bei jedem Kompilieren einen anderen Index haben kann und man ihn nur über den unbekannten Index oder seinen Inhalt finden kann.

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1368655)

resourcestring klingt nett, aber blöd ist eben, dass man ihn suchen muß, er bei jedem Kompilieren einen anderen Index haben kann und man ihn nur über den unbekannten Index oder seinen Inhalt finden kann.

Wenn man allerdings dem Compiler ein -GD oder --drc mitgibt, dann findet man den

Delphi-Quellcode:

resourcestring

in der so erzeugten drc Datei unter dem Namen <unit>_<resourcename> auch im Klartext wieder. Spart den ResourceHacker und lässt sich z.B. über einen simplen Grep-Befehl extrahieren.

[hzzm]

Ich haette gerne

Code:

ARBCompat: String = '{$I ARBCompat.inc}';

weil ich in allem dahinter eigentlich nur den puren String-Inhalt brauche.
In batch regex replace und so wird einfach unnoetig komplex zu warten, ganz zu schweigen vom Drama in meinem Installer-Compiler.

Natuerlich funktionert das so nicht.
Gibt's irgendeinen schmutzigen Trick, durch den ich in der .inc wirklich nur den puren Inhalt _24 aufbewahren kann?

Ich habe es erfolglos so probiert:

Code:

ARBCompat: String = {$I Quote.inc}{$I ARBCompat.inc}{$I Quote.inc};

In Quote.inc ' oder ".
und bekomme mit ': Nicht abgeschlossener String und mit ": Ungueltiges Zeichen in Eingabedatei.

[nahpets]

Mein Delphi 7 kompiliert das

Delphi-Quellcode:

ARBCompat: String = {$I Quote.inc}{$I ARBCompat.inc}{$I Quote.inc};

, wenn die Datei Quote.inc nur ein ' enthält, also ein Byte groß ist.

Wenn sie jedoch hinter dem ' noch 'nen Zeilenumbruch enthält, geht das nichtmehr. Die Datei müsste dann mindestens 3 Byte groß sein.

[hzzm]

Ich hab' gerade erst im Forum User-Profil meine delphi ver eingestellt, sorry.

Bin auf Seattle, Quote.inc ist bei mir 1 Byte gross.
Weder mit ANSI-Kodierung noch mit UTF-8 ohne BOM-Kodierung von Quote.inc geht es bei mir.

[nahpets]

Die ARBCompat.inc darf am Ende keinen Zeilenumbruch enthalten, beim Inhalt _42 darf sie nur 3 Byte groß sein.

[hzzm]

Das ist der Fall. Kodierung beider Dateien UTF8 und ANSI probiert.
Quote.inc 1 Byte
ARBCompat.inc 3 Bytes

[himitsu]

Du musst ja nicht alles pur in der Console machen ... kleine Helferlein sind doch bestimmt erlaubt

Code:

WriteDelphiString abc "C:\...."

Delphi-Quellcode:

program WriteDelphiString;

{$APPTYPE CONSOLE}

uses SysUtils, IOUtils;

begin
  TFile.WriteAllText(ParamStr(2), QuotedStr(ParamStr(1)), TEncoding.Default);
end.

[hzzm]

Um mal meine letzte (meiner Meinung nach einfachste) Loesung des Problems zu Papier zu bringen:

In der ARBCompat.Inc:

Code:

'_24'

In der Post-Build .bat:
.Inc einlesen:

Code:

for /f %%a in ('more/e ^< "D:\My\Path\To\ARBCompat.inc"') do (
  if not defined line set "arbcompat=%%a"
)

Alle ' in Variable arbcompat durch nichts ersetzten:

Code:

set arbcompat=%arbcompat:'=%