Screenshot in JPG ?!?

[TheMiller]

Kann man diesen Code so umschreiben, dass er eine JPG vom Screen erstellt. Habe jetzt eine BMP-Datei die bei 1024x768 Pixeln exakt 3MB groß ist... Hier der Code (ich denke aus der DP-CL)...

Delphi-Quellcode:

procedure ScreenToFile(aFileName: string);
var
  Bitmap: TBitmap;
  Canvas: TCanvas; 
begin
  Canvas := TCanvas.Create; 
  try
    Canvas.Handle := GetWindowDC(0); 
    try
      Bitmap := TBitmap.Create; 
      try 
        Bitmap.Width := Screen.DesktopWidth; 
        Bitmap.Height:= Screen.DesktopHeight;
        Bitmap.PixelFormat := pfDevice;
        BitBlt(Bitmap.Canvas.Handle, 0, 0, Pred(Screen.DesktopWidth), Pred( 
            Screen.DesktopHeight), Canvas.Handle, Screen.DesktopLeft, 
            Screen.DesktopTop, Bitmap.Canvas.CopyMode);
        Bitmap.SaveToFile(aFileName); 
      finally 
        Bitmap.Free; 
      end;
    finally 
      ReleaseDC(0, Canvas.Handle); 
    end;
  finally 
    Canvas.Free; 
  end; 
end;

[Alexander]

Kuck dir mal das hier an:
http://www.swissdelphicenter.ch/de/showcode.php?id=874

[Alexander]

Mal eine (sehr) einfache Möglichkeit:

Delphi-Quellcode:

procedure ScreenToFile(aFileName: string);
var
  Bitmap: TBitmap;
  JPG : TJPEGImage;
  Canvas: TCanvas;
begin
  Canvas := TCanvas.Create;
  try
    Canvas.Handle := GetWindowDC(0);
    try
      Bitmap := TBitmap.Create;
      JPG := TJPEGImage.Create;
      try
        Bitmap.Width := Screen.DesktopWidth;
        Bitmap.Height:= Screen.DesktopHeight;
        Bitmap.PixelFormat := pfDevice;

        BitBlt(Bitmap.Canvas.Handle, 0, 0, Pred(Screen.DesktopWidth), Pred(
            Screen.DesktopHeight), Canvas.Handle, Screen.DesktopLeft,
            Screen.DesktopTop, Bitmap.Canvas.CopyMode);

        JPG.Assign(Bitmap);
        JPG.SaveToFile(aFileName);
      finally
        Bitmap.Free;
        JPG.Free;
      end;
    finally
      ReleaseDC(0, Canvas.Handle);
    end;
  finally
    Canvas.Free;
  end;
end;

(nicht getestet...)

[TheMiller]

hey vielen dank euch zweien... funktioniert einwandtfrei und weis sogar, warum

[Alexander]

Eigentlich war ich es nur

[ims]

Zitat:

...euch zweien...

[TheMiller]

Naja, einmal für den code und einmal für die erklären (den Link)... naja, egal...Danke trotzdem...

[Aike]

Undefinierter Bezeichner: 'TJPGImage'
Lösung:

uses jpeg;