Handle unbekannt (BEISPIEL)

 

Beispiel der CAA_Callback.Library:

Wenn der Handle nicht mehr bekannt ist, kann der Callback, wie in folgendem Beispiel gezeigt, gelöscht werden:

(* Callback definieren *)

cbDelete.eEvent := CB.BEFORE_RESET;

cbDelete.eClass := CB.ALL_CLASSES;

cbDelete.eSource := CB.ALL_SOURCES;

cbDelete.iPOUFunc := ADR(CAllbackBeforeReset);

(* alle Callbacks durchsuchen *)

FOR i:=1 TO CB.GetNumberActiveCallbacks() DO

(* Handle aufrufen*)

h := CB.GetHandleOfCallback(i);

(* wenn Callback gesucht *)

IF CB.GetCallback(h)=cbDelete THEN

(* Callback löschen *)

CB.UnregisterCallback(h);

EXIT;

END_IF

END_FOR