L-force | plc designer – Lenze PLC Designer PLC Designer (R3-1) User Manual

Page 1089

Text mode
Original mode

L-force | PLC Designer

Programming Reference



DMS 4.1 EN 03/2011 TD29

1087

Example:

INTERFACE ItfBase EXTENDS __System.IQueryInterface
METHOD mbase : BOOL
END_METHOD

INTERFACE ItfDerived EXTENDS ItfBase
METHOD mderived1 : BOOL
END_METHOD

FUNCTION_BLOCK FBVariante IMPLEMENTS ITFDerived

PROGRAMM POU
VAR
itfderived : ItfDerived;
insV : FBVariante;
xResult, xTest : BOOL;
pVar: POINTER TO DWORD;
END_VAR
itfderived := insV;
xResult := __QUERYPOINTER(itfderived, pVar);
IF xResult THEN
xTest := pVar.mderived();
END_IF