DFM-Datei automatisch erstellen und zur Laufzeit laden?

[BerTa]

Hallo,

ich lege zur Zeit eine grafische Oberfläche auf eine Cobol-Anwendung mit ca. 2000 Text-Masken. Dazu habe ich einen Generator geschrieben, der mir aus den Masken SQL-Scripts erzeugt, mit denen Labels, Edit-Felder und Buttons mit deren Größe und Position usw. in einer MySql-Datenbank hinterlegt werden. Zur Laufzeit werden dann, je nach Cobol-Programm, die entsprechenden Forms dynamisch erzeugt. Das funktioniert zwar, ist aber je nach Rechner und Netzgeschwindigkeit manchmal ein bischen langsam. Deshalb meine Frage: Kann man zur Design-Zeit eine DFM-Datei automatisch erzeugen, aus der Delphi zur Laufzeit die entsprechende Form darstellt?

Vielen Dank für eine evtl. schnelle Hilfe.

Gruss, Börni

[Bernhard Geyer]

Zitat von BerTa:

Hallo,

ich lege zur Zeit eine grafische Oberfläche auf eine Cobol-Anwendung mit ca. 2000 Text-Masken. Dazu habe ich einen Generator geschrieben, der mir aus den Masken SQL-Scripts erzeugt, mit denen Labels, Edit-Felder und Buttons mit deren Größe und Position usw. in einer MySql-Datenbank hinterlegt werden. Zur Laufzeit werden dann, je nach Cobol-Programm, die entsprechenden Forms dynamisch erzeugt. Das funktioniert zwar, ist aber je nach Rechner und Netzgeschwindigkeit manchmal ein bischen langsam. Deshalb meine Frage: Kann man zur Design-Zeit eine DFM-Datei automatisch erzeugen, aus der Delphi zur Laufzeit die entsprechende Form darstellt?

Vielen Dank für eine evtl. schnelle Hilfe.

Gruss, Börni

Du brachst keine DFM-Dateien. Einfach die Controls dynamisch erzeugen.
Das folgende Beispiel erzeugt ein Edit-Feld an der Position 100,100 auf einem Formular:

Delphi-Quellcode:

procedur Button1Click(Sender: TObject);
var
  myEdit: TEdit;
begin
  myEdit := TEdit.Create(self);
  myEdit.Left := 100;
  myEdit.Top := 100;
  myEdit.Parent := self;
//  myEdit.OnChange := MyOnEditChange; <- Events verknüpfen

[BerTa]

Hi Bernhard,

das ist doch genau das was ich mache, ich suche nur nach einer schnelleren Lösung.

Danke

[Orbmu2k]

Erstellst du die Formulare bei Aufruf des jeweiligen oder alle beim Start der Anwendung ?

[BerTa]

Hi,

ich erstelle die Forms, wenn das entsprechende Programm im Menübaum ausgewählt wird.

[Bernhard Geyer]

Zitat von BerTa:

das ist doch genau das was ich mache, ich suche nur nach einer schnelleren Lösung.

Ich dachte das macht bisher dein COBOL-Programm.

Zur Geschwindigkeit:
- Wieviel Controls sind auf dem Formular?
- Wann werden die Controls erzeugt (im Konstruktor des Formulars oder im OnShow-Event)?

Eine Verwendung einer DFM-Datei ist prinzipbedingt langsamer als das direkte anlegen der Controls im Code, da hier noch Rechenzeit für das Parsern der DFM-Datei benötigt wird.

[Orbmu2k]

ist die Datenbank im Lokalen Netz angebunden oder Internet ?

Ich meine das Proggi muss ja auch erstmal an die Daten ran kommen ....

Dann kann man seine SQL abfragen auch noch optimieren (grade bei mysql)


MySQL

SQL-Code:

// MySQL Langsam -> DB2 Genauso schnell wie siehe unten

select a.Feld 

from GrosseTabelle a

left join KleineTabelle b

where b.Feld in (1,2,3) 

// MySQL und DB2 gleichschnell

select a.Feld 

from Kleine Tabelle b

left join GrosseTabelle a

where b.Feld in (1,2,3)

[OLLI_T]

Hallo Börni!

Der Flaschenhals bei der Geschichte ist sicherlich das Netzwerk und das Auslesen der Control-Properties aus der DB. Vielleicht bringt ein Index in der DB etwas Speed?

Schliesse mich der Frage von Bernhard an: Wieviele Controls sind es denn pro Formular?

Gruss

Der OLLI

[BerTa]

Hallo Bernhard,

ich hatte mich nicht ganz klar ausgedrückt, gerade für die Oberfläche brauche ich Delphi, weil mir das in COBOL (reine API-Programmierung) zu stressig ist.

Hier meine Programm-Struktur:

Das Grundprogramm mit Menübaum usw. ist eine Delphi-exe. Beim Auswählen eines Programms wird eine Delphi-Dll XY als MDI-Child aufgerufen, welche den Hintergund mit einem PageControl erzeugt. Danach wird die entsprechende COBOL-Dll aufgerufen. Dessen Anzeigeprogramm (für die alten textbasierten Masken-Dialoge) habe ich so umgebaut, dass eine exportierte Funktion in der selben Delphi-dll XY aufgerufen wird, die mir je nach Programm mehrere TabSheets in dem besagten PageControl erzeugt. Die Komponenten sind halt in MySql-Tabellen hinterlegt, die ich mit der Hilfe von Zeos-Komponenten lese. Bei einer Maske habe ich noch kein Problem, aber wenn ich 4-5 TabSheets mit jeweils ca. 50 Komponenten erzeuge, dann kann's schon etwas dauern...

Gruss Börni

[BerTa]

Ich denke nicht dass es unbedingt die Datenbank ist, sicher kann man das noch optimieren. Bei einer lokalen Datenbank habe ich das gleiche Problem. Ich könnte die Beschreibung der Forms auch in einer Textdatei hinterlegen, bloss dann müsste ich diese auf jedem Platz mitinstallieren, damit das Netz nicht so belastet wird. Deshalb war mein Gedanke, eine Maske aus meinen Daten schon vorgenerieren und in der COBOL-DLL mit unterbringen.

Gruss, Börni