{------------------------------------------------------------------------------}
{ÏîÄ¿Ãû³Æ£ºactuatorlib¶¯Ì¬¿â                                                   }
{µ¥ÔªÃû³Æ£ºactuatorlib.pas                                                     }
{°æ±¾°æ´Î£º3.2.1                                                               }
{¹¦ÄÜÃèÊö£º»ùÓÚÁ¸Ê³Ë®·ÖÒÇActuatorÇý¶¯·â×°µÄ Dll½Ó¿ÚͨѶ¿â                      }
{½¨Á¢ÈÕÆÚ£º2023-10-27                                                          }
{ÐÞ¸ÄÐ޸ģº2025-01-20                                                          }
{°æȨËùÓУºÀîÁ¼Í¥ liangtingli@outlook.com                                      }
{------------------------------------------------------------------------------}

unit ActuatorLib;

interface

//¾²Ì¬ÉùÃ÷ lib¿â
const
  actuator_dll = 'core\Actuator.dll'; {×Ô¶¨Òå¿â}

//Ǥ¼ñϵͳָÁî´úÂë
const
  PLC_READY_GRAIN = $01;        //Á¸ÖÖ×¼±¸ÃüÁî´úÂ루Á¸ÖÖÒÑÐ޸ģ©
  PLC_READY_FINISH = $02;       //·µ»Ø×¼±¸Íê³É
  PLC_DETECT_START = $03;       //¼ì²âÆô¶¯ÃüÁî
  PLC_DETECT_FINISH = $04;      //·µ»Ø¼ì²âÍê±Ï
  PLC_DEVICE_WR_RESET = $FE;    //É豸ˮ·ÖÒǸ´Î»ÃüÁî
  PLC_DEVICE_WR_FAULT = $FF;    //·µ»ØË®·ÖÒǹÊÕÏ´úÂë

//WRË®·ÖÒÇÖ¸Áî´úÂë
const
  WR_READY = $01;               //Ë®·ÖÒÇ×¼±¸Ö¸Áî
  WR_DETECT = $02;              //Ë®·ÖÒǼì²âÖ¸Áî
  WR_VERIFY = $03;              //Ë®·ÖÒÇУÑéÖ¸Áî
  WR_RESET = $04;               //Ë®·ÖÒǸ´Î»Ö¸Áî
  WR_GOODS = $05;               //Á¸ÖÖ±ä¸üÖ¸Áî

  WR_VALV01 = $07;              //ÉÏ·§ÃÅ¿ª
  WR_VALV02 = $08;              //ÉÏ·§ÃŹØ
  WR_VALV03 = $09;              //Ï·§ÃÅ¿ª
  WR_VALV04 = $0A;              //Ï·§ÃŹØ
  WR_VALV05 = $0B;              //Ë«·§ÃÅ¿ª
  WR_VALV06 = $0C;              //Ë«·§ÃŹØ
  WR_VIBRATE_01 = $0D;          //Õñ¶¯¿ª
  WR_VIBRATE_02 = $0E;          //Õñ¶¯¹Ø

////////////////////////////////////////////////////////////////////////////////
type
  {¶¨Òå»Øµ÷º¯ÊýÀàÐÍ}

  //Êý¾Ý»Øµ÷º¯Êý
  //typedef void(__stdcall* MESSAGE_HANDLER)(unsigned short *data, int nsize);
  TMessageCallBack = procedure(Data: PWord; Size: Integer); stdcall;

  //´ò¿ª·þÎñ¶Ë
  //int __stdcall StartTcpSlave(int nSlavePort, const char* szDevPort, int baud,
  //                            char parity, int data_bit, int stop_bit, int detectTimeout = 60,
  //                            int resetTimeout = 10, MESSAGE_HANDLER handler = NULL);
  function StartTcpSlave(nSlavePort: Integer;
                         szSerialPort: PChar; baud: Integer;
                         parity: Char; data_bit: Integer; stop_bit: Integer;
                         detectTimeout: Integer; resetTimeout: Integer;
                         handler: TMessageCallBack): Integer; stdcall; external actuator_dll;
  //ACTUATOR_API int __stdcall StartTcpSlave(void* waterDev, int nSlavePort,
  //                                        int detectTimeout = 60, int resetTimeout = 10, MESSAGE_HANDLER handler = NULL);
  function StartTcpSlaveEx(waterDev:Pointer; nSlavePort: Integer;
                         detectTimeout: Integer=60; resetTimeout: Integer=10;
                         handler: TMessageCallBack=nil ): Integer; stdcall; external actuator_dll;

  //¹Ø±Õ·þÎñ¶Ë
  //int __stdcall StopTcpSlave();
  function StopTcpSlave: Integer; stdcall; external actuator_dll;
