pascalSCADA OPM: MelsecDriver: Class TMelsecDriver

Pascal SCADA OPM

Class TMelsecDriver

Unit

MelsecDriver

Declaration

type TMelsecDriver = class(TProtocolDriver)

Description

TMelsecDriver

Hierarchy

Overview

Fields

Protected PFirstRequestLen:LongInt;
Protected PFuncByteOffset:LongInt;
Protected PCRCLen:LongInt;
Protected POutput_M_MaxHole:Cardinal;
Protected POutput_SM_MaxHole: Cardinal;
Protected POutput_L_MaxHole: Cardinal;
Protected POutput_F_MaxHole: Cardinal;
Protected POutput_V_MaxHole: Cardinal;
Protected POutput_X_MaxHole: Cardinal;
Protected POutput_Y_MaxHole: Cardinal;
Protected POutput_B_MaxHole: Cardinal;
Protected PRegisters_D_MaxHole:Cardinal;
Protected PRegisters_SD_MaxHole:Cardinal;
Protected FSerieCLP: TSeriesCLP;
Protected PInternalDelayBetweenCmds:Cardinal;
Protected PMelsecPLC:array of TMelsecPLC;

Methods

Protected function GetTagProperts(TagObj:TTag; var Station, Address, Size, RegType, ScanTime:LongInt):Boolean;
Protected procedure SetSerieCLP(NewSerieCLP:TSeriesCLP);
Protected procedure SetOutput_M_MaxHole(v:Cardinal);
Protected procedure SetOutput_SM_MaxHole(v:Cardinal);
Protected procedure SetOutput_L_MaxHole(v:Cardinal);
Protected procedure SetOutput_F_MaxHole(v:Cardinal);
Protected procedure SetOutput_V_MaxHole(v:Cardinal);
Protected procedure SetOutput_X_MaxHole(v:Cardinal);
Protected procedure SetOutput_Y_MaxHole(v:Cardinal);
Protected procedure SetOutput_B_MaxHole(v:Cardinal);
Protected procedure SetRegister_D_MaxHole(v:Cardinal);
Protected procedure SetRegister_SD_MaxHole(v:Cardinal);
Protected procedure BuildTagRec(plc,func,startaddress,size:LongInt; var tr:TTagRec);
Protected function EncodePkg(TagObj:TTagRec; ToWrite:TArrayOfDouble; var ResultLen:LongInt):BYTES; virtual;
Protected function DecodePkg(pkg:TIOPacket; out values:TArrayOfDouble):TProtocolIOResult; virtual;
Protected function RemainingBytesWrite(buffer:BYTES):LongInt; virtual;
Protected function RemainingBytesRead(buffer:BYTES; TagObj:TTagRec):LongInt; virtual;
Protected procedure DoAddTag(TagObj:TTag; TagValid:Boolean); override;
Protected procedure DoDelTag(TagObj:TTag); override;
Protected procedure DoScanRead(Sender:TObject; var NeedSleep:LongInt); override;
Protected procedure DoGetValue(TagObj:TTagRec; var values:TScanReadRec); override;
Protected function DoWrite(const tagrec:TTagRec; const Values:TArrayOfDouble; Sync:Boolean):TProtocolIOResult; override;
Protected function DoRead (const tagrec:TTagRec; out Values:TArrayOfDouble; Sync:Boolean):TProtocolIOResult; override;
Protected function PlcDeviceType(memReadWriteFunction: integer): integer; virtual;
Public constructor Create(AOwner:TComponent); override;
Public destructor Destroy; override;
Public function SizeOfTag(aTag:TTag; isWrite:Boolean; var ProtocolTagType:TProtocolTagType):BYTE; override;
Public procedure OpenTagEditor(InsertHook:TAddTagInEditorHook; CreateProc:TCreateTagProc); override;
Public function HasTabBuilderEditor: Boolean; override;

Properties

Protected property Output_M_MaxHole: Cardinal read POutput_M_MaxHole write SetOutput_M_MaxHole default 10;
Protected property Output_SM_MaxHole: Cardinal read POutput_SM_MaxHole write SetOutput_SM_MaxHole default 10;
Protected property Output_L_MaxHole: Cardinal read POutput_L_MaxHole write SetOutput_L_MaxHole default 10;
Protected property Output_F_MaxHole: Cardinal read POutput_F_MaxHole write SetOutput_F_MaxHole default 10;
Protected property Output_V_MaxHole: Cardinal read POutput_V_MaxHole write SetOutput_V_MaxHole default 10;
Protected property Output_X_MaxHole: Cardinal read POutput_X_MaxHole write SetOutput_X_MaxHole default 10;
Protected property Output_Y_MaxHole: Cardinal read POutput_Y_MaxHole write SetOutput_Y_MaxHole default 10;
Protected property Output_B_MaxHole: Cardinal read POutput_B_MaxHole write SetOutput_B_MaxHole default 10;
Protected property Register_D_MaxHole: Cardinal read PRegisters_D_MaxHole write SetRegister_D_MaxHole default 10;
Protected property Register_SD_MaxHole: Cardinal read PRegisters_SD_MaxHole write SetRegister_SD_MaxHole default 10;
Protected property SerieCLP: TSeriesCLP read FSerieCLP write SetSerieCLP default Serie_Q_L;
Protected property ReadOnly;

Description

Fields

Protected PFirstRequestLen:LongInt;
 
Protected PFuncByteOffset:LongInt;
 
Protected PCRCLen:LongInt;
 
Protected POutput_M_MaxHole:Cardinal;
 
Protected POutput_SM_MaxHole: Cardinal;
 
Protected POutput_L_MaxHole: Cardinal;
 
Protected POutput_F_MaxHole: Cardinal;
 
Protected POutput_V_MaxHole: Cardinal;
 
Protected POutput_X_MaxHole: Cardinal;
 
Protected POutput_Y_MaxHole: Cardinal;
 
Protected POutput_B_MaxHole: Cardinal;
 
Protected PRegisters_D_MaxHole:Cardinal;
 
Protected PRegisters_SD_MaxHole:Cardinal;
 
Protected FSerieCLP: TSeriesCLP;
 
Protected PInternalDelayBetweenCmds:Cardinal;
 
Protected PMelsecPLC:array of TMelsecPLC;
 

Methods

Protected function GetTagProperts(TagObj:TTag; var Station, Address, Size, RegType, ScanTime:LongInt):Boolean;
 
Protected procedure SetSerieCLP(NewSerieCLP:TSeriesCLP);
 
Protected procedure SetOutput_M_MaxHole(v:Cardinal);
 
Protected procedure SetOutput_SM_MaxHole(v:Cardinal);
 
Protected procedure SetOutput_L_MaxHole(v:Cardinal);
 
Protected procedure SetOutput_F_MaxHole(v:Cardinal);
 
Protected procedure SetOutput_V_MaxHole(v:Cardinal);
 
Protected procedure SetOutput_X_MaxHole(v:Cardinal);
 
Protected procedure SetOutput_Y_MaxHole(v:Cardinal);
 
Protected procedure SetOutput_B_MaxHole(v:Cardinal);
 
Protected procedure SetRegister_D_MaxHole(v:Cardinal);
 
Protected procedure SetRegister_SD_MaxHole(v:Cardinal);
 
Protected procedure BuildTagRec(plc,func,startaddress,size:LongInt; var tr:TTagRec);
 
Protected function EncodePkg(TagObj:TTagRec; ToWrite:TArrayOfDouble; var ResultLen:LongInt):BYTES; virtual;
 
Protected function DecodePkg(pkg:TIOPacket; out values:TArrayOfDouble):TProtocolIOResult; virtual;
 
Protected function RemainingBytesWrite(buffer:BYTES):LongInt; virtual;
 
Protected function RemainingBytesRead(buffer:BYTES; TagObj:TTagRec):LongInt; virtual;
 
Protected procedure DoAddTag(TagObj:TTag; TagValid:Boolean); override;
 
Protected procedure DoDelTag(TagObj:TTag); override;
 
Protected procedure DoScanRead(Sender:TObject; var NeedSleep:LongInt); override;
 
Protected procedure DoGetValue(TagObj:TTagRec; var values:TScanReadRec); override;
 
Protected function DoWrite(const tagrec:TTagRec; const Values:TArrayOfDouble; Sync:Boolean):TProtocolIOResult; override;
 
Protected function DoRead (const tagrec:TTagRec; out Values:TArrayOfDouble; Sync:Boolean):TProtocolIOResult; override;
 
Protected function PlcDeviceType(memReadWriteFunction: integer): integer; virtual;
 
Public constructor Create(AOwner:TComponent); override;
 
Public destructor Destroy; override;
 
Public function SizeOfTag(aTag:TTag; isWrite:Boolean; var ProtocolTagType:TProtocolTagType):BYTE; override;
 
Public procedure OpenTagEditor(InsertHook:TAddTagInEditorHook; CreateProc:TCreateTagProc); override;
 
Public function HasTabBuilderEditor: Boolean; override;
 

Properties

Protected property Output_M_MaxHole: Cardinal read POutput_M_MaxHole write SetOutput_M_MaxHole default 10;
 
Protected property Output_SM_MaxHole: Cardinal read POutput_SM_MaxHole write SetOutput_SM_MaxHole default 10;
 
Protected property Output_L_MaxHole: Cardinal read POutput_L_MaxHole write SetOutput_L_MaxHole default 10;
 
Protected property Output_F_MaxHole: Cardinal read POutput_F_MaxHole write SetOutput_F_MaxHole default 10;
 
Protected property Output_V_MaxHole: Cardinal read POutput_V_MaxHole write SetOutput_V_MaxHole default 10;
 
Protected property Output_X_MaxHole: Cardinal read POutput_X_MaxHole write SetOutput_X_MaxHole default 10;
 
Protected property Output_Y_MaxHole: Cardinal read POutput_Y_MaxHole write SetOutput_Y_MaxHole default 10;
 
Protected property Output_B_MaxHole: Cardinal read POutput_B_MaxHole write SetOutput_B_MaxHole default 10;
 
Protected property Register_D_MaxHole: Cardinal read PRegisters_D_MaxHole write SetRegister_D_MaxHole default 10;
 
Protected property Register_SD_MaxHole: Cardinal read PRegisters_SD_MaxHole write SetRegister_SD_MaxHole default 10;
 
Protected property SerieCLP: TSeriesCLP read FSerieCLP write SetSerieCLP default Serie_Q_L;
 
Protected property ReadOnly;
 

Generated by PasDoc 0.14.0.