работа с изображением

[vladislav_m]

доброго времени суток!)

подскажите пожалуйста, как добавить в имя картинки при сохранении - текущую дату?

jpg := TJpegImage.Create;
jpg.Assign(Mydbimage1.picture.graphic);
jpg.SaveToFile('C:\first .jpg');
 jpg.Free;

может и нубски, но пробовал и

jpg.SaveToFile('C:\first + 'datetostr(DBdatetimepicker4.Date)' .jpg');

+ как сделать, если будет уже в директории картинка с этой датой , дописать к имени "_1" ?

спасибо

[vladislav_m]

был близок оказывается))

jpg.SaveToFile('C:\' +  datetostr(DBdatetimepicker4.Date)+ '.jpg'

как сделать теперь, если будет уже в директории картинка с этой датой , дописать к имени "_1" ?

[Alex11223]

FileExists например

[phomm]

Могу предложить такую функцию для создания имени

Function GiveJpgName(dir : string): string;
var
  tmp : string;
begin
  // можно настроить формат даты для DateToStr (тогда в ней 2 аргумента)
  tmp := IncludeTrailingPathDelimiter(dir) + 'first' + DateToStr(Now) + '.jpg';
  while FileExists(tmp) do
    tmp := tmp + '_1';
  Result := tmp;
end;

Написал тут без проверки, но думаю заработает сразу (ну может модуль какой подключить )
Использовать просто - передаёте имя папки куда сохранять и она выдаст уникальное имя.
Можно ещё сделать не через добавить '_1' недопущение дубликатов, а сохранять время ещё.

[vladislav_m]

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

Могу предложить такую функцию для создания имени

Function GiveJpgName(dir : string): string;
var
  tmp : string;
begin
  // можно настроить формат даты для DateToStr (тогда в ней 2 аргумента)
  tmp := IncludeTrailingPathDelimiter(dir) + 'first' + DateToStr(Now);
  while FileExists(tmp) do
    tmp + '_1';
  Result := tmp;
end;

Написал тут без проверки, но думаю заработает сразу (ну может модуль какой подключить )
Использовать просто - передаёте имя папки куда сохранять и она выдаст уникальное имя.
Можно ещё сделать не через добавить '_1' недопущение дубликатов, а сохранять время ещё.

Спасибо земляк))) Обошелся таким способом

 b := 'C:\' +  DateToStr(DBdatetimepicker4.Date)+ '.jpg';
  n := 0;
  while  FileExists(b) do begin
    Inc(n);
    b := 'C:\' +  DateToStr(DBdatetimepicker4.Date)+ '_'+IntToStr(n)+'.jpg';
  end;
  jpg.SaveToFile (b);

Тема неактуальна уже, можно и прикрыть