Скриншот по таймеру

[BparHapoga]

Здрасьте всем
Такая вот проблемка у меня, у начинающего:
Пишу маленькую программку, задача которой делать скриншоты в определённый промежуток времени, сохраняя их в определённой папке.
Есть форма, две кнопки, Image и таймер.
По первой кнопке начинается процесс, вторая закрывает приложение, останавливая процесс.

pic.SaveToFile('C:\Users\Public\Recorded TV\Sample Media\s.bmp');

Подскажите пожалуйста, что и куда нужно прописать, чтобы при сохранении новой картинки она не перезаписывалась, а меняла название на s1.bmp, s2.bmp и т.д.?
Всю голову переломал.

[BDA]

pic.SaveToFile('C:\Users\Public\Recorded TV\Sample Media\s'+inttostr(i)+'.bmp');

i - счетчик. Также можно проверять с помощью FileExists (http://delphibasics.ru/FileExists.php) наличие файла, и увеличивать счетчик.

[BparHapoga]

Честно говоря ссылка не очень помогла. Там все результаты это 'showmessage'. А мне-то нужно добавить новые файлы
Сейчас оно работает, но перезаписывает себя.

[BDA]

Объявить глобальную переменную i.
При запуске в formcreate написать i:=1;
В месте, где планируется сохранять:

while fileexists('C:\Users\Public\Recorded TV\Sample Media\s'+inttostr(i)+'.bmp') do
inc(i);
pic.SaveToFile('C:\Users\Public\Recorded TV\Sample Media\s'+inttostr(i)+'.bmp');

[astecenko]

Возможно Вам будет проще использовать генерировать имена файлов на основе текущей даты и времени используя DateTimeToString?
то бишь что-нибудь типа

var
  NewFileName:string;
...
   DateTimeToString(NewFileName, 'yymmddhhnnss', Now);
   pic.SaveToFile('C:\Users\Public\Recorded TV\Sample Media\'+NewFileName+'.bmp');

[BparHapoga]

BDA, astecenko,
Спасибо, попробую оба варианта.

P.S.
Взял на вооружение метод DateTimeToString - он действительно удобнее, спасибо ещё раз

[HellMercenariess]

Сообщение от astecenko

Возможно Вам будет проще использовать генерировать имена файлов на основе текущей даты и времени используя DateTimeToString?

С ростом числа скринов вероятность затерть файл, может вырасти очень сильно, даже при затирания одного скрина, например в случае если скринился секретный вопрос с ответом при регистрации в webmoney, последствия могут быть самыми непредсказуемыми.


Работает безотказно, несколько лет уже

 var  FreeName:String;
      I:integer;
begin
  mDir:='D:\Special\';
  i:=0;
  SName:=MDir+'Shot'+IntToStr(i)+'.Jpg';
 While (FileExists(SName)) do
 begin
SName:=MDir+'Shot'+IntToStr(i)+'.Jpg';
i:=i+1;
 End;
 Image1.Picture.SaveToFile(SName);
end;

Сообщение от BparHapoga

BDA, astecenko,

Взял на вооружение метод DateTimeToString - он действительно удобнее, спасибо ещё раз

обязательно проверяйте нет ли уже файла через функцию - fileexists
Без проверки приложение небезопасно.

[Пепел Феникса]

С ростом числа скринов вероятность затерть файл, может вырасти очень сильно

и часто у вас на компе время и дата повторяется?
просто взять еще и ms достаточно.

[eoln]

Сообщение от Пепел Феникса

и часто у вас на компе время и дата повторяется?

У меня каждый день повторяется, иногда несколько раз в день. Вот как включаю компьютер, то всегда 1 января 2002 года

[BparHapoga]

Сообщение от HellMercenariess

С ростом числа скринов вероятность затерть файл, может вырасти очень сильно, даже при затирания одного скрина, например в случае если скринился секретный вопрос с ответом при регистрации в webmoney, последствия могут быть самыми непредсказуемыми.


Работает безотказно, несколько лет уже

 var  FreeName:String;
      I:integer;
begin
  mDir:='D:\Special\';
  i:=0;
  SName:=MDir+'Shot'+IntToStr(i)+'.Jpg';
 While (FileExists(SName)) do
 begin
SName:=MDir+'Shot'+IntToStr(i)+'.Jpg';
i:=i+1;
 End;
 Image1.Picture.SaveToFile(SName);
end;

обязательно проверяйте нет ли уже файла через функцию - fileexists
Без проверки приложение небезопасно.

Можно ведь сделать так, чтобы при каждой активации, программа автоматом создавала папку в папке