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
