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!

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

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.

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

markieren

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.

markieren

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.

Funktioniert denn die Vorschau in dem Windowsdialog zur Bildschirmschonerauswahl korrekt?

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ß.

markieren

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]));