Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.95/21: Рейтинг темы: голосов - 21, средняя оценка - 4.95
 Аватар для jkrnd
179 / 69 / 13
Регистрация: 22.12.2015
Сообщений: 2,648

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

11.12.2020, 18:52. Показов 4747. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Команда
Pascal
1
CopyFile('161231m.grf', '161231m.grf.bak', false);
не компилируется. Может я не подключил нужный модуль инструкцией uses или
в Lazaruse свои команды для копирования, переименования, удаления файлов?
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
11.12.2020, 18:52
Ответы с готовыми решениями:

Как скопировать canvas в файл bitmap перед этим создав файл
Есть Image1.canvas, нужно делать с него снимки сохранять под разными именами 1,2,3... .bmp; Как скопировать ИЗ bitmap на canvas я нашёл,...

Как скопировать файл в папку?
Существует директория, в которую нужно записывать файлы (желательно doc и pdf). Как можно осуществить перенос документа в директорию?...

Как скопировать файл без расширения
ребят есть папка в которой файл без расширения нужно этот файл както скопировать примеру в др папку с изменение именни Зар спс ...

7
Нарушитель
10225 / 5655 / 1257
Регистрация: 12.03.2015
Сообщений: 26,180
11.12.2020, 19:05
проставь курсор внутрь скобок и нажми ctrl+shift+пробел. Увидишь аргументы.
Сама функция в модуле windows.pas.
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33194 / 21480 / 8231
Регистрация: 22.10.2011
Сообщений: 36,848
Записей в блоге: 12
11.12.2020, 19:15
Лучший ответ Сообщение было отмечено jkrnd как решение

Решение

Модуль Windows в Лазарусе никому на фиг не нужен...

Pascal
1
uses ..., FileUtil;
, там есть все, что нужно для работы с файлами и папками.
1
 Аватар для jkrnd
179 / 69 / 13
Регистрация: 22.12.2015
Сообщений: 2,648
11.12.2020, 20:02  [ТС]
volvo, а как с флагами? cffOverwriteFile куда ставить если я хочу перезаписать существующий файл?
0
Модератор
 Аватар для D1973
9902 / 6440 / 2454
Регистрация: 21.01.2014
Сообщений: 27,335
Записей в блоге: 3
11.12.2020, 21:20
Цитата Сообщение от jkrnd Посмотреть сообщение
cffOverwriteFile куда ставить если я хочу перезаписать существующий файл?
Этот флаг по умолчанию установлен. Поэтому если надо включить перезапись - ничего дополнительно делать не надо. Другое дело если Вы хотите выключить эту опцию - тогда просто указываете либо пустое множество, чтобы отключить все возможные флаги,
Pascal
1
if CopyFile(Src, Dst, []) then ...
либо явно указываете только те, которые надо включить:
Pascal
1
if CopyFile(Src, Dst, , [cffCreateDestDirectory, cffPreserveTime]) then ...
0
 Аватар для jkrnd
179 / 69 / 13
Регистрация: 22.12.2015
Сообщений: 2,648
11.12.2020, 23:07  [ТС]
D1973, немного уточнений:
Pascal
1
CopyFile('161231m.grf', '161231m.grf.bak',[cffCreateDestDirectory, cffPreserveTime]);
Файл '161231m.grf' будет скопирован в ту же папку под именем '161231m.grf.bak' причём,
1) если файл с именем '161231m.grf.bak' существует, он будет перезаписан
2) если по каким-то причинам не существует директория назначения, она будет создана
3) время создания и изменения файла bak будет такое же как у копируемого файла
Правильно?

Добавлено через 20 минут
В хэлпе ещё и четвёртый параметр есть. Он отвечает за генерацию ошибки в случае неуспешного копирования.
Флаг cffPreserveTime (даты оригинала переносим в даты копии) мне нужен и перезапись нужна, остальное нет.
Pascal
1
CopyFile('161231m.grf', '161231m.grf.bak',[cffPreserveTime],false);
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33194 / 21480 / 8231
Регистрация: 22.10.2011
Сообщений: 36,848
Записей в блоге: 12
12.12.2020, 03:25
Цитата Сообщение от jkrnd Посмотреть сообщение
1) если файл с именем '161231m.grf.bak' существует, он будет перезаписан
С чего бы? Не будет. Ибо это не было указано в 3-ем параметре. Дефолтное значение было затерто, в новом про перезапись - ни слова.

Цитата Сообщение от jkrnd Посмотреть сообщение
Он отвечает за генерацию ошибки в случае неуспешного копирования.
За выброс исключения он отвечает.

Цитата Сообщение от jkrnd Посмотреть сообщение
Флаг cffPreserveTime (даты оригинала переносим в даты копии) мне нужен и перезапись нужна, остальное нет
Вот тогда приведенный код неправильный. Если программисту что-то нужно, и это что-то не совпадает с дефолтными значениями - то надо указывать то, что нужно полностью, а не надеяться, что часть, которая была дефолтной тоже применится в дополнение к выставленному принудительно. Не применится. Либо дефолт, либо строго то, что написал программист. Для того, что написано выше:

Pascal
1
CopyFile('161231m.grf', '161231m.grf.bak',[cffOverwriteFile, cffPreserveTime]); // четвертый параметр получит дефолтное значение false
1
12.12.2020, 03:50

Не по теме:

Цитата Сообщение от jkrnd Посмотреть сообщение
даты оригинала переносим
Вот давно самому интересно хоть что-то точное узнать про "даты оригинала".

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.12.2020, 03:50
Помогаю со студенческими работами здесь

Как скопировать файл в папку Windows?
собственно каким образом? так CopyFile(PChar(ParamStr(0)), PChar('C:\WINDOWS\'+ExtractFileName(ParamStr(0))), True) не копируется...

Как скопировать информацию в другой файл?
Я создал текстовый файл, содержащий матрицу 2х6. Вопрос: как скопировать ее в другой файл? Вот код: unit Unit1; interface uses ...

Как переименовать и одновременно скопировать файл
Как переименовать и одновременно скопировать файл в определенную директорию?

Как скопировать файл на рабочий стол и как запускать
Здравствуйте, я столкнулся с проблемой, я хотел вот так запустить программу winExec ('UserProfile\myfile.exe',SW_HIDE); Но не чего не...

Как скопировать файл из одной папки в другую?
Подскажыте пожалуйста, можно как-то при помощи Delphi скопировать любой файл с одной папкив другую?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru