screenshot verkleinern klappt nicht

[malabarista]

Ich wollte einen screenshot machen.
Die normale Größe (screenshot=Bildschirmgröße) funktioniert.
Aber ich wollte ihn auf die Hälfte verkleinern und das klappt nicht: das Bild ist nur schwarz.

Code: Alles auswählen

  bild:= TPortableNetworkGraphic.Create;
  w:=screen.Width;
  h:=screen.Height;
  wn:=w div 2;
  hn:=h div 2;
  bild.setsize(wn,hn);
  ScreenDC := GetDC(0);
  StretchBlt(bild.Canvas.Handle, 0, 0, wn, hn, ScreenDC, 0, 0, w, h,SrcCopy);
  ReleaseDC(0,ScreenDC);
  bild.SaveToFile('scrshot2.png');
  bild.free;                                    
 

Was ist mein Fehler ?

[Michl]

Ungetestet: Das Canvas wird On Demand, also auf Anforderung erstellt. Oft klappt der Erstzugriff nicht, da es nicht fertig erstellt wurde.

Probier mal sowas:

Code: Alles auswählen

  bild:= TPortableNetworkGraphic.Create;
  w:=screen.Width;
  h:=screen.Height;
  wn:=w div 2;
  hn:=h div 2;
  bild.setsize(wn,hn);
  bild.Canvas.Clear; // <-- sowas oder Fillrect etc.
  ScreenDC := GetDC(0);
  StretchBlt(bild.Canvas.Handle, 0, 0, wn, hn, ScreenDC, 0, 0, w, h,SrcCopy);
  ReleaseDC(0,ScreenDC);
  bild.SaveToFile('scrshot2.png');
  bild.free; 

[malabarista]

Ja, dann klappt es.
Dankeschön.