Копирование файлов

← →
Tornado (2009-06-23 09:11) [0]

Имеем простенькую прогу которая должна в определенное время по таймеру копировать файл из одной директории в другую. Код:
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 Но почему то файл то копируется то нет, не пойму закономерности. Почему так может происходить?

← →
brother © (2009-06-23 09:15) [1]

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

← →
Медвежонок Пятачок © (2009-06-23 09:22) [2]

даже если попадешь в интервал, то последний параметр в КопиФайл не даст скопировать файл, если существует "d:\server\htdocs\sss.rar"

← →
brother © (2009-06-23 09:25) [3]

> Timer1.Enabled := false;

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

← →
Медвежонок Пятачок © (2009-06-23 09:32) [4]

это называется "хулиганы в подъезде отняли отладчик"

← →
Dennis I. Komarov © (2009-06-23 09:33) [5]

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

не факт :)

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

← →
brother © (2009-06-23 09:33) [6]

нет, это начинающие начали писать крутые проги!

← →
Tornado (2009-06-23 10:08) [7]

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

1000 мс

← →
brother © (2009-06-23 10:09) [8]

> 1000 мс

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

← →
Tornado (2009-06-23 10:11) [9]

> 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;

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

← →
clickmaker © (2009-06-23 10:53) [10]

if TekTime >= Nachalo then begin
if FileExists("d:\sss.rar"") then begin
CopyFile("d:\sss.rar"","d:\server\sss.rar"",false);

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

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

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

Удалено модератором

← →
Tornado (2009-06-23 11:48) [13]

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

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

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

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

Копирование файлов Найти похожие ветки