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

[Luckie]

Inc(i); Zum Beispiel.

[Flo]

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

[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

[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

Danke

[Flo]

Klappt irgendie nicht

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