Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Копирование файлов [D7, XP]

Tornado © (2009-06-23 09:11:00)
Имеем простенькую прогу которая должна в определенное время по таймеру копировать файл из одной директории в другую. Код:
procedure TForm1.Timer1Timer(Sender: TObject); var Nachalo, TekTime:string; begin Nachalo:= Edit1.Text; TekTime := FormatDateTime('h:m', now); if TekTime = Nachalo then begin if FileExists('d:\sss.rar') then begin CopyFile('d:\sss.rar','d:\server\htdocs\sss.rar',true); Timer1.Enabled := false; end; end; end;

Время вводим в Edit1 в формате 00:00 Но почему то файл то копируется то нет, не пойму закономерности. Почему так может происходить?

Dennis I. Komarov (2009-06-23 12:02:00) [1]

> На самом деле файл копируется допустим в 8.00 и после окончания
> рабочего дня в 17.00 должен удалятся по второму таймеру:

Для этого разработчики MS уже все написали...

Плохиш (2009-06-23 11:50:00) [2]

> Tornado (23.06.09 11:48) [13]
>
>
> > Плохиш © (23.06.09 10:56) [11]
>
> Как же преобразовать в правильный формат?

А в справке, что написано?

Tornado (2009-06-23 11:48:00) [3]

> Плохиш © (23.06.09 10:56) [11]

Как же преобразовать в правильный формат?

brother (2009-06-23 11:13:00) [4]
Удалено модератором

Плохиш (2009-06-23 10:56:00) [5]

> Время вводим в Edit1 в формате 00:00

> TekTime := FormatDateTime( 'h:m', now);
>

А теперь раскажи в какой формат, по справке, твоё время будет преобразовано?

clickmaker (2009-06-23 10:53:00) [6]
if TekTime >=Nachalo then begin
if FileExists('d:\sss.rar'') then begin
CopyFile('d:\sss.rar'','d:\server\sss.rar'', false);

Tornado (2009-06-23 10:11:00) [7]

> brother © (23.06.09 09:25) [3]

Вообщем я привел только часть. На самом деле файл копируется допустим в 8.00 и после окончания рабочего дня в 17.00 должен удалятся по второму таймеру:
procedure TForm1.Timer1Timer(Sender: TObject); var Nachalo, TekTime:string; begin Nachalo:= Edit1.Text; TekTime := FormatDateTime('h:m', now); if TekTime = Nachalo then begin if FileExists('d:\sss.rar'') then begin CopyFile('d:\sss.rar'','d:\server\sss.rar'',true); Timer1.Enabled := false; Timer2.Enabled := true; end; end; end; procedure TForm1.Timer2Timer(Sender: TObject); var dd,f:string; begin dd:= Edit2.Text; f := FormatDateTime('h:m', now); if f = dd then begin if FileExists('d:\server\sss.rar') then begin DeleteFile('d:\server\sss.rar''); end; Timer1.Enabled := true; Timer2.Enabled := false; end; end;

прога просто тупо для копирования/удаления :) Не более того. Может подскажите как лучше реализовать?

brother (2009-06-23 10:09:00) [8]
> 1000 мс

поставь чуть больше)

Tornado (2009-06-23 10:08:00) [9]

> brother © (23.06.09 09:15) [1]

1000 мс

Dennis I. Komarov (2009-06-23 09:33:00) [10]

> таймер копирования одноразовый? )

не факт :)

> CopyFile('d:\sss.rar','d:\server\htdocs\sss.rar',true);
>
> Timer1.Enabled := false;

brother (2009-06-23 09:33:00) [11]
нет, это начинающие начали писать крутые проги!

Медвежонок Пятачок (2009-06-23 09:32:00) [12]
это называется "хулиганы в подъезде отняли отладчик"

brother (2009-06-23 09:25:00) [13]
> Timer1.Enabled := false;

таймер копирования одноразовый? )

Медвежонок Пятачок (2009-06-23 09:22:00) [14]
даже если попадешь в интервал, то последний параметр в КопиФайл не даст скопировать файл, если существует 'd:\server\htdocs\sss.rar'

brother (2009-06-23 09:15:00) [15]
интервал таймера какой?
если больше минуты, то тупо не попадаешь в указаное время...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »