Как копировать файлы?

@HYDRA8 · Регистрация: 09.11.2016

Как сделать чтобы програма при нажатии кнопки делала копию одного файла
Совсем точно что нужно использовать функцию CopyFile , но как быть с параметрами (какие параметры)?

@northener · 22.11.2016, 01:57

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

Совсем точно что нужно использовать функцию CopyFile , но как быть с параметрами (какие параметры)?

Что непонятно в справке CopyFile function

FaTaL-CS · 22.11.2016, 09:00

Или в новых версиях можно так System.IOUtils.TFile.Copy

@HYDRA8 · 22.11.2016, 18:51 **[ТС]**

Функцией CopyFile возможно только периписать содержимое одного файла в другой файл того же формата?

FaTaL-CS · 23.11.2016, 10:15

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

Функцией CopyFile возможно только периписать содержимое одного файла в другой файл того же формата?

Да. Байт в байт. Или Вам что-то другое надо?

@HYDRA8 · 24.11.2016, 07:40 **[ТС]**

А существует ли функция которой можно сохранить копию файла в пустой папке?

@AHBAR · 24.11.2016, 08:35

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

А существует ли функция которой можно сохранить копию файла в пустой папке?

чем вам CopyFile не угодила?

Delphi

1 2	if CopyFile(PChar('c:\text.bin'),PChar('c:\text2.bin'), FALSE) then Showmessage('скопирован') else Showmessage('не скопирован')

Добавлено через 4 минуты

BOOL CopyFile(LPCTSTR lpExistingFileName, LPCTSTR lpNewFileName, BOOL bFailIfExists);

lpExistingFileName Значение прямого или относительного пути к исходному файлу.
lpNewFileName Значение прямого или относительного пути для нового файла.
bFailIfExists Логический параметр, определяющий должна ли функция перезаписать файл копируемый файл, если файл с заданным именем нового файла уже имеется. Если указано значение False, то файл будет перезаписан заново, даже если файл с заданным именем уже есть. При этом в результате своего выполнения, функция всегда будет возвращать значение True. Если bFailIfExists = True, в случае удачного копирования функция вернет значения True. Если же файл с новым именем уже есть, или при возникновении другой ошибки, при которой файл не будет скопирован, функция вернет значение False.

@Teodor7 · 24.11.2016, 10:08

можно [ли] сохранить копию файла в пустой папке?

CopyFile(PChar('c:\ЗагруженнаяПапка\text.bin'),PChar('c:\Пус таяПапка\text2.bin'), FALSE);

@HYDRA8 · 25.11.2016, 19:50 **[ТС]**

Файл копируется (гуд). Но возможно сделать так чтобы всегда когда кто нибудь запускал эту программу то всегда создавались новые копии файла одим и тем же именем ?

FaTaL-CS · 25.11.2016, 21:22

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

Файл копируется (гуд). Но возможно сделать так чтобы всегда когда кто нибудь запускал эту программу то всегда создавались новые копии файла одим и тем же именем ?

С одним и тем же именем файла в одной папке винда не позволит сделать.

@HYDRA8 · 25.11.2016, 22:22 **[ТС]**

Плохо дело .. а возможно ли сделать так чтобы с каждым запуском программы появлялась новая копия файла и сохранялась с тем же названием что и предидущая копия только с цифрой идущей после цифры предидущей копии?
img1.png
img2.png
img3.png
img4.png
итд

@northener · 26.11.2016, 01:06

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

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

Возможно. Просто нужно куда-то запоминать номер последнего сохраненного файла. В ини-файл, реестр, служебный файл программы, etc.

@AHBAR · 26.11.2016, 05:55

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

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

можно сделать проверку, существует ли такой файл, если да, то к имени файла "прибавить" цифру (0 или 1), если такой существует то увеличить эту цифру и т.д

Delphi

if FileExtsts('image.png') then
   BEGIN
      i := 0; // i := 1;
      while (FileExists('image' + IntToStr(i) + '.png')) do inc(i);
      CopyFile(PChar('sourse_image.png'),PChar('image' + IntToStr(i) + '.png'), FALSE);
   END ELSE CopyFile(PChar('sourse_image.png'),PChar('image' + IntToStr(i) + '.png'), FALSE);

А лучше сохранять добавляя в имя файла текущую дату и время, типа

Delphi

var
  myDate : TDateTime;
  myYear, myMonth, myDay : Word;
  myHour, myMin, mySec, myMilli : Word;
  FilName : String;
begin
  // Установка переменной myDate на "здесь и сейчас"
  myDate := StrToDateTime(Now);
  DecodeDateTime(myDate, myYear, myMonth, myDay,
                 myHour, myMin, mySec, myMilli);
  FileName := 'image_' + myYear + '-' + myMonth + '-' + myDay + '_' + myHour + '-' + myMin + '-' + mySec + '-' + myMilli + '.png';
  
  if FileExists(FileName) then ShoeMessage('Нелепое совпадение')
  else CopyFile(PChar('sourse_image.png'),PChar(FileName), FALSE);

@droider · 26.11.2016, 10:09

HYDRA8, еще один стандартный (системный) вариант: https://www.cyberforum.ru/post5871385.html

@Teodor7 · 26.11.2016, 18:17

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

CopyFile(PChar('c:\ЗагруженнаяПапка\text.bin'),PChar('c:\Пус таяПапка\text2.bin'), FALSE);

Если False, то файл переписывается поверх существующего. Если True и файл с таким именем есть, то ничего не происходит.

@HYDRA8 · 27.11.2016, 00:03 **[ТС]**

А почему когда программа без формы то код ' не знает ' команды(функции) IntToStr ?

@D1973 · 27.11.2016, 00:05

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

код ' не знает ' команды(функции) IntToStr ?

Delphi

1	uses SysUtils

@MyEternity · 27.11.2016, 00:06

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

А почему когда программа без формы то код ' не знает ' команды(функции) IntToStr ?

Вредничает она.

А по теме - "команда" в юните, который не подключается в приложении "без формы".

@northener · 27.11.2016, 00:34

Не по теме:

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

А лучше сохранять добавляя в имя файла текущую дату и время

Присоединяюсь.
Только зачем лишние переменные и процедуры, когда есть FormatDateTime?

@HYDRA8 · 01.12.2016, 00:42 **[ТС]**

А как сделать чтобы файл копировался из любой папки в которую его занес пользователь ?

@droider 4702 / 2686 / 835 Регистрация: 04.10.2012 Сообщений: 9,780
	26.11.2016, 10:09	14
	HYDRA8, еще один стандартный (системный) вариант: https://www.cyberforum.ru/post5871385.html 0

@northener пофигист широкого профиля 4359 / 2863 / 813 Регистрация: 15.07.2013 Сообщений: 16,588
	22.11.2016, 01:57	2
	Сообщение от HYDRA8 Совсем точно что нужно использовать функцию CopyFile , но как быть с параметрами (какие параметры)? Что непонятно в справке CopyFile function 0

FaTaL-CS 70 / 70 / 23 Регистрация: 14.10.2013 Сообщений: 528
	22.11.2016, 09:00	3
	Или в новых версиях можно так System.IOUtils.TFile.Copy 0

@HYDRA8 3 / 3 / 0 Регистрация: 09.11.2016 Сообщений: 88 Записей в блоге: 2
	22.11.2016, 18:51 [ТС]	4
	Функцией CopyFile возможно только периписать содержимое одного файла в другой файл того же формата? 0

FaTaL-CS 70 / 70 / 23 Регистрация: 14.10.2013 Сообщений: 528
	23.11.2016, 10:15	5
	Сообщение от HYDRA8 Функцией CopyFile возможно только периписать содержимое одного файла в другой файл того же формата? Да. Байт в байт. Или Вам что-то другое надо? 0

@HYDRA8 3 / 3 / 0 Регистрация: 09.11.2016 Сообщений: 88 Записей в блоге: 2
	24.11.2016, 07:40 [ТС]	6
	А существует ли функция которой можно сохранить копию файла в пустой папке? 0

@Teodor7 52 / 52 / 5 Регистрация: 22.11.2016 Сообщений: 268
	24.11.2016, 10:08	8
	можно [ли] сохранить копию файла в пустой папке? CopyFile(PChar('c:\ЗагруженнаяПапка\text.bin'),PChar('c:\Пус таяПапка\text2.bin'), FALSE); 0

@HYDRA8 3 / 3 / 0 Регистрация: 09.11.2016 Сообщений: 88 Записей в блоге: 2
	25.11.2016, 19:50 [ТС]	9
	Файл копируется (гуд). Но возможно сделать так чтобы всегда когда кто нибудь запускал эту программу то всегда создавались новые копии файла одим и тем же именем ? 0

FaTaL-CS 70 / 70 / 23 Регистрация: 14.10.2013 Сообщений: 528
	25.11.2016, 21:22	10
	Сообщение от HYDRA8 Файл копируется (гуд). Но возможно сделать так чтобы всегда когда кто нибудь запускал эту программу то всегда создавались новые копии файла одим и тем же именем ? С одним и тем же именем файла в одной папке винда не позволит сделать. 0

@HYDRA8 3 / 3 / 0 Регистрация: 09.11.2016 Сообщений: 88 Записей в блоге: 2
	25.11.2016, 22:22 [ТС]	11
	Плохо дело .. а возможно ли сделать так чтобы с каждым запуском программы появлялась новая копия файла и сохранялась с тем же названием что и предидущая копия только с цифрой идущей после цифры предидущей копии? img1.png img2.png img3.png img4.png итд 0

@northener пофигист широкого профиля 4359 / 2863 / 813 Регистрация: 15.07.2013 Сообщений: 16,588
	26.11.2016, 01:06	12
	Сообщение от HYDRA8 возможно ли сделать так чтобы с каждым запуском программы появлялась новая копия файла и сохранялась с тем же названием что и предидущая копия только с цифрой идущей после цифры предидущей копии? Возможно. Просто нужно куда-то запоминать номер последнего сохраненного файла. В ини-файл, реестр, служебный файл программы, etc. 0

@Teodor7 52 / 52 / 5 Регистрация: 22.11.2016 Сообщений: 268
	26.11.2016, 18:17	15
	Сообщение от Teodor7 CopyFile(PChar('c:\ЗагруженнаяПапка\text.bin'),PChar('c:\Пус таяПапка\text2.bin'), FALSE); Если False, то файл переписывается поверх существующего. Если True и файл с таким именем есть, то ничего не происходит. 0

@HYDRA8 3 / 3 / 0 Регистрация: 09.11.2016 Сообщений: 88 Записей в блоге: 2
	27.11.2016, 00:03 [ТС]	16
	А почему когда программа без формы то код ' не знает ' команды(функции) IntToStr ? 0

@MyEternity 97 / 97 / 25 Регистрация: 25.04.2016 Сообщений: 525
	27.11.2016, 00:06	18
	Сообщение от HYDRA8 А почему когда программа без формы то код ' не знает ' команды(функции) IntToStr ? Вредничает она. А по теме - "команда" в юните, который не подключается в приложении "без формы". 0

@northener
	27.11.2016, 00:34 #19
	Не по теме: Сообщение от AHBAR А лучше сохранять добавляя в имя файла текущую дату и время Присоединяюсь. Только зачем лишние переменные и процедуры, когда есть FormatDateTime? 0

@HYDRA8 3 / 3 / 0 Регистрация: 09.11.2016 Сообщений: 88 Записей в блоге: 2
	01.12.2016, 00:42 [ТС]	20
	А как сделать чтобы файл копировался из любой папки в которую его занес пользователь ? 0