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:

Zitat von Knotti2015

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

Z.B. in eine Funktion packen.

Zitat:

Zitat von Knotti2015

Und wo wird die Zeit gesteuert in dem Code

TTimer

Zitat:

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

Delphi-Quellcode:

  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

Delphi-Quellcode:

bmp.SaveToFile('ScreenShot.bmp');

ersetzen.

[Knotti2015]

siehe unten:

[Knotti2015]

Entschuldigt für den komischen
posting.

Also ich bin jetzt soweit das eine bmp datei erstellt wird.
In diesem Link gibt es einen Code mitdem man BMP nach Jpeg konvertieren kann wie seht dieser Code eingebaut in einen timer2.* aus?

BMP-JPG

[Matze]

Sei mir nicht böse, aber schau dir mal ein Anfängertutorial an.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Bmp: TBitmap;
  Jpg: TJpegImage;
begin

  //Screenshot etc ...
  //dann hast du den in der Variblen "bmp"

  try
    Jpg.Assign(Bmp);  //Dem Jpg das Bmp zuweisen
    Jpg.SaveToFile(ChangeFileExt(Filename, '.jpg' ));  //Jpg speichern
  finally
    Jpg.Free;  //Speicher jeweils freigeben
    Bmp.Free;
  end;
end;

[Knotti2015]

[Fehler] Unit1.pas(63): Undefinierter Bezeichner: 'Filename'

Wenn ich anstatt Filename -> 'test' reinschreibe bekomme ich

Achtung die Variable JPG ist nicht richtig intialisiert worden.

[Nogge]

Moin Knotti2015,
Du musst auch erst dein JPEGImage erstellen, wie du es auch oben in deinem Code mit der Bitmap gemacht hast:

Delphi-Quellcode:

  {Create a bitmap}
  bmp := TBitmap.Create;

Das heißt, du musst jetzt noch über deinem try

Delphi-Quellcode:

  {Create a JpegImage}
  Jpg := TJpegImage.Create;

hinzufügen.

[Khabarakh]

"FileName" soll eine String-Variable mit dem Pfad zum Speichern sein (bzw. TOpenDialog.FileName, da solltest du aber über den Filter erst gar keine andere Endung zulassen).

Zitat:

Sei mir nicht böse, aber schau dir mal ein Anfängertutorial an.