Form in Service rendern

[gast2019]

Vorweg: von Services/Diensten habe ich null Ahnung.

Falls der Service das Formular anzeigen könnte, das Formular z.B. bei Left := -5000;
(also zwei Meter links vom Monitor) anzeigen lassen und das Formular sich timergesteuert als Bitmap abspeichern lassen.

Zwei Meter links vom Monitor ist ja quasi auch unsichtbar. Nur so als Idee...

[Luckie]

Warum sollte das tun? Den Desktop eines Dienstes bekommt eh kein Benutzer zu sehen.

[hoika]

Hallo,
ich würde "einfach" eine Html-Seite erzeugen.
Das sollte nicht ganz so aufwendig sein, wie eine Bitmap.

[mjustin]

HTML verwenden wäre auch mein Kompromiss - da muss man die Oberfläche zwar neu gestalten, aber es gibt spätestens mit HTML5 und JavaScript für visuell ansprechende Oberflächen (die auch skalieren auf unterschiedliche Biildschirmauflösungen) gute Lösungen, viele als open source. Diagramme, sogar mit interaktiven Elementen, zu gestalten ist damit möglich und wenig bis mäßiger Aufwand. Und man benötigt clientseitig nur einen HTML-Client.

[pesi]

Hmmm.... denke ich zu einfach? (was das Generieren eines "Screenshots" angeht)

Delphi-Quellcode:

I:=TBitmap.Create;
Bild:=TJPEGImage.Create;
I:=StatistikFORM.GetFormImage;
Bild.assign(I);
Bild.savetofile(Bla.jpg');

Das hat auf jeden Fall bei mir lange und gut funktioniert.
Die Anwendung war zwar kein Service sondern wurde als geplanter Task aufgerufen, aber auch dann ist ja die ganze Anwendung nicht sichtbar. Könnte daher doch auch bei einem Service funktionieren, oder???

[BambinatorXE]

da sieht man den Wald vor lauter Bäumen manchmal nicht.
Ihr habt mich auf genau die richtige Idee gebracht, vielen Dank!

Meine Lösung verwendet die PaintTo-Methode eines TForm (das ist die Methode, an die man immer nicht denkt...):

Delphi-Quellcode:

procedure TDisplayService.PaintForm;
var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  Bitmap.Width := DisplayForm.ClientWidth;
  Bitmap.Height := DisplayForm.ClientHeight;

  DisplayForm.PaintTo(Bitmap.Canvas, 0, 0);
  // hier kann das Bitmap jetzt komprimiert/verschickt/whatever werden
  Bitmap.Free;
end;

Funktioniert tadellos auch in einem Service. Ich habs zwar zum Test nur mit was ganz einfachem probiert, aber ich bin mir eigentlich ziemlich sicher, dass der Rest auch gehen sollte...
Die Funktion PaintTo rufe ich jedes mal auf, wenn sich was auf der Anzeige ändert (neue Werte, Uhrzeit etc.).

Dann kann ich mich jetz an die "echten" Probleme machen...

Danke euch, viele Grüße

Stephan

[Rollo62]

Schön das es funktioniert.
Das PaintTo... war auch meine erste Idee, aber ...

Ich hätte gewettet das es so ohne Weiteres keinen sinnvollen Canvas-Handle im Service gibt,
oder das die PaintTo Routinen doch intern irgendeine Windows-Funktion aufrufen die dann crasht.

Hat vielleicht jemand eine gute Erklärung warum das anscheinend doch funktioniert ?

[gast2019]

Meine Idee (falls verwirklichbar) umschifft das Rendern einer "unsichtbaren" Form durch das Rendern einer sichtbaren Form außerhalb des Sichtfeldes.

Das Formular speichert sich mit 1fps timergesteuert als Bitmap und der Dienst verteilt das gespeicherte Bitmap weiter.

Falls das geht. Und wie schon gesagt, ich habe von Services/Diensten keine Ahnung.

Aber mein Vorschlag dürfte etwas einfacher sein als #2 "Zeichne doch direkt auf das Bitmap.".
Auf das Bitmap von was denn? Irgendwoher muß das Bitmap doch kommen...

Der TE wollte erstmal Hirnschmalz, keine Nörgeleien darüber, was man auf dem "Desktop eines Dienstes" überhaupt sieht.

Muss man hier - seit wann - die Sinnfrage #5 "Warum sollte das tun?" eigentlich immer stellen?

Für #5 "Warum sollte das tun?" kaufe ich ein "man" bei der nächsten hippen+ultracoolen Gameshow im TV