Editor-Fenster oder Memo-Fenster in einer NICHT-visuellen Routine?

[Andreas13]

Hallo Delphi Community,

da ich fast ausschließlich reine technische Berechnungen OHNE visuelle Komponenten programmiere, stoße ich mit folgender Aufgabenstellung leider an meine Grenzen:

Eine Berechnungsroutine ist über eine DLL in Excel eingebunden und erledigt umfangreiche Berechnungen und übergibt diese an Excel. So weit, so gut.

Nun möchte ich innerhalb obiger NICHT-visueller Berechnungsroutine ein Editor-Fenster oder Memo-Fenster etc. zur Anzeige von Zwischenergebnissen zur Laufzeit aufmachen.
Wie läßt sich das bewerkstelligen?

Vielen Dank für Eure Hilfe im Voraus!

Gruß
Andreas

[jaenicke]

Vielleicht hilft dir diese Bibliothek:
https://github.com/jaenicke/MTCL
Die ist noch im Anfangsstadium, funktioniert aber schon. Und du kannst die Anzeige direkt aus einem Berechnungsthread aktualisieren.

[TiGü]

Würde es auch ein Konsolenfenster tun?

[jaenicke]

Ein Konsolenfenster aus Excel heraus als Anzeige fände ich relativ unüblich. Möglich ist natürlich alles.

[Andreas13]

Hallo Sebastian,

danke für den Tipp, aber leider konnte ich ihn (noch) umsetzen...
Mein Problem ist, daß meine Anwendung OHNE jedes Fenster läuft: es ist eine reine Berechnungsreoutine, die still und heimlich Excel mit Ergebnissen füttert.
Ich bräuchte lediglich ein Fester wie z.B. die MessageBox(..), wo ich viele Zwischenergebnisse anzeigen und das Fenster danach wieder schließen / löschen kann.

Gruß
Andreas

[jaenicke]

Deshalb vermute ich ja, dass es damit gehen könnte, da das damit nicht über die VCL läuft. Denn die wäre in einer solchen DLL eventuell etwas zickig (es könnte aber auch gehen).

[peterbelow]

Zitat von Andreas13:

Hallo Delphi Community,

da ich fast ausschließlich reine technische Berechnungen OHNE visuelle Komponenten programmiere, stoße ich mit folgender Aufgabenstellung leider an meine Grenzen:

Eine Berechnungsroutine ist über eine DLL in Excel eingebunden und erledigt umfangreiche Berechnungen und übergibt diese an Excel. So weit, so gut.

Nun möchte ich innerhalb obiger NICHT-visueller Berechnungsroutine ein Editor-Fenster oder Memo-Fenster etc. zur Anzeige von Zwischenergebnissen zur Laufzeit aufmachen.
Wie läßt sich das bewerkstelligen?

Vielen Dank für Eure Hilfe im Voraus!

Gruß
Andreas

Ich nehme mal an, die Berechnung soll weiter laufen, während das Fenster angezeigt wird? Das kriegst Du nur hin, wenn eines von beiden in einem sekundären Thread läuft.

Zuerst mal: es ist kein Problem, in einer DLL die VCL zu verwenden, solange Du nur modale Fenster anzeigst. Die haben ihre eigene Message loop und sind somit unabhängig von der message loop der Hostanwendung. Mein Vorschlag wäre also folgendes:

• Lege ein normales VCL Form für die Anzeige an
• In der nach Excel exportierten Funktion erzeugst Du eine Instanz dieses Forms und zeigst sie per ShowModal
• Im OnPaint event des Forms setzt Du zuerst OnPaint auf nil, damit der Handler nur einmal aufgerufen wird, und startest dann den Thread für die Berechnung
• Der Thread kann Zwischenergebnisse per Synchronize an das Form zur Anzeige schicken
• Wenn die Berechnung fertig ist legt der Thread das Ergebnis in einem Feld des Forms ab und setzt Modalresult auf mrOK, beendet sich dann
• In der exportierten Routine kehrt daraufhin der ShowModal-Aufruf zurück, die Routine holt das Ergebnis aus dem Feld des Forms, zerstört das Form, und gibt das Ergebnis an Excel zurück

Es gibt da noch ein potentielles Problem mit der Z-Order. Um das Meldungsfenster zuverlässig oberhalb des Excel-Fensters zu lassen solltest Du den formstyle auf fsTopMost setzen, oder die CreateParams-Methode überschreiben und params.wndParent auf den Rückgabewert von GetForegroundWindow setzen.

[Codehunter]

Zitat von peterbelow:

Es gibt da noch ein potentielles Problem mit der Z-Order. Um das Meldungsfenster zuverlässig oberhalb des Excel-Fensters zu lassen solltest Du den formstyle auf fsTopMost setzen, oder die CreateParams-Methode überschreiben und params.wndParent auf den Rückgabewert von GetForegroundWindow setzen.

Da schauderts mich schon wieder... fsTopMost ist die schlimmste Vergewohltätigung die TForm zu bieten hat. Besonders spaßig wenn sich eine MesageBox dahinter legt und dann das ganze Programm blockiert. IMHO sollte man sehen dass man sich das WindowHandle der Containeranwendung (in dem Fall Excel) besorgt und dieses bei der Anzeige von Sub-Fenstern oder MessageBoxes gebrauchen.

[jaenicke]

Zitat von peterbelow:

[*]Der Thread kann Zwischenergebnisse per Synchronize an das Form zur Anzeige schicken

Oder man benutzt wie vorgeschlagen ein multithreadfähiges Fenster.
Dann kann man direkt aus einem Berechnungsthread etwas in die Anzeige schreiben und die Anzeige läuft auch weiter, wenn der Hauptthread beschäftigt ist.

[TiGü]

Wenn es nur darum geht, um zu gucken was die Berechnung machen (als Log/Debugging), dann würde sich immer noch ein Konsolenfenster anbieten.