hikserver32.pas

ＤＥＬＰＨＩ开发包

  备　注：    可返回ＳＤＫ２的注册状态，用于软件外部判断
-------------------------------------------------------------------------------}
function Get_SDK_Reg: Boolean; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Send_Mail
  功　能：　　发送电子邮件
  开　发：    SelonSoft
  日　期：    2007.10.11
  参　数：    TSmtp, TUser, TPass, TGetMail, TTOMail, TSubject, TMailText: string
  返回值：    Boolean
  备　注：
-------------------------------------------------------------------------------}
function Send_Mail
  (
  //邮件服务器域名，用户名，密码，发送信箱，目的信息，主题，信件正文内容
  TSmtp, TUser, TPass, TGetMail, TTOMail, TSubject, TMailText: string
  ): Boolean; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Get_LocalIP
  功　能：　　获取本地ＩＰ
  开　发：    SelonSoft
  日　期：    2007.10.11
  参　数：    无
  返回值：    PChar
  备　注：
-------------------------------------------------------------------------------}
function Get_LocalIP: PChar; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Get_Protocol_List
  功　能：　　获取云台解码器控制协议列表
  开　发：    SelonSoft
  日　期：    2007.10.11
  参　数：    var List: TStringList
  返回值：    Boolean
  备　注：    目前ＳＤＫ２内部集成140种解码器协议，涵盖众多主流解码器厂家产品
-------------------------------------------------------------------------------}
function Get_Protocol_List
  (
  var List: TStringList                 //返回ＳＤＫ２支持的云台解码控制协议列表
  ): Boolean; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Protocol_RemotContrl
  功　能：　　控制云台动作指令
  开　发：    SelonSoft
  日　期：    2007.10.11
  参　数：    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 Protocol_RemotContrl
  (
  //串口号，协议编号,云台地址，动作编号
  T_Com, T_Driv, T_Adr, T_Act: Byte;
  Is_Stop: Boolean = False              //默认不停止
  ): Boolean; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Send_Server_Command
  功　能：　　给正连接在该通道上的所有客户端发送命令码
  开　发：    SelonSoft
  日　期：    2007.10.11
  参　数：    Channels_Index, Command: Byte
  返回值：    Boolean
  备　注：
-------------------------------------------------------------------------------}
function Send_Server_Command
  (
  //通道索引号，命令码
  Channels_Index, Command: Byte
  ): Boolean; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Send_String_Client
  功　能：　　给客户端发送消息字符串
  开　发：    SelonSoft
  日　期：    2007.10.11
  参　数：    ClientIP, SendStr: PChar
  返回值：    Boolean
  备　注：
-------------------------------------------------------------------------------}
function Send_String_Client
  (
  //客户端ＩＰ，发送内容
  ClientIP, SendStr: PChar
  ): 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_Ena
  (
  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 Share_Resource_Dis
  (
  ServerName: PChar;
  NetName: PChar
  ): 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;

{-------------------------------------------------------------------------------
  过程名：　  Check_Channel_State
  功　能：　　获取通道工作状态
  开　发：    SelonSoft
  日　期：    2007.11.02
  参　数：    Channel_Index: Byte
  返回值：    TChannelState
  备　注：
-------------------------