////////////////////////////////////////////////////////////////////////////////

  {¶¨Òå Dllº¯Êýµ÷ÓÃÉêÃ÷}
  //´´½¨³õʼ»¯¿Í»§PLCÉ豸¾ä±úctx
  //strIp:   IPµØÖ·
  //nPort:   ÍøÂç¶Ë¿Ú
  //ACTUATOR_API void* CreatePlcDevice(const char* strIp, int nPort);
  function CreatePlcDevice(strIp:PChar; nPort:Integer):Pointer; stdcall; external actuator_dll;

  //´´½¨Ë®·ÖÒǾä±úctx
  //szSerialPort:   ´®¿ÚÃû
  //baud:       ²¨ÌØÂÊ
  //parity:     УÑéÀàÐÍ
  //data_bit:   Êý¾Ýλ
  //stop_bit:   ֹͣλ
  //ACTUATOR_API void* CreateWrDevice(const char* szSerialPort, int baud, char parity, int data_bit, int stop_bit);
  function CreateWrDevice(szSerialPort:PChar; baud:Integer; parity:Char; data_bit:Integer; stop_bit:Integer):Pointer; stdcall; external actuator_dll;

  //Á¬½Ó¿Í»§É豸»òË®·ÖÒÇ×°ÖÃ
  //ctxDev : É豸¾ä±ú
  //·µ»ØÖµ£ºÐ¡ÓÚ0 ±íʾ ´íÎó£¬
  //ACTUATOR_API int ConnectDevice(void* ctxDev);
  function ConnectDevice(ctxDev:Pointer):Integer; stdcall; external actuator_dll;

  //»ñȡ״̬»òÁ¸ÖÖ¸ü¸ÄÐÅÏ¢
  //ctxDev : É豸¾ä±ú
  //nState £º×´Ì¬×Ö£¬ÈçÏÂ״̬²»»áÖظ´
  //         0x01:  Á¸ÖÖÒÑÐÞ¸Ä
  //         0x03:  ¿ªÊ¼²âÊÔ
  //         0xFE:  ¸´Î»ÃüÁÓÅÏȼ¶×î¸ß
  //         ÆäËû£º ΪдÈë״̬
  //nGoodType: Á¸ÖÖ±àºÅ
  //         0x01:  СÂó,
  //         0x02:  Ë®µ¾
  //         0x03:  »Æ¶¹
  //         0x04:  ÓñÃ×
  //·µ»ØÖµ£º´ÓÈë²Î·µ»Ø ״̬×Ö¡¢Á¸ÖÖ±àºÅ¡¢Ö´Ðнá¹û(СÓÚ0--´íÎó)
  //ACTUATOR_API int ReadState(void* ctxDev, unsigned short* nState, unsigned short* nGrainType);
  function ReadState(ctxDev:Pointer; nState:PWord; nGrainType:PWord):Integer; stdcall; external actuator_dll;

  //д»Ø״̬
  //ctxDev : É豸¾ä±ú
  //nState £º×´Ì¬×Ö£¬ÈçÏÂ״̬²»»áÖظ´
  //         0x02:  ×¼±¸ÒÑÍê³É
  //         0x04:  ¼ì²âÍê³É
  //         0xFF:  Ë®·ÖÒǹÊÕÏ
  //·µ»ØÖµ£ºÐ¡ÓÚ0 ±íʾ ´íÎó£¬
  //ACTUATOR_API int WriteState(void* ctxDev, unsigned short nState);
  function ResponseState(ctxDev:Pointer; nState:Word):Integer; stdcall; external actuator_dll;

  //»Ø´«¼ì²âÊý¾Ý
  //ctxDev : É豸¾ä±ú
  //nDatas £ºÊý×飬Êý¾Ý˳ÐòÈçÏÂ
  //         Á¸ÖÖ±àÂë
  //         º¬Ë®ÂÊ£¬  È¡Õû = Ô­Öµ*100
  //         ÈÝÖرȣ¬  È¡Õû = Ô­Öµ*100
  //nSize  : Êý¾Ý¸öÊý
  //·µ»ØÖµ£ºÐ¡ÓÚ0 ±íʾ ´íÎó£¬
  //ACTUATOR_API int UploadData(void* ctxDev, unsigned short* nDatas, unsigned short nSize = 3);
  function UploadData(ctxDev:Pointer; nDatas:PWord; nSize:Word=3):Integer; stdcall; external actuator_dll;

  //Ï·¢ÃüÁîÐÅÏ¢
  //ctxDev : É豸¾ä±ú
  //nCmdType £ºÃüÁî×Ö£¬ÈçÏÂÃèÊö
  //         0x01:  Á¸ÖÖÒÑÐÞ¸Ä
  //         0x02:  ¿ªÊ¼²âÊÔ
  //         0x03:  У׼ÃüÁ¼´Îª±ê¶¨Ò³Ãæ¼ì²â°´Å¥ÃüÁ
  //nGoodType: Á¸ÖÖ±àºÅ
  //         0x01:  СÂó,
  //         0x02:  Ë®µ¾
  //         0x03:  »Æ¶¹
  //         0x04:  ÓñÃ×
  //         µ±nCmdType Ϊ0x02£¬0x03ʱ£¬²»Óÿ¼ÂÇÁ¸ÖÖ±àºÅ
  // nResponseSeconds: ÏìӦʱ¼ä£¬ÒÔÃë¼ÆËã
  // nResponseUSeconds: ÏìӦʱ¼ä£¬ÒÔ΢Ãî¼ÆË㣬ÈôСÓÚÃ룬ȫ²¿ÓÃ΢Ãî±íʾ¡£
  //·µ»ØÖµ£ºÐ¡ÓÚ0 ±íʾ ´íÎó£¬
  //ACTUATOR_API int SendCommands(void* ctxDev, unsigned short nCmdType, unsigned short nGrainType = 0, unsigned int nResponseSeconds = 0, unsigned int nResponseUSeconds = 500000);
  function SendCommands(ctxDev:Pointer; nCmdType:Word; nGrainType:Word=0; nResponseSeconds:Integer=20; nResponseUSeconds:Integer=0):Integer; stdcall; external actuator_dll;

  //¸´Î»ÃüÁî
  //ctxDev : É豸¾ä±úÖ¸Õë
  //·µ»ØÖµ£ºÎÞ£¬
  //ACTUATOR_API int __stdcall ResetCommand(void* ctxDev);
  function ResetCommand(ctxDev:Pointer):Integer;stdcall; external actuator_dll;

  //Ï·¢²ÎÊý
  //ctxDev : É豸¾ä±ú
  //nStartFreq £ºÆðʼƵÂÊ
  //nStopFreq £º ÖÕֹƵÂÊ
  //nStepFreq £º ²½³¤
  //nDecayCode £ºË¥¼õÂë
  //nAscValid £º ASC ÄÚ²¿/ÍⲿÓÐЧ£¬ ȡֵΪ 0£ºÄÚ²¿ÓÐЧ£¬ 1£ºÍⲿÓÐЧ
  //·µ»ØÖµ£ºÐ¡ÓÚ0 ±íʾ ´íÎó£¬
  //ACTUATOR_API int WriteParams(void* ctxDev,   unsigned short nStartFreq, unsigned short nStopFreq,
  //                          unsigned short nStepFreq,  unsigned short nDecayCode, unsigned short nAscValid);
  function WriteParams(ctxDev:Pointer; nStartFreq,nStopFreq,nStepFreq,nDecayCode,nAscValid:Word):Integer; stdcall; external actuator_dll;

  //¶ÁÈ¡¼ì²âÐÅÏ¢
  //ctxDev : É豸¾ä±ú
  //nDatas £ºÊý×飬Êý¾Ý˳ÐòÈçÏÂ
  //         µçѹֵ
  //         ÖØÁ¿ /100
  //         ÎÂ¶È /100
  //         ʪ¶È /100
  // nSize : ¶ÁÈ¡4¸ö¼Ä´æÆ÷
  //·µ»ØÖµ£ºÐ¡ÓÚ0 ±íʾ ´íÎó£¬
  //ACTUATOR_API int ReadDatas(void* ctxDev, unsigned short* nDatas, unsigned short nSize = 4);
  function ReadDatas(ctxDev:Pointer; nDatas:PWord; nSize:Word=4):Integer; stdcall; external actuator_dll;

  //¶ÁȡɨƵֵ,ÆäʵΪµçƽֵ£¬
  //ctxDev : É豸¾ä±ú
  //nVcc   £ºµçƽֵָÕë
  //·µ»ØÖµ£ºÐ¡ÓÚ0 ±íʾ ´íÎó£¬
  //ACTUATOR_API int ReadVcc(void* ctxDev, unsigned short* nVcc);
  function ReadVcc(ctxDev:Pointer; nVcc:PWord):Integer; stdcall; external actuator_dll;
  function ReadWeight(ctxDev:Pointer; nWg:PWord):Integer; stdcall; external actuator_dll;   
  function CalcValue(nDValue:Word; Coef0,Coef1,Coef2,Coef3,Coef4:double):double; stdcall; external actuator_dll;

  //Ïú»ÙË®·ÖÒÇ»òPLCÉ豸
  //ctxDev : É豸¾ä±úÖ¸Õë
  //·µ»ØÖµ£ºÐ¡ÓÚ0 ±íʾ ´íÎó£¬
  //ACTUATOR_API int DestroyDevice(void* ctxDev);
  function DestroyDevice(ctxDev:Pointer):Integer; stdcall; external actuator_dll;

  //¶Ï¿ªË®·ÖÒÇ»òPLCÉ豸Á¬½Ó
  //ctxDev : É豸¾ä±úÖ¸Õë
  //·µ»ØÖµ£ºÐ¡ÓÚ0 ±íʾ ´íÎó£¬
  //ACTUATOR_API int __stdcall Disconnect(void* ctxDev)
  function Disconnect(ctxDev:Pointer):Integer; stdcall; external actuator_dll;


  //Ëã·¨º¯Êý
  //x Ϊ²âÁ¿Öµ
  //y Ϊʵ¼ÊÖµ
  //n ΪÄâºÏ´ÎÊý
  //nSampleNumber Ñù±¾ÊýÁ¿
  //·µ»ØÖµ£ºÐ¡ÓÚ0 ±íʾ ´íÎó£¬
  //ACTUATOR_API int Linearize(float x[], float y[], double Coefficient[], const int n = 2, const int nSampleNumber = 5);
  function Linearize(x,y:PSingle; Coefficient:PDouble; n:integer=2; nSampleNumber:integer=5):Integer; stdcall; external actuator_dll;
  //ACTUATOR_API int __stdcall PolyNomialFit(double x[], double y[], double Coefficient[], const int nDegree = 3, const int nSampleNumber = 5);
  function PolyNomialFit(x,y:PDouble; Coefficient:PDouble; n:integer=2; nSampleNumber:integer=5):Integer; stdcall; external actuator_dll;

  //¶Á¹Ì¼þ°æ±¾ºÅ
  function ReadVersion(ctxDev:Pointer; Version:PWord; nSize:Word=2):Integer; stdcall; external actuator_dll;

  //¶ÁÈ¡¹ÊÕÏÂ룬
  //ctxDev :É豸¾ä±ú
  //nFaultCode :¹ÊÕÏÂë
  //0-Õý³£
  //1-ÉÏ·§ÃÅ¿¨×¡
  //2-Ï·§ÃÅ¿¨×¡
  //3-(䶨Òå)ÒÔ´ËÀàÍÆ
  //·µ»ØÖµ:СÓÚ0 ±íʾ ´íÎó
  //ACTUATOR API int stdcall ReadFaultCode(void* ctxDev, unsigned short* nFaultCode);
  function ReadFaultCode(ctxDev:Pointer; nFaultCode:PWord):Integer; stdcall; external actuator_dll;

implementation

end.