documentation.HELP! Pascal SCADA OPM Documentation

pascalSCADA OPM: MelsecDriver: Class TMelsecDriver

Pascal SCADA OPM

previous page next page

Class TMelsecDriver

Description

Hierarchy

Fields

Methods

Properties

Unit

MelsecDriver

Declaration

type TMelsecDriver = class(TProtocolDriver)

Description

TMelsecDriver

Hierarchy

• TComponent
• TProtocolDriver
• TMelsecDriver

Overview

Fields

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

Methods

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

Properties

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

Description

Fields

	PFirstRequestLen:LongInt;

	PFuncByteOffset:LongInt;

	PCRCLen:LongInt;

	POutput_M_MaxHole:Cardinal;

	POutput_SM_MaxHole: Cardinal;

	POutput_L_MaxHole: Cardinal;

	POutput_F_MaxHole: Cardinal;

	POutput_V_MaxHole: Cardinal;

	POutput_X_MaxHole: Cardinal;

	POutput_Y_MaxHole: Cardinal;

	POutput_B_MaxHole: Cardinal;

	PRegisters_D_MaxHole:Cardinal;

	PRegisters_SD_MaxHole:Cardinal;

	FSerieCLP: TSeriesCLP;

	PInternalDelayBetweenCmds:Cardinal;

	PMelsecPLC:array of TMelsecPLC;

Methods

	function GetTagProperts(TagObj:TTag; var Station, Address, Size, RegType, ScanTime:LongInt):Boolean;

	procedure SetSerieCLP(NewSerieCLP:TSeriesCLP);

	procedure SetOutput_M_MaxHole(v:Cardinal);

	procedure SetOutput_SM_MaxHole(v:Cardinal);

	procedure SetOutput_L_MaxHole(v:Cardinal);

	procedure SetOutput_F_MaxHole(v:Cardinal);

	procedure SetOutput_V_MaxHole(v:Cardinal);

	procedure SetOutput_X_MaxHole(v:Cardinal);

	procedure SetOutput_Y_MaxHole(v:Cardinal);

	procedure SetOutput_B_MaxHole(v:Cardinal);

	procedure SetRegister_D_MaxHole(v:Cardinal);

	procedure SetRegister_SD_MaxHole(v:Cardinal);

	procedure BuildTagRec(plc,func,startaddress,size:LongInt; var tr:TTagRec);

	function EncodePkg(TagObj:TTagRec; ToWrite:TArrayOfDouble; var ResultLen:LongInt):BYTES; virtual;

	function DecodePkg(pkg:TIOPacket; out values:TArrayOfDouble):TProtocolIOResult; virtual;

	function RemainingBytesWrite(buffer:BYTES):LongInt; virtual;

	function RemainingBytesRead(buffer:BYTES; TagObj:TTagRec):LongInt; virtual;

	procedure DoAddTag(TagObj:TTag; TagValid:Boolean); override;

	procedure DoDelTag(TagObj:TTag); override;

	procedure DoScanRead(Sender:TObject; var NeedSleep:LongInt); override;

	procedure DoGetValue(TagObj:TTagRec; var values:TScanReadRec); override;

	function DoWrite(const tagrec:TTagRec; const Values:TArrayOfDouble; Sync:Boolean):TProtocolIOResult; override;

	function DoRead (const tagrec:TTagRec; out Values:TArrayOfDouble; Sync:Boolean):TProtocolIOResult; override;

	function PlcDeviceType(memReadWriteFunction: integer): integer; virtual;

	constructor Create(AOwner:TComponent); override;

	destructor Destroy; override;

	function SizeOfTag(aTag:TTag; isWrite:Boolean; var ProtocolTagType:TProtocolTagType):BYTE; override;

	procedure OpenTagEditor(InsertHook:TAddTagInEditorHook; CreateProc:TCreateTagProc); override;

	function HasTabBuilderEditor: Boolean; override;

Properties

	property Output_M_MaxHole: Cardinal read POutput_M_MaxHole write SetOutput_M_MaxHole default 10;

	property Output_SM_MaxHole: Cardinal read POutput_SM_MaxHole write SetOutput_SM_MaxHole default 10;

	property Output_L_MaxHole: Cardinal read POutput_L_MaxHole write SetOutput_L_MaxHole default 10;

	property Output_F_MaxHole: Cardinal read POutput_F_MaxHole write SetOutput_F_MaxHole default 10;

	property Output_V_MaxHole: Cardinal read POutput_V_MaxHole write SetOutput_V_MaxHole default 10;

	property Output_X_MaxHole: Cardinal read POutput_X_MaxHole write SetOutput_X_MaxHole default 10;

	property Output_Y_MaxHole: Cardinal read POutput_Y_MaxHole write SetOutput_Y_MaxHole default 10;

	property Output_B_MaxHole: Cardinal read POutput_B_MaxHole write SetOutput_B_MaxHole default 10;

	property Register_D_MaxHole: Cardinal read PRegisters_D_MaxHole write SetRegister_D_MaxHole default 10;

	property Register_SD_MaxHole: Cardinal read PRegisters_SD_MaxHole write SetRegister_SD_MaxHole default 10;

	property SerieCLP: TSeriesCLP read FSerieCLP write SetSerieCLP default Serie_Q_L;

	property ReadOnly;

---

Generated by PasDoc 0.14.0.

previous page start next page

Get in touch

Submit feedback about this site to:

• [email protected]