|
|
|
|
- Example: call to a procedure
Example: call to a procedure //------------------------------------------------ clDotNet is ClassEventManagement  clDotNet:add_m_LogHandler(DotNetDelegate("Proc_Handler", ... "EventHandler<DllDotNetDelegate.MsgEvent>")) clDotNet:add_m_LogHandler(DotNetDelegate("Proc_Test", ... "EventHandler<DllDotNetDelegate.MsgEvent>"))  clDotNet:SendAMessage(gsStringSent)
//-------------------------------------------------  PROCEDURE Proc_Test(src, args)  //Global variable to indicate that the delegate was called gbDelegateCalled = True  sString is string = args:get_Message() pclMyObj is MsgEvent dynamic = args  IF sString = gsStringSent THEN Info("1) OK: the string passed as parameter via the delegate"  ... "is identical to the string received") ELSE Info("1) The string passed as parameter via the delegate " + ... "is not identical to the string received. "+ ... sString + " instead of " + gsStringSent) END  IF pclMyObj:get_Message() = gsStringSent THEN Info("2) OK: the string passed as parameter via the delegate"  ... "is identical to the string received") ELSE Info("2) The string passed as parameter via the delegate " + ... "is not identical to the string received. "+ ... pclMyObj:get_Message() + " instead of " + gsStringSent) END
This page is also available for…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|