occp.pas

开发呼叫中心时

unit Occp;

interface

uses Windows, SysUtils, Classes;

const
     OPE_OCCP_BIND	=$00000001;    //绑定连接请求
     OPE_OCCP_BIND_RESP	=$80000001;    //绑定连接应答
     OPE_OCCP_GENERIC_NACK_RESP	=$80000000;    //通用错误应答
     OPE_OCCP_ENQUIRE_LINK	=$00000002;    //查询连接请求
     OPE_OCCP_ENQUIRE_LINK_RESP	=$80000002;    //查询连接应答
     OPE_OCCP_UNBIND	=$00000003;    //解除绑定请求
     OPE_OCCP_UNBIND_RESP	=$80000003;    //解除绑定应答
     OPE_OCCP_CALLOUT	=$00000004;    //内线呼外线请求
     OPE_OCCP_CALLOUT_RESP	=$80000004;    //内线呼外线请求应答
     OPE_OCCP_CALLIN	=$00000005;    //内线呼内线请求
     OPE_OCCP_CALLIN_RESP	=$80000005;    //内线呼内线请求应答
     OPE_OCCP_EXCHOUT	=$00000006;    //内线呼转外线请求
     OPE_OCCP_EXCHOUT_RESP	=$80000006;    //内线呼转外线请求应答
     OPE_OCCP_EXCHIN	=$00000007;    //内线呼转内线请求
     OPE_OCCP_EXCHIN_RESP	=$80000007;    //内线呼转内线请求应答
     OPE_OCCP_SLINE	=$00000008;    //线路状态请求(服务端->话务台)
     OPE_OCCP_SLINE_RESP	=$80000008;    //线路状态请求应答
     OPE_OCCP_CLINE	=$00000009;    //查询线路状态请求
     OPE_OCCP_CLINE_RESP	=$80000009;    //查询线路状态请求应答
     OPE_OCCP_BUSY	=$00000010;    //示忙请求
     OPE_OCCP_BUSY_RESP	=$80000010;    //示忙请求应答
     OPE_OCCP_IDLE	=$00000011;    //示闲请求
     OPE_OCCP_IDLE_RESP	=$80000011;    //示闲请求应答
     OPE_OCCP_SPHONE	=$00000012;    //示闲请求
     OPE_OCCP_SPHONE_RESP	=$80000012;    //示闲请求应答
     OPE_OCCP_ANS =$00000014;
     OPE_OCCP_ANS_RESP =$80000014;
     OPE_OCCP_HUNGUP =$00000013;
     OPE_OCCP_HUNGUP_RESP =$80000013;

type
     OCCP_PDU_HEAD = record
            command_length:Cardinal;
            csopcode:Cardinal;
            command_status:Cardinal;
     end;

     OCCP_BIND = packed record
          OCCP_HEAD: OCCP_PDU_HEAD;
          Lineno:Array [1..3] of char;
          Deskno:Array [1..4] of char;
     end;

     OCCP_UNBIND = packed record
          OCCP_HEAD: OCCP_PDU_HEAD;
          Lineno:Array [1..3] of char;
     end;

     OCCP_CALLOUT = packed record
          OCCP_HEAD: OCCP_PDU_HEAD;
          Lineno:Array [1..3] of char;
          phonenumber:Array [1..15] of char;
     end;

     OCCP_CALLIN = packed record
          OCCP_HEAD: OCCP_PDU_HEAD;
          Lineno:Array [1..3] of char;
          Destno:Array [1..4] of char;
     end;

     OCCP_EXCHOUT = packed record
          OCCP_HEAD: OCCP_PDU_HEAD;
          Lineno:Array [1..3] of char;
          phonenumber:Array [1..15] of char;
     end;

     OCCP_EXCHIN = packed record
          OCCP_HEAD: OCCP_PDU_HEAD;
          Lineno:Array [1..3] of char;
          Destno:Array [1..4] of char;
     end;

     OCCP_SLINE = packed record
          Lineno:Array [1..3] of char;
          Linestate:Array [1..10] of char;
     end;

     OCCP_CLINE = packed record
          OCCP_HEAD: OCCP_PDU_HEAD;
          Lineno:Array [1..3] of char;
     end;

     OCCP_CLINE_RESP = packed record
          Lineno:Array [1..3] of char;
          Linestate:Array [1..10] of char;
     end;

     OCCP_BUSY = packed record
          OCCP_HEAD: OCCP_PDU_HEAD;
          Lineno:Array [1..3] of char;
     end;

     OCCP_IDLE = packed record
          OCCP_HEAD: OCCP_PDU_HEAD;
          Lineno:Array [1..3] of char;
     end;

     OCCP_SPHONE = packed record
          Lineno:Array [1..3] of char;
          Phonenumber:Array [1..15] of char;
          Spnumber:Array [1..15] of char;
     end;

     OCCP_ANS = packed record
          OCCP_HEAD: OCCP_PDU_HEAD;
          Lineno:Array [1..3] of char;
     end;

     OCCP_HUNGUP = packed record
          OCCP_HEAD: OCCP_PDU_HEAD;
          Lineno:Array [1..3] of char;
     end;

implementation

end.