KQCONNECT.dll 调用 setclock 闹铃设置

[yifan1008]

12．Bool SetClock(Addr as integer,Itime() as Date)
功能：考勤机具有外接打铃的功能。使用该函数可以用来设置一天之内的1-13次打铃时间表。但应该注意第一个时间点为零时，将不启用打铃功能。

参数说明：
Addr 与第三个函数相同。
Itime() 是一个日期型的一维数组，它的每个元素代表一个打铃时间点。最多只能设置13个打铃的时间点。

NOTE：使用者务必注意Itime() 数组的每个元素是以“HH：MM：SS”形式的日期数据。不要把“YY/MM/DD”格式的数据传给数组。

RETURN：设置成功返回TRUE，否则返回FALSE。

Example:
Var
Addr:integer;
BooleanFlag:Boolean;
Itime:array[1..13] of Ttime;

BooleanFlag:=Object.setclock(addr,Itime);

以上是dll的说明

下面调用


Var
TT:array[1..13] of Ttime;
begin
TT[1]:=i_t1.Time;
.
.
.
TT[13]:=i_t1.Time;

setclock(21,TT);
end;

types of actual and formal var parameters must be identical

[scroing]

沙发...

[xiaoming1984]

地板

[yifan1008]

csdn 怎么没有人气了？

[行云边]

帮顶

[IDWB]

要一个个设置的吧
for i:=1 to 13 do
setclock(21,TT[i]);

[yifan1008]

要传递一个数组值，给setclock 不要传递数组地址。

[summerice110]

没啥说的,只能顶下啦

[yifan1008]

procedure TF_KQDLL.Button1Click(Sender: TObject);
var
vtime:olevariant;
vt :array of ttime;
t1:VARIANT;
i:integer;
begin
t1:=StrToTime( FormatDateTime('HH:MM:SS',DateTimePicker1.Time));
vtime:=vararraycreate([1,13], varVariant);
for i:=1 to 13 do vtime[i]:=t1+i;
KQDLL.setclock(18,vtime);
end;

可以编译但执行时候提示类型不匹配？？？