Desktop Screenshot

[Knotti2015]

Hallo Leutz,

ich suche Tipps für das Programmieren eines Programmes welches Regelmäßig (1.Min)
einen Screenshot vom Desktop erstellt und automatisch als JPG Datei in einem Ordner abspeichert.

Wäre für eure Hilfe dankbar...

[alcaeus]

Screenshot bringt unter anderem das Thema hier: http://www.delphipraxis.net/internal...ect.php?t=2905

Greetz
alcaeus

[Knotti2015]

Danke für deine Antowrt wie baue ich den ein. Und wo wird die Zeit gesteuert in dem Code außerdem wird da die Datei doch als BMP und nicht als JPG gespeichert oder?

[alcaeus]

Zitat von Knotti2015:

Danke für deine Antowrt wie baue ich den ein.

Z.B. in eine Funktion packen.

Zitat von Knotti2015:

Und wo wird die Zeit gesteuert in dem Code

TTimer

Zitat von Knotti2015:

außerdem wird da die Datei doch als BMP und nicht als JPG gespeichert oder?

TJPEGImage

Greetz
alcaeus

[Knotti2015]

http://www.delphipraxis.net/internal...ect.php?t=8024 geht das vielleicht auch damidt? wie kann ich es auslösen?

[Knotti2015]

mit diesem code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var DCDesk: HDC; // hDC of Desktop
  bmp: TBitmap;
begin
  {Create a bitmap}
  bmp := TBitmap.Create;
   
  {Set a bitmap sizes}
  bmp.Height := Screen.Height;
  bmp.Width := Screen.Width;

  {Get a desktop DC handle - handle of a display device context}
  DCDesk := GetWindowDC(GetDesktopWindow);
  
  {Copy to any canvas, here canvas of an image}
  BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
         DCDesk, 0, 0, SRCCOPY);

  {Save the bitmap}
  bmp.SaveToFile('ScreenShot.bmp');

  {Release desktop DC handle}
  ReleaseDC(GetDesktopWindow, DCDesk);

  {Release a bitmap}
  bmp.Free;
end;

kann ich einen Desktop Screenshot machen aber wie konvertiere ich ihn nach jpeg

[SirThornberry]

konvertieren geht so
  VariableVomTypTJPEGImage.Assign(VariableVomTypBitmap); und schon sollte dann dein JPEG den inhalt von dem Bitmap haben

[Knotti2015]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var DCDesk: HDC; // hDC of Desktop
  bmp: TBitmap;
begin
  {Create a bitmap}
  bmp := TBitmap.Create;

  {Set a bitmap sizes}
  bmp.Height := Screen.Height;
  bmp.Width := Screen.Width;

  {Get a desktop DC handle - handle of a display device context}
  DCDesk := GetWindowDC(GetDesktopWindow);

  {Copy to any canvas, here canvas of an image}
  BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
         DCDesk, 0, 0, SRCCOPY);

  {Save the bitmap}
  bmp.SaveToFile('ScreenShot.bmp');

  {Release desktop DC handle}
  ReleaseDC(GetDesktopWindow, DCDesk);

  {Release a bitmap}
  bmp.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled  := False;
end;

so sieht das jetzt aus kann ich irgentwie das konvertieren einbauen oder gleich es als jpg speichern lassen

[Khabarakh]

SirThornberry hat es doch schon beschrieben. Du musst im OnTimer-Event
bmp.SaveToFile('ScreenShot.bmp'); ersetzen.

[Knotti2015]

siehe unten: