Форум: "Начинающим";
Текущий архив: 2009.08.23;
Скачать: [xml.tar.bz2];
Вниз
Копирование файлов Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.004 c
