modbusm.~pas

delphi实现的MODBUS主站程序

unit ModbusM;

interface

uses
  Windows, Messages, SysUtils, Classes, ExtCtrls, Forms;

type
  // arreglo de bytes que conforman el mensaje modbus y un puntero al mismo
  TDataByte = array of byte;
  PByte     = ^byte;

  // COM Port Baud Rates
  TComPortBaudRate = ( br110, br300, br600, br1200, br2400, br4800,
                       br9600, br14400, br19200, br38400, br56000,
                       br57600, br115200, br128000, br256000 );
  // COM Port Numbers
  TComPortNumber = ( pnCOM1, pnCOM2, pnCOM3, pnCOM4, pnCOM5, pnCOM6 );
  // COM Port Data bits
  TComPortDataBits = ( db5BITS, db6BITS, db7BITS, db8BITS );
  // COM Port Stop bits
  TComPortStopBits = ( sb1BITS, sb1HALFBITS, sb2BITS );
  // COM Port Parity
  TComPortParity = ( ptNONE, ptODD, ptEVEN, ptMARK, ptSPACE );
  // COM Port Hardware Handshaking
  TComPortHwHandshaking = ( hhNONE, hhRTSCTS );
  // COM Port Software Handshaking
  TComPortSwHandshaking = ( shNONE, shXONXOFF );

  TOnErrorEvent = procedure(Sender : TObject; const ErrorMsg : String) of Object;


  TModbusM = class(TComponent)
  private
    FTimer                     : TTimer; // para contar el QueryTimeOut
    FResponseReady             : TNotifyEvent;// Evento que informa que se recibi