代码如下:
unit DllExport;
interface
uses
windows, SysUtils;
type
TKzString = packed record
returnlength: byte; //?????
returnstring: array[0..255] of char;
end;
TReturnParam = packed record
lx: byte; //命令类型
mon: integer; //监视器号
cam: integer; //摄像头号
controlindex: integer; //镜头控制类型
Runtime: integer; //镜头控制时间,0为直至收到下一个控制命令,其它为动多长时间
param1, param2, param3, Param4: integer; //镜头控制的参数
end;
//lx=1 选取mon,
//lx=2 选取Cam
//lx=3 将Cam切至MON
//lx=4 镜头控掉
//矩阵库命令
function GetVideoMatrix(site, mon, cam, keyid: integer; var kzString: TkzString): boolean; stdcall; //
//得到矩阵切换命令
//输入 mon,cam 监视器号和镜头号
//keyID键盘ID号
//输出 kzstring,不超过255
function GetAudioMatrix(site, mon, cam, keyid: integer; var kzString: TkzString): boolean; stdcall;
function NeedGetMonitor(): boolean; stdcall;
function GetMonitor(site, mon,cam, keyid: integer; var kzString: TkzString): boolean; stdcall;
function GetControlCode(site,mon, cam, controlindex, param1, param2, param3, Param4, keyid: integer; var sendnostop: Boolean; var ConTime: Integ