Screenshot nach Zeit

[Flo]

Hi,
ich hab folgenden Code:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var MyBitmap : TBitmap;
begin
     MyBitmap := TBitmap.Create;
     ScreenShot(mybitmap);
     mybitmap.SaveToFile('c:\screenshot.bmp');
     mybitmap.free;
end;

Jetzt möchte ich,dass er jede Sekunde einen Screenshot speichert. Den Timer hab ich schon auf 1Sek. eingestellt. Jetzt möchte ich, dass er den Screnshot so nennt:

nach 1Sek.: screenshot1
nach 2Sek.: screenshot2
und so weiter

[Luckie]

Nimm eine globale Variable, zähl mit und bilde daraus den Dateinamen.

[Flo]

wie zähl ich denn da mit :roll:

[Luckie]

Delphi-Quellcode:

Inc(i);

Zum Beispiel.

[Flo]

Ähhh...wie bau ich das denn in den Code ein :roll: :roll: :roll: :oops: :oops: :oops:

[Luckie]

Zu deinem Gunsten schiebe ich das mal auf die Hitze.

- gloable Variable
- in OnTimer hochzählen
- Dateiname rausbilden
- fertig

[Flo]

Ich komm damit jetzt irgendwie nicht klar.
Ich bekomm das nicht in den Code :x

[Luckie]

Ohne Kommentar:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject); 
var MyBitmap : TBitmap; 
begin 
  Inc(i);
  MyBitmap := TBitmap.Create; 
  ScreenShot(mybitmap); 
  mybitmap.SaveToFile('c:\screenshot'+IntToStr(i)+'.bmp'); 
  mybitmap.free; 
end;

[Flo]

Ahaaaaaaaa....hab die ganze Zeit das 'inToStr vergessem :roll:

Danke

[Flo]

Klappt irgendie nicht :(

Der nennt den die ganze Zeit nur screenshot265....

[Luckie]

Zitat:

Zitat von Flo

Klappt irgendie nicht :(

Schön. Und was soll ich jetzt mit der Fehlerbeschreibung anfangen?

[Luckie]

Wo hast du i deklariert?

[Flo]

So siehts aus

Delphi-Quellcode:

var MyBitmap : TBitmap;
i: integer;
begin
inc(i)   ;
     MyBitmap := TBitmap.Create;
     ScreenShot(mybitmap);

    mybitmap.SaveToFile('c:\screenshot'+inttostr(i)+'.bmp');
     mybitmap.free;

[Luckie]

Ich sagte global!!!. So wird i jedes mal im OnTimerEreignis mit Schrott neu initialisiert.

[Assarbad]

Meine kleine Klasse TScreenShotClass bietet die gewünschte Funktionalität mit den Methoden AutoSaveDesktop und AutoSaveWindow(hwnd:HWND).

Wenn du die Unit einbindest, hast du in der Standardkonfiguration sofort eine Instanz SShot, die du ansprechen kannst.

Ist übrigens nonVCL (also ziemlich klein) und bietet auf an die Bilder als PNG zu speichern, wenn die entsprechende DLL im System oder im Programmverzeichnis existiert.

[Flo]

Hab ich wohl überlesen. Jetzt klappts aber



´Danke für die Mühen

[flomei]

Mal ne Frage!
Kann man das auch mit JPG´s machen? Wenn ich statt

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var MyBitmap : TBitmap;
begin
  Inc(i);
  MyBitmap := TBitmap.Create;
  ScreenShot(mybitmap);
  mybitmap.SaveToFile('c:\screenshot'+IntToStr(i)+'.bmp');
  mybitmap.free;
end;

einfach

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var MyJPEG : TJPEG;
begin
  Inc(i);
  MyJPEG := TJPEG.Create;
  ScreenShot(myJPEG);
  myJPEG.SaveToFile('c:\screenshot'+IntToStr(i)+'.jpg');
  myJPEG.free;
end;

schreibe und die unit JPEG (heisst die so) einbinde, klappt das dann wohl? JPEG´s sind ja noch kleiner. Oder muss ich ne Bitmap machen, die in ne JPG Datei konvertieren und die dann speichern? Das würde ja viel länger dauern.

MfG Florian :hi:

[Luckie]

Konvertier das Bitmap vor dem Speichern nach JPG.