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.