Omron NX102-12 Series - Page 428

Internal
variables
Variable Data type Initial value Comment
PutResult ARRAY[0..0] OF
_sFTP_FILE_RE-
SUL
T
[(Name := '', TxError := False,
RemoveError := False, Re-
served := [4(16#0)])]
Uploaded file results
Stage UINT 0 Instruction execution
stage
Trigger BOOL FALSE Execution condition
BackupToMe-
moryCard_in-
stance
BackupToMemory-
Card
Instance of BackupToMe-
moryCard instruction
// 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 instan
ce.
Execute := FALSE) ;
FTPPutFile_instance( // Initialize instan
ce.
Execute := FALSE,
ConnectSvr := FTPAddr,
SvrDirName := '/Backup/yyyy-mm-dd',
LocalDirName := '/',
FileName := '*.*',
PutFileResult := PutResult) ;
END_IF;
IF (DoFTPTrigger = TRUE) THEN
CASE Stage OF
1 : // Execute BackupToM
emoryCard instruction.
BackupToMemoryCard_instance(
Execute := TRUE) ; // Execution
IF (BackupToMemoryCard_instance.Done = TRUE) THEN
Stage := INT#2; // To next stage
ELSIF (BackupToMemoryCard_instance.Error = TRUE) THEN
12 FTP Client
12-12
NJ/NX-series CPU Unit Built-in EtherNet/IP Port User’s Manual (W506)