|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Логирование процесcа копирования на Delphi |
|
Delphi - Логирование процесcа копирования на Delphi
|
![]() Новый участник Сообщения: 11 |
Доброго времени суток.
Есть простейшая процедура копирования файла Можно ли и какими методами результат этого процесса записать в лог файл? В формате например: дата,время,имя файла, выполнено(не выполнено) п.с. Либо это очень легко, либо очень сложно потому как ничего вразумительного при поиске не нашел. Заранее всем откликнувшемся благодарен. |
|
Отправлено: 10:28, 16-09-2011 |
Необычный Сообщения: 4463
|
Профиль | Сайт | Отправить PM | Цитировать Цитата OkSherd:
|
|
------- Отправлено: 11:35, 16-09-2011 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 280
|
Профиль | Отправить PM | Цитировать если много копифайлов, можно переопеределить CopyFile примерно так:
function CopyFile(f1,f2:pchar; fail_If_exist: boolean):boolean; begin //записать лог ... // // .. и скопировать result:=windows.copyFile(f1,f2,fail_If_exist); end; procedure TForm1.Button1Click(Sender: TObject); begin copyFile('c:\1.txt','d:\1.txt',true); //вызовется копифайл, опеределенный выше, а не стандартный end; |
------- Отправлено: 11:58, 16-09-2011 | #3 |
![]() Новый участник Сообщения: 11
|
Профиль | Отправить PM | Цитировать Цитата lxa85:
EHCO ON SET DOWN=d:\ SET UP=c:\ FOR %%i IN (%UP%*.TXT) DO ( COPY %%i %DOWN% && 1>>log.Log echo %date%; %time:~0,-3%; %%~fi; Скопировано || 1>>log.Log echo %date%; %time:~0,-3%; %%~fi; Неудача) Неужели такое невозможно сделать на delphi? |
|
Отправлено: 09:56, 19-09-2011 | #4 |
![]() Ветеран Сообщения: 1803
|
Профиль | Отправить PM | Цитировать Цитата OkSherd:
1.Создай переменную типа TStringList при открытии формы (Str:=TStringList.Create). 2. И при выполнении действий (до, после, или получай из обработки ошибки) записуй в него нужную информацию - Str.Add('...'). 3. При завершении программы сохрани Str.SaveToFile(Имя.log). 4. Освободи переменную (Str.Free). |
||
------- Отправлено: 23:53, 24-09-2011 | #5 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - [решено] Логирование в Bat_нике | camope3 | Скриптовые языки администрирования Windows | 4 | 22-06-2011 09:58 | |
Интернет - Логирование | setwolk | Программное обеспечение Windows | 13 | 07-02-2011 18:13 | |
CMD/BAT - [решено] Команда копирования файла с указанием времени копирования | Pozia | Скриптовые языки администрирования Windows | 6 | 16-10-2010 04:27 | |
CMD/BAT - Логирование действия | kosmo | Скриптовые языки администрирования Windows | 2 | 24-03-2010 16:23 | |
[решено] Логирование событий | Frost_Imp | AutoIt | 4 | 20-07-2009 22:22 |
|