Screenshot nach Zeit

[Luckie]

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

[Luckie]

Konvertier das Bitmap vor dem Speichern nach JPG.