Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Логирование процесcа копирования на Delphi

Ответить
Настройки темы
Delphi - Логирование процесcа копирования на Delphi

Аватара для OkSherd

Новый участник


Сообщения: 11
Благодарности: 1

Профиль | Отправить PM | Цитировать


Доброго времени суток.
Есть простейшая процедура копирования файла
Код: Выделить весь код
....
CopyFile ('d:\1.txt','d:\2.txt',true);
....
Можно ли и какими методами результат этого процесса записать в лог файл?
В формате например: дата,время,имя файла, выполнено(не выполнено)

п.с. Либо это очень легко, либо очень сложно потому как ничего вразумительного при поиске не нашел.
Заранее всем откликнувшемся благодарен.

Отправлено: 10:28, 16-09-2011

 

Аватара для lxa85

Необычный


Contributor


Сообщения: 4463
Благодарности: 994

Профиль | Сайт | Отправить PM | Цитировать


Цитата OkSherd:
ожно ли и какими методами результат этого процесса записать в лог файл? »
Перед командой CopyFile дать команду записи в лог файл?

-------
- Я не разрешаю тебе быть плохой! Потому что плохие люди совершают плохие поступки. А это нехорошо!
(Из наставлений 5 летней девочки своей младшей сестре)


Отправлено: 11:35, 16-09-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Старожил


Сообщения: 280
Благодарности: 54

Профиль | Отправить 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;

-------
carpe diem


Отправлено: 11:58, 16-09-2011 | #3


Аватара для OkSherd

Новый участник


Сообщения: 11
Благодарности: 1

Профиль | Отправить PM | Цитировать


Цитата lxa85:
Перед командой CopyFile дать команду записи в лог файл? »
Какую команду??? Есть ли какая нибудь функция или процедура логирования процесса копирования? Может я что то не понимаю или не правильно сформулировал вопрос. Для примера "нацарапал" батник
Код: Выделить весь код
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; Неудача)
в результате получился вот такой лог файл
Код: Выделить весь код
19.09.2011;  8:39:06; C:\1.txt; Скопировано
Неужели такое невозможно сделать на delphi?

Отправлено: 09:56, 19-09-2011 | #4


Аватара для opel431

Ветеран


Contributor


Сообщения: 1803
Благодарности: 714

Профиль | Отправить PM | Цитировать


Цитата OkSherd:
Неужели такое невозможно сделать на delphi? »
В кратце так.
1.Создай переменную типа TStringList при открытии формы (Str:=TStringList.Create).
2. И при выполнении действий (до, после, или получай из обработки ошибки) записуй в него нужную информацию - Str.Add('...').
3. При завершении программы сохрани Str.SaveToFile(Имя.log).
4. Освободи переменную (Str.Free).

-------
Хвала тому, кто встав среди камней, уча другого, сам будет умней.


Отправлено: 23:53, 24-09-2011 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Логирование процесcа копирования на Delphi

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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




 
Переход