hikclient32.pas

ＤＥＬＰＨＩ开发包

  参　数：    T_Com, T_Driv, T_Adr, T_Act: Byte; Is_Stop: Boolean = False
  返回值：    Boolean
  备　注：    无须直接操作串口，相同指令不同参数即可完成云台的全部标准动作
  附动作值如下：
  上-0　下-1　左-2　右-3　光圈开-4　光圈关-5　远距离聚焦-6　近距离聚焦-7
  镜头拉近-8　镜头拉远-9　雨刷开关-11　灯光开关-12　电源开关-15
-------------------------------------------------------------------------------}
function Remot_Contrl
  (
  //串口号，协议编号,云台地址，动作编号
  T_Com, T_Driv, T_Adr, T_Act: Byte;
  Is_Stop: Boolean = False              //默认不停止
  ): Boolean; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Autorun_Reg
  功　能：　　设置随ＷＩＮＤＯＷＳ自动运行
  开　发：    SelonSoft
  日　期：    2007.10.11
  参　数：    IsAutoRun: Boolean; RegText, Appname: PChar
  返回值：    无
  备　注：
-------------------------------------------------------------------------------}
procedure Autorun_Reg
  (
  IsAutoRun: Boolean;                   //是否自动运行，为真表示自动运行
  RegText, Appname: PChar               //自动运行注册键值，自动运行的程序完整路径
  ); stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Autorun_Reg_Exists
  功　能：　　判断指定的程序是否已经设置为自动运行
  开　发：    SelonSoft
  日　期：    2007.10.11
  参　数：    RegText, Appname: PChar
  返回值：    Boolean
  备　注：    根据自动运行注册键值，自动运行的程序完整路径两个参数来判断
-------------------------------------------------------------------------------}
function Autorun_Reg_Exists
  (
  RegText, Appname: PChar               //自动运行注册键值，自动运行的程序完整路径
  ): Boolean; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  AutoLogin_NT
  功　能：　　设置ＮＴ自动登录
  开　发：    SelonSoft
  日　期：    2007.10.11
  参　数：    DefaultDomainName, DefaultUserName, DefaultPassword, AutoLogon: PChar
  返回值：    无
  备　注：    ＷＩＮＤＯＷＳ　ＮＴ以上系统有效
-------------------------------------------------------------------------------}
procedure AutoLogin_NT
  (
  DefaultDomainName, DefaultUserName, DefaultPassword, AutoLogon: PChar
  ); stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Share_Resource
  功　能：　　设置共享资源
  开　发：    SelonSoft
  日　期：    2007.10.11
  参　数：    ServerName: PChar; FilePath: PChar; NetName: PChar; Remark: PChar; ShareType: Byte; Flags: Word; RWPass: PChar; ROPass: PChar
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Share_Resource
  (
  ServerName: PChar; FilePath: PChar;
  NetName: PChar; Remark: PChar;
  ShareType: Byte; Flags: Word;
  RWPass: PChar; ROPass: PChar
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Delete_Share
  功　能：　　
  开　发：    SelonSoft
  日　期：    2007.10.11
  参　数：    ServerName: PChar; NetName: PChar
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Delete_Share
  (
  ServerName: PChar;
  NetName: PChar
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  NetShareAdd
  功　能：　　
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    ServerName: PChar; ShareLevel: SmallInt; Buffer: Pointer; Size: Word
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function NetShareAdd
  (
  ServerName: PChar;
  ShareLevel: SmallInt;
  Buffer: Pointer;
  Size: Word
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  NetShareDel
  功　能：　　
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    ServerName: PChar; NetName: PChar; Reserved: Word
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function NetShareDel
  (
  ServerName: PChar;
  NetName: PChar;
  Reserved: Word
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Run_Service
  功　能：　　
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    Service_name: PChar; Is_Eabled: Boolean
  返回值：    无
  备　注：
-------------------------------------------------------------------------------}
procedure Run_Service
  (
  Service_name: PChar;
  Is_Eabled: Boolean
  ); stdcall; external HikRunSDK;       //禁用或启动一个服务程序

{-------------------------------------------------------------------------------
  过程名：　  net_share
  功　能：　　
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    Is_share: Boolean
  返回值：    无
  备　注：
-------------------------------------------------------------------------------}
procedure net_share
  (
  Is_share: Boolean
  ); stdcall; external HikRunSDK;       //打开或关闭网络共享

{-------------------------------------------------------------------------------
  过程名：　  SvrNameTo_IP
  功　能：　　
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    const SvrName: PChar
  返回值：    PChar
  备　注：
-------------------------------------------------------------------------------}
function SvrNameTo_IP
  (
  const SvrName: PChar
  ): PChar; stdcall; external HikRunSDK; //域名转IP地址

{-------------------------------------------------------------------------------
  过程名：　  Net_Connection
  功　能：　　建立远程连接
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    xPath, xNetUser, xNetPassword: PChar
  返回值：    PChar
  备　注：
-------------------------------------------------------------------------------}
function Net_Connection
  (
  //xPath: 远程路径  xNetUser/xNetPassword: 可以指定用户名及密码
  xPath, xNetUser, xNetPassword: PChar
  ): PChar; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Net_DisConnection
  功　能：　　注销远程连接
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    xPath: PChar
  返回值：    PChar
  备　注：    mPath如果传入远程路径,则断开与远程路径的网络连接
              如果传入本地驱动器名,则断开本地驱动器
-------------------------------------------------------------------------------}
function Net_DisConnection
  (
  xPath: PChar                          //远程路径
  ): PChar; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Login_RemoteComputer
  功　能：　　登录远端计算机
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    AComputerName, AUserName, APassword: PChar
  返回值：    无
  备　注：
-------------------------------------------------------------------------------}
procedure Login_RemoteComputer
  (
  //计算机名称，用户名，密码
  AComputerName, AUserName, APassword: PChar
  ); stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  LogOut_RemoteComputer
  功　能：　　注销登录远端计算机
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    AComputerName: PChar
  返回值：    无
  备　注：
-------------------------------------------------------------------------------}
procedure LogOut_RemoteComputer
  (
  AComputerName: PChar                  //计算机名称
  ); stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Download_File
  功　能：　　下载文件
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    Source, Dest: PChar
  返回值：    Boolean
  备　注：
-------------------------------------------------------------------------------}
function Download_File
  (
  //源地址，目标地址
  Source, Dest: PChar
  ): Boolean; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Get_DiskSpace
  功　能：　　获取指定盘符的总空间和剩余空间
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    Disk: PChar; var TotalBytes, TotalFree: double
  返回值：    Boolean
  备　注：
-------------------------------------------------------------------------------}
function Get_DiskSpace
  (
  Disk: PChar;                          //指定磁盘盘符（如C/D/E...）
  var TotalBytes, TotalFree: double     //返回总空间，剩余空间
  ): Boolean; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Run_Command_Exec
  功　能：　　输入参数执行命令或程序
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    handle: HWND; lpOperation, execname, workparam, workpath: string; ShowCmd: Integer
  返回值：    无
  备　注：
-------------------------------------------------------------------------------}
procedure Run_Command_Exec
  (
  handle: HWND;                         //进程句柄
  //执行参数；执行程序文件名；运行参数；工作路径
  lpOperation, execname, workparam, workpath: string;
  ShowCmd: Integer                      //窗口显示方式
  ); stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  MadeMd5
  功　能：　　MD5加密
  开　发：    SelonSoft
  日　期：    2007.12.16
  参　数：    Str: PChar
  返回值：    PChar
  备　注：
-------------------------------------------------------------------------------}
function MadeMd5
  (
  Str: string                           //原始字符
  ): string; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  EncodeData
  功　能：　　加密
  开　发：    SelonSoft
  日　期：    2007.12.16
  参　数：    Str: PChar
  返回值：    PChar
  备　注：    返回加密后的密文字符
-------------------------------------------------------------------------------}
function EncodeData
  (
  Str: string                           //原始字符
  ): string; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  DecodeData
  功　能：　　解密
  开　发：    SelonSoft
  日　期：    2007.12.16
  参　数：    Str: PChar
  返回值：    PChar
  备　注：    返回解密后的明文字符
-------------------------------------------------------------------------------}
function DecodeData
  (
  Str: string                           //原始字符
  ): string; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Base64Encode
  功　能：　　Base64加密
  作　者：    SelonSoft
  日　期：    2008.01.05
  参　数：    const s: string
  返回值：    string
  备　注：
-------------------------------------------------------------------------------}
function Base64Encode(const s: string): string; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Base64Decode
  功　能：　　Base64解密
  作　者：    SelonSoft
  日　期：    2008.01.05
  参　数：    const s: string
  返回值：    string