Omron Sysmac NY512-1300, User Manual

Page: 322 / 460

11 FTP Client
11-12 NY-series Industrial Panel PC / Industrial Box PC Built-in EtherNet/IP Port User’s Manual (W563)
ST
// Prepare connected FTP server settings.
IF P_First_RunMode THEN
FTPAddr.Adr := '192.168.250.2';// Address
FTPAddr.PortNo := UINT#21; // Port number
FTPAddr.UserName := 'FtpUser'; // User name
FTPAddr.Password := '12345678'; // Password
END_IF;
// Accept trigger.
R_TRIG_instance(Trigger, UP_Q);
IF ( (UP_Q = TRUE) AND (BackupToMemoryCard_instance.Busy = FALSE) AND
(FTPPutFile_instance.Busy = FALSE) ) THEN
DoFTPTrigger := TRUE;
Stage := INT#1;
BackupToMemoryCard_instance( // Initialize instance.
Execute := FALSE) ;
FTPPutFile_instance( // Initialize instance.
Execute := FALSE,
ConnectSvr := FTPAddr,
SvrDirName := '/Backup/yyyy-mm-dd',
LocalDirName := '/',
FileName := '*.*',
PutFileResult := PutResult) ;
END_IF;
IF (DoFTPTrigger = TRUE) THEN
CASE Stage OF
1: // Execute BackupToMemoryCard instruction.
BackupToMemoryCard_instance(
Execute := TRUE, // Execution
IF (BackupToMemoryCard_instance.Done = TRUE) THEN
Stage := INT#2; // To next stage
ELSIF (BackupToMemoryCard_instance.Error = TRUE) THEN
Stage := INT#10; // Error end
END_IF;
2: // Execute FTPPutFile instruction.
Internal
Vari-
ables
Variable Data type Initial value Comment
R_TRIG_instance R_TRIG
Instance of R_TRIG
instruction
UP_Q BOOL FALSE Trigger output
FTPPutFile_in-
stance
FTPPutFile
Instance of FTPPutFile
instruction
DoFTPTrigger BOOL FALSE
Execution condition for
BackupToMemoryCard
and FTPPutFile
FTPAddr
_sFTP_CON-
NECT_SVR (Adr := '', PortNo := 0, User-
Name := '', Password := '') Connected FTP server
settings
PutResult
ARRAY[0..0] OF
_sFTP_FILE_RE-
SULT [(Name := '', TxError := False,
RemoveError := False,
Reserved := [4(16#0)])]
Uploaded file results
Stage UINT 0
Instruction execution
stage
Trigger BOOL FALSE Execution condition
BackupToMemo-
ryCard_instance BackupToMemory-
Card Instance of Backup-
ToMemoryCard instruction