Screenshot als JPG speichern?

[lordludwig]

Habs nirgends gefunden, aber wie kann ich meinen gesammten Bildschirm als JPG speichern?

Danke schonma für euere schnellen antworten

[Balu der Bär]

Forensuche bringt genügend Ergebnisse, unter anderem: http://www.delphipraxis.net/internal...=452639#452639

[negaH]

Delphi-Quellcode:

uses JPeg, Graphics, Windows, Classes ...;

var
  B: TBitmap;
  I: TJpegImage;
  DC: hDC;
begin
  B := TBitmap.Create;
  try
    DC := GetDC(hWnd_Desktop);
    try
      B.Width := Screen.Width;
      B.Height := Screen.Height;
// Screenshot als Bitmap machen 
      BitBlt(B.Canvas.Handle, 0, 0, B.Width, B.Height, DC, 0, 0, SRCCOPY);
    finally
      ReleaseDC(DC, hWnd_Desktop);
    end;
// Bitmap nach JPEG und speichern
    I := TJpegImage.Create;
    try
      I.Assign(B);
      I.SaveToFile('Filename hier.jpeg');
    finally
      I.Free;
    end;
  finally
    B.Free;
  end;
end;

Gruß Hagen

[lordludwig]

das konvertieren ist ja deutlich einfacher als gedacht :-)

Danke auf jeden fall!!!