Handle als Bitmap

[Delphi-Narr]

Hallo,
ich möchte gerne einen Screensaver "unsichtbar" in meinem Programm abspielen ("screensaver.scr /p HWND"). Dies klappt auch gut, beispielsweise auf dem FormHandle.
Ich brauche die Ausgabe jedoch als Bitmap, da ich die Pixel einzeln ansprechen können muss, um die Ausgabe weiterzuverarbeiten.
Gibt es da eine Möglichkeit für?


Viele Grüße!

[glotzer]

eventuell auf ein TImage zeichnen lassen und dann einfach mittels SaveToFile speichern

[jaenicke]

Zeichne doch einfach auf eine TBitmap (also auf Bitmap.Canvas.Handle). Wenn es wirklich eine Bitmap sein soll, braucht man da weder den Overhead von TPicture, noch von TImage.

[Delphi-Narr]

Das habe ich schon probiert, leider ohne Erfolg.
In meiner Testanwendung läuft das Ganze erstmal alles über ein TImage, damit es was zu sehen gibt ;)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var P,g:string;
begin
    g:='meinbildschirmschoner.scr';
    Process := TProcess.Create(g, Format('/p %d', [Image1.Picture.Bitmap.Canvas.Handle]));
    Edit1.Text:=g+' '+Format('/p %d', [Image1.Picture.Bitmap.Canvas.Handle]);
end;

Hierbei geschieht jedoch ersteinmal nicht das gewünschte.

Delphi-Quellcode:

Form1.Canvas.CopyRect(Rect(0,0,Image1.width,Image1.height),Image1.Picture.Bitmap.Canvas,Rect(0,0,width,height)); // -> Formular wird auch im angegebenen Rect weiß
Image1.Picture.SaveToFile('test.jpg');

Das Image wird lediglich weiß, zeigt aber nicht den Screensaver an.

[jaenicke]

Funktioniert denn die Vorschau in dem Windowsdialog zur Bildschirmschonerauswahl korrekt?

[Delphi-Narr]

Ja die funktioniert und auch auf dem Formular wird die Vorschau korrekt dargestellt.
Im Anhang ein Screenshot der Testanwendung.
Oben ist ein TPanel, unten ein TImage.
Auf dem Panel funktioniert das wunderbar, das Image wird nur weiß.

Delphi-Quellcode:

    g:='asd.scr';
    Image1.Picture.Bitmap.Width:=320;
    Image1.Picture.Bitmap.Height:=240;
    Process := TProcess.Create(g, Format('/p %d', [Image1.Picture.Bitmap.Canvas.Handle]));
    Process := TProcess.Create(g, Format('/p %d', [Panel1.Handle]));

[SirThornberry]

Ist der Screensaver von dir oder ein beliebiger auf dessen Quelltext du keinen Einfluss hast?
Einem Screensaver kann maximal ein Fensterhandle übergeben werden auf dem die Darstellung erfolgen soll. Ob dabei 3D etc. zum Einsatz kommt kannst du von außen nicht bestimmen, entsprechend auch nicht ob du die Pixel per Canvas abgreifen kannst.

[Delphi-Narr]

Es handelt sich dabei um einen externen Screensaver (Flurry).
Also wird das wohl nichts werden?! Gibt es keine Möglichkeit, die Daten direkt von diesem Handle wieder auszulesen?

[Blup]

Es wird das Handle eines Windows erwartet.
Das Handle einer Bitmap ist etwas ganz anderes.

TImage ist von TGraphicControl abgeleitet und hat demnach kein eigenes Fenster, sondern wird nur auf das dahinterliegende Fenster gezeichnet (TWinControl, z.B. Panel oder Form).
Es ist demnach für diesen Zweck nicht geeignet.

Möglicherweise klappts mit der Funktion "PrintWindow":
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
Damit sollte man auch ein Fenster auf eine Bitmap zeichnen können, das zwar sichtbar, aber ausserhalb des sichtbaren Bereichs ist.

[baumina]

Soviel ich weiß, muss einem TImage erst mitgeteilt werden, dass es sich um eine Bitmap handelt, bevor Picture.Bitmap überhaupt richtig funktionieren kann. Ich gehe nämlich mal davon aus, dass in deinem Beispiel TImage.Picture Nil ist. Testhalber kannst ja mal zuvor irgendeine Bitmap im Entwurfsmodus reinladen.

Edit: Wobei das mit dem Handle schon so ne Sache ist. Panel.Handle ist vom Typ HWND und das vom Bitmpa.Canvas ist vom Typ HDC.

nochmal Edit : aber mit GetDC müsste auch das zu lösen sein.

[Delphi-Narr]

Das mit PrintWindows habe ich gerade getestet.
Es wird trotz darübergelegtem Screensaver nur das Fenster mit seinen Komponenten angezeigt.
Auch bei der Abbildung auf dem Panel bleibt das Panel im Screenshot leer.

----------
Ich habe dem Bitmap bisher zumindest Breite und Höhe zugewiesen, versuch es aber nochmal mit einem kompletten Bitmap.

[Blup]

Zitat:

Zitat von baumina (Beitrag 1226404)

Soviel ich weiß, muss einem TImage erst mitgeteilt werden, dass es sich um eine Bitmap handelt, bevor Picture.Bitmap überhaupt richtig funktionieren kann. Ich gehe nämlich mal davon aus, dass in deinem Beispiel TImage.Picture Nil ist. Testhalber kannst ja mal zuvor irgendeine Bitmap im Entwurfsmodus reinladen.

Edit: Wobei das mit dem Handle schon so ne Sache ist. Panel.Handle ist vom Typ HWND und das vom Bitmpa.Canvas ist vom Typ HDC.

nochmal Edit : aber mit GetDC müsste auch das zu lösen sein.

Jedes TImage besitzt ein TPicture-Objekt. Picture.Graphic kann nil sein.
Ist Picture.Graphic kein TBitmap-Objekt erzeugt der Zugriff auf die Eigenschaft Picture.Bitmap ein TBitmap-Objekt und weist es Picture.Graphic zu.
Die Größe der Bitmap muss man nachträglich bestimmen.

Ein Handle ist eine Nummer die ein Objekt innerhalb eines bestimmten Kontext eindeutig bestimmt.
Es gibt Handle für Speicher, Fenster, Zeichenobjekte, Gerätekontext usw.
Ein Speicherhandle ist für Speicher eindeutig, die selbe Nummer kann z.B. auch für einen Gerätekontext vergeben sein und ist innerhalb dieser eindeutig.
Es ergibt keinen Sinn, einer Funktion die eine Nummer für ein Fenster erwartet, eine Nummer für Speicher oder für einen Gerätekontext zu übergeben.

Wie bitte soll GetDC in diesem Zusammenhang helfen?

[baumina]

Zitat:

Zitat von Blup (Beitrag 1226512)

Wie bitte soll GetDC in diesem Zusammenhang helfen?

Ich dachte das könnte so in diese Richtung gehen : ...einen Desktop Screenshot erzeugen?

[Blup]

..das eigentliche Problem ist doch, das vom Screensaver gezeichnete Bild soll für den Anwender nicht sichtbar sein und trotzdem abgegriffen werden.

[Delphi-Narr]

Zitat:

Zitat von Blup (Beitrag 1226539)

..das eigentliche Problem ist doch, das vom Screensaver gezeichnete Bild soll für den Anwender nicht sichtbar sein und trotzdem abgegriffen werden.

Genau, ich möchte den Screensaver als Hintergrundanimation auf dem LCD der Logitech G19 Tastatur nutzen.
Die kann man aber nur über ein Array aus Bytes ansteuern, in welchem die Farbwerte gespeichert sind - darum muss ich die abgreifen.
Wenns auf der Tastatur angezeigt wird, solls aber eben nicht noch irgendwo anders sichtbar sein.
Kann man da irgendwie mit einer Art virtuellem / unsichtbaren Desktop (Bildschirm) arbeiten, auf dem das angezeigt würde, der aber halt kein physischer Bildschirm ist?

[Blup]

Hab mal in alten Quelltexten geschaut, wie ich früher Screensaver programmiert habe.
Der Screensaver erzeugt ein eigenes Fenster und zeichnet darauf.
Wird ein Fenster für die Vorschau übergeben, wird das eigene Fenster als Child darauf gelegt(Parent) und die Größe angepasst.

Wenn hier ebenso vorgegangen wurde, müsste man nach dem Start des Screensavers das ChildWindow des Panels suchen und PrintWindows mit dessen Handle aufrufen.