; E.EDA_Read - server event vykonavájúci čítanie vektora
BEGIN
RECORD NOALIAS (SD.EDA_ReadValuesFromVektor_Params_V1) _readParams
RECORD NOALIAS (SD.ARR_REAL) _values
INT _errorCode, _sessionId
TIME _bt, _et
; nastavenie timeoutu aktuálnej session na 10 sekúnd
CALL %EDA_GetSessionId(_sessionId)
CALL [E.EDA_Timeout] SetTimeout(_sessionId, 10.0) ASYNC ON (%GetParentProcessHBJ())
; načítanie vektora
_bt := %TimeFromItems(2016, 1, 1, 0, 0, 0, 0)
_et := %TimeFromItems(2017, 1, 1, 0, 0, 0, 0) - 1
_readParams[1]^structVersion := 1
CALL %EDA_ReadValuesFromVektorRec("test.timeout", _bt, _et, 0, _readParams, _values, 1, _errorCode)
IF _errorCode = 26 THEN
; ak načítanie neprebehne do daného timeoutu, tak návratový kód bude ERR_CANCELED
ENDIF
END |