Текущий архив: 2009.08.23;
Скачать: CL | DM;

Вниз

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

← →
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);

---

← →
Плохиш ©   (2009-06-23 10:56) [11]

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


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

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

---

← →
brother ©   (2009-06-23 11:13) [12]

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

---

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

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

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

---

← →
Плохиш ©   (2009-06-23 11:50) [14]

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

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

---

← →
Dennis I. Komarov ©   (2009-06-23 12:02) [15]

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


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

---

Страницы: 1 вся ветка

Текущий архив: 2009.08.23;
Скачать: CL | DM;

Наверх

Память: 0.5 MB
Время: 0.012 c