Festo SBO***-Q Series, Руководство пользователя

Страница: 230 / 256

A. Technical appendix
A-48
Festo P.BE-SBO-Q-EN en 1602e
! −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
! Procedure ChangeProgram
! Description:
! Procedure sends an CHANGEPRG command to the camera.
! The argument progNum is the requested program number.
! The telnet server returns ’1 OK: operation successful.’
! if the requested command succeeded, an appropriate error message
! otherwise.
!
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
PROC ChangeProgram( string progNum )
VAR string changeProgReturn := ””;
CheckConnectionStatus;
! Important !
! Any camera command must be terminated by ’\0D\0A’
SocketSend ComSocket \Str := ”CHANGEPRG ” + p ”\0D\0A”;
SocketReceive ComSocket \Str := changeProgReturn;
! Important !
! Any camera response is terminated by ’\0D\0A’
IF changeProgReturn <> ”1 OK: operation successful.\0D\0A” THEN
TPWrite changeProgReturn;
stop;
ENDIF
ENDPROC
! −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
! Procedure GetFlagWord
! Description:
! Procedure sends a RFW command to the camera.
! The argument Offset is the flagword address of the data which
! should be returned.
! The telnet server returns ’1 OK: operation successful.’ if the
! requested command succeeded, an appropriate error message
! otherwise.
!
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
PROC GetFlagWord( string Offset )
VAR string flagWord := ””;
VAR num Value := 0;
VAR bool ok := FALSE;
CheckConnectionStatus;
! Important !
! Any camera command must be terminated by ’\0D\0A’
SocketSend ComSocket \Str := ”RFW ” + ”\0D\0A”;