Festo SBO***-Q Series, Manual

Page: 229 / 256

A. Technical appendix
A-47
Festo P.BE-SBO-Q-EN en 1602e
! −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
! Procedure GetVersion
! Description:
! Procedure sends a version request to the camera.
! The answer will be stored in the local variable ’cameraVersion’.
! The answer will be written on the FlexPendant too.
!
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
PROC GetVersion()
VAR string cameraVersion := ””;
CheckConnectionStatus;
! Important !
! Any camera command must be terminated by ’\0D\0A’
SocketSend ComSocket \Str := ”VERSION\0D\0A”;
SocketReceive ComSocket \Str := cameraVersion;
TPWrite cameraVersion;
ENDPROC
! −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
! Procedure ImageTrigger
! Description:
! Procedure sends an IMAGE command to the camera.
! The command performs a complete evaluation.
! The telnet server returns ’1 OK: operation successful.’ if the
! requested command succeeded, an appropriate error message otherwise.
!
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
PROC ImageTrigger()
VAR string triggerReturn := ””;
CheckConnectionStatus;
! Important !
! Any camera command must be terminated by ’\0D\0A’
SocketSend ComSocket \Str := ”IMAGE\0D\0A”;
! The ’IMAGE’ command sends return value only after image processing has
! finished and the time required depends on the check program
! configuration.
SocketReceive ComSocket \Str := triggerReturn;
! Important !
! Any camera response is terminated by ’\0D\0A’
IF triggerReturn <> ”1 OK: operation successful.\0D\0A” THEN
TPWrite triggerReturn;
stop;
ENDIF
ENDPROC