Form in Service rendern

[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 ?