1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
{}
const
opt_task :PAnsiChar = 'Task';
opt_tasks :PAnsiChar = 'Tasks';
opt_count :PAnsiChar = 'numtasks';
opt_name :PAnsiChar = 'name';
opt_flags :PAnsiChar = 'flags';
opt_action :PAnsiChar = 'action';
opt_repeat :PAnsiChar = 'repeat';
opt_days :PAnsiChar = 'dayoffset';
opt_intdays :PAnsiChar = 'intdays';
opt_time_lo :PAnsiChar = 'starttime_lo';
opt_time_hi :PAnsiChar = 'starttime_hi';
opt_interval_lo:PAnsiChar = 'interval_lo';
opt_interval_hi:PAnsiChar = 'interval_hi';
opt_lastcall_lo:PAnsiChar = 'lastcall_lo';
opt_lastcall_hi:PAnsiChar = 'lastcall_hi';
procedure SaveTasks;
var
section:array [0..63] of AnsiChar;
p,p1:PAnsiChar;
i,amount:integer;
begin
DBDeleteGroup(0,DBBranch,opt_tasks);
amount:=0;
p1:=StrCopyE(section,opt_tasks);
p1^:='/'; inc(p1);
p1:=StrCopyE(p1,opt_task);
for i:=0 to MaxTasks-1 do
begin
if (TaskList[i].flags and ACF_ASSIGNED)=0 then
continue;
p:=StrEnd(IntToStr(p1,amount));
p^:='/'; inc(p);
with TaskList[i] do
begin
StrCopy(p,opt_flags ); DBWriteDWord (0,DBBranch,section,flags);
StrCopy(p,opt_name ); DBWriteUnicode(0,DBBranch,section,name);
StrCopy(p,opt_action); DBWriteDWord (0,DBBranch,section,action);
StrCopy(p,opt_repeat); DBWriteWord (0,DBBranch,section,count);
StrCopy(p,opt_days ); DBWriteByte (0,DBBranch,section,dayoffset);
//systemtime to filetime if needs
StrCopy(p,opt_time_lo ); DBWriteDWord(0,DBBranch,section,starttime.dwLowDateTime);
StrCopy(p,opt_time_hi ); DBWriteDWord(0,DBBranch,section,starttime.dwHighDateTime);
StrCopy(p,opt_interval_lo); DBWriteDWord(0,DBBranch,section,interval .dwLowDateTime);
StrCopy(p,opt_interval_hi); DBWriteDWord(0,DBBranch,section,interval .dwHighDateTime);
StrCopy(p,opt_intdays ); DBWriteByte (0,DBBranch,section,intdays);
StrCopy(p,opt_lastcall_lo); DBWriteDWord(0,DBBranch,section,lastcall .dwLowDateTime);
StrCopy(p,opt_lastcall_hi); DBWriteDWord(0,DBBranch,section,lastcall .dwHighDateTime);
end;
inc(amount);
end;
DBWriteByte(0,DBBranch,opt_count,amount);
end;
function LoadTasks:integer;
var
section:array [0..63] of AnsiChar;
p,p1:PAnsiChar;
i:integer;
begin
MaxTasks:=DBReadByte(0,DBBranch,opt_count);
result:=MaxTasks;
if MaxTasks>0 then
begin
GetMem (TaskList ,MaxTasks*SizeOf(tTaskRec));
FillChar(TaskList^,MaxTasks*SizeOf(tTaskRec),0);
p1:=StrCopyE(section,opt_tasks);
p1^:='/'; inc(p1);
p1:=StrCopyE(p1,opt_task);
for i:=0 to MaxTasks-1 do
begin
p:=StrEnd(IntToStr(p1,i));
p^:='/'; inc(p);
with TaskList[i] do
begin
StrCopy(p,opt_flags ); flags :=DBReadDWord (0,DBBranch,section);
StrCopy(p,opt_name ); name :=DBReadUnicode(0,DBBranch,section);
StrCopy(p,opt_action); action :=DBReadDWord (0,DBBranch,section);
StrCopy(p,opt_days ); dayoffset:=DBReadByte (0,DBBranch,section);
//!! smallint?
StrCopy(p,opt_repeat); count :=Shortint(DBReadWord(0,DBBranch,section));
StrCopy(p,opt_time_lo ); starttime.dwLowDateTime :=DBReadDWord(0,DBBranch,section);
StrCopy(p,opt_time_hi ); starttime.dwHighDateTime:=DBReadDWord(0,DBBranch,section);
StrCopy(p,opt_interval_lo); interval .dwLowDateTime :=DBReadDWord(0,DBBranch,section);
StrCopy(p,opt_interval_hi); interval .dwHighDateTime:=DBReadDWord(0,DBBranch,section);
StrCopy(p,opt_intdays ); intdays:=DBReadByte(0,DBBranch,section);
StrCopy(p,opt_lastcall_lo); lastcall .dwLowDateTime :=DBReadDWord(0,DBBranch,section);
StrCopy(p,opt_lastcall_hi); lastcall .dwHighDateTime:=DBReadDWord(0,DBBranch,section);
// filetime to systemtime if needs
end;
end;
end;
end;
|
