Я делаю программу, которая делает снимок экрана и сохраняет его в папку в виде растрового изображения. Кажется, у меня возникла проблема, изображение просто перезаписывает себя.
Может ли кто-нибудь сказать мне, как я могу сделать так, чтобы при сохранении число было на единицу больше, чем последнее? Например: Сохранить 1: Screenshot0001.bmp Сохранить 2: Screenshot0002.bmp Сохранить 3: Screenshot0003.bmp
И так далее.
Есть много способов добиться чего-то подобного.
Сделайте это, как ваша цифровая камера; Заведите счетчик и сохраните его в файл или в реестр. Вы, вероятно, столкнетесь с проблемами, связанными с несколькими пользователями, и вам все равно придется справляться с ситуациями, когда образ уже существует.
Не используйте увеличивающееся число, а напишите дату и время в имени файла. FileName := 'Screenshot_'+FormatDateTime('yyyymmdd-hhnnss-zzz.bmp',now());
Сделайте что-то вроде кода ниже, чтобы найти последний номер. Я думаю, что это делает то, что вы описываете, но помните, что этот код будет работать медленнее по мере того, как вы будете писать больше изображений. С тысячами изображений и медленным диском или сетью это может «подвесить» вашу программу.
..
i := 0;
while FileExists(Format('%sScreenshot%.04d.bmp',[ImgPath,i])) do
inc(i);
При запуске программы переберите все файлы Screenshot*.bmp, выделите числовую часть и найдите наибольшую - присвойте это значение своему счетчику. При создании моментального снимка войдите в цикл, который пытается создать Screenshot.bmp с семантикой «создавать только, если он еще не существует» (CREATE_NEW), увеличивая счетчик до тех пор, пока не найдете неиспользуемое имя.
В качестве альтернативы используйте метку времени вместо счетчика :)
Вам нужна подобная процедура, которая имитирует дублирование файлов Windows, где первый файл — «Мой файл», второй — «Мой файл (2)», затем «Мой файл (3)» и т. д.
function AppendDuplicationNumber( const AStr : string ) : string;
// Used to make strings unique
// This examines the string AStr for trailing '(n)' where
// 'n' is an integer.
// If the (n) part is found, n is incremented, otherwise '(2)' is
// appended to the string.
var
iLH, iRH, I : integer;
S : string;
begin
Result := AStr;
iLH := CharPosBackwards( '(', Result );
If iLH > 0 then
begin
iRH := PosEx( ')', Result, iLH );
If iRH > 0 then
begin
I := StrToIntDef( Copy( Result, iLH+1, iRH-iLH-1 ), 0 );
If I > 0 then
begin
Inc(I);
S := IntToStr( I );
Delete( Result, iLH+1, iRH-iLH-1 );
Insert( S, Result, iLH+1 );
Exit;
end;
end;
end;
// Did not increment existing (n), so append it.
Result := Result + ' (2)';
end;
