Automatische Generierung der Formulare bei Serviceanwendung verhindern

[t2000]

Hallo zusammen,

ich habe eine Windows (64bit) Serviceanwendung. Darin enthalten ist ein abgeleitetes Datamodule.
Also es gibt TMeinDatenmodul = class(TDataModule) und davon abgeleitet TMeinErweitertesDatenmodul = class(TMeinDatenmodul)
In der Unit MeinDatenmodul gibt es die globale Variable MeinModul : TMeinDatenmodul;
In der Unilt MeinErweitertesDatenmodul gibt es KEINE globae Variable.

Jetzt macht Delphi (Rio 10.3.1) im Quelltext der Serviceanwendung die Generierung von
Application.CreateForm(TMeinDatenmodul, MeinModul);
Application.CreateForm(TMeinService, MeinService);

Unter den Projektoptionen bei Formulare steht nichts!

Ich möchte nun natürlich, dass im Projektquelltext folgendes steht:
Application.CreateForm(TMeinErweitertesDatenmodul, MeinModul);

Also das auf die Variable MeinModul ein erweitertes Modul erzeugt wird.
Wenn ich das so von Hand ändere, klappt auch alles einwandfrei und der Service läuft wie gewünscht.

Nachdem ich dann aber weiterprogrammiert habe, überschreibt Delphi immer wieder den Projekt-Quelltext mit dem ursprünglichen: Application.CreateForm(TMeinDatenmodul, MeinModul);

Meistens merke ich es nicht sofort und wundere mich das die Anwendung nicht richtig läuft.
In "normalen" Programmen, kann ich das alles über die manuelle Erzeugung der Formulare machen, aber beim Service geht das offensichtlich nicht.

Weiß jemand was hier zu tun ist?

LG Thomas

[peterbelow]

Zitat von t2000:

Hallo zusammen,

ich habe eine Windows (64bit) Serviceanwendung. Darin enthalten ist ein abgeleitetes Datamodule.
Also es gibt TMeinDatenmodul = class(TDataModule) und davon abgeleitet TMeinErweitertesDatenmodul = class(TMeinDatenmodul)
In der Unit MeinDatenmodul gibt es die globale Variable MeinModul : TMeinDatenmodul;
In der Unilt MeinErweitertesDatenmodul gibt es KEINE globae Variable.

Jetzt macht Delphi (Rio 10.3.1) im Quelltext der Serviceanwendung die Generierung von
Application.CreateForm(TMeinDatenmodul, MeinModul);
Application.CreateForm(TMeinService, MeinService);

Unter den Projektoptionen bei Formulare steht nichts!

Das ist nicht normal. In einem Service wird normalerweise nur das Service-Objekt selbst per CreateForm erzeugt, alles andere muss man selbst im Kode erzeugen.
Hab's gerade mal ausprobiert (RIO 10.3.1), ein neues Serviceproject erzeugt, Platform auf Win64 gesetzt und gespeichert, ein TDatamodule dazugepackt und gespeichert, ein weiteres davon abgeleitet (per visual form inheritance) und gespeichert. Im DPR-File steht nur die CreateForm-Zeile für den Service selbst, keine für die beiden TDatamodules.

Lösch doch mal das DPROJ-File des Projektes (oder benenne es um), ebenso das DSK-File. Öffne das DPR-File in der IDE und setz die Projektoptionen neu. Danach funktioniert hoffentlich wieder alles wie es sollte.

[Uwe Raabe]

Man kann die IDE daran hindern, automatisch die Formulare und Datenmodule zu erzeugen. Die zugehörige Option findet man in 10.3 unter Tools - Optionen - Benutzeroberfläche- Formular-Designer - Optionen für die Modulerzeugung - Autom. Formulare & Datenmodule.

Allerdings könnte es dein spezielles Problem vielleicht gar nicht lösen, da du eine vom Standard abweichende Anforderung hast (Typ und Variablenname passen nicht zusammen):

Code:

Ich möchte nun natürlich, dass im Projektquelltext folgendes steht:
Application.CreateForm(TMeinErweitertesDatenmodul, MeinModul);

Musst du halt mal probieren.

[t2000]

Ich habe mal die autom. Generierung ausgeschaltet. Werde mal abwarten.
Danke erstmal.

[t2000]

Es ist gerade wieder passiert. Nach einigen "Erzeugen" und auch zwischnzeitlichen Neustart von Delphi wurde im Service-Quelltext die Create-Routiune automatisch überschrieben.
Trotz der neuen Einstellung, dass keine automatische Erzeugung gemacht werden soll.

Ich denke, ich werde irgendein Kontrollcode einbauen müssen, damit mir das nicht versehentlich passiert. Am besten etwas, dass schon beim Compilieren meckert und nicht erst beim Start.

[Uwe Raabe]

Ich vermute, es liegt an dieser Abnormität bezüglich Typname und Variablenname. Wenn du das irgendwie bereinigt kriegst, sollte das Problem behoben sein. Du könntest z.B. den Aufruf Application.CreateForm(TMeinErweitertesDatenmodul, MeinModul); in die Klasse TMeinErweitertesDatenmodul verlagern und mit einer globalen oder Klassen-Methode im DPR-Code aufrufen.

Die IDE hat so ihre eigenen Vorstellungen vom Code in der DPR und man sollte möglichst nicht dagegen arbeiten.