Далее, если вы знакомы с языком программирования, например, Java, запустить сервер:
http://edn.embarcadero.com/article/31995
Я прикрепил вам код для языка программирования КAREL (да-да, вам он понадобится).
Я не успел проверить, работает код или нет (Он работал у меня с КAREL в RoboGuide и с PHP на удаленном сервере Linux.
Karel Code:
ROGRAM sockMsg
%STACKSIZE = 4000
%NOLOCKGROUP
%NOPAUSE=ERROR+COMMAND+TPENABLE
%ENVIRONMENT uif
%ENVIRONMENT sysdef
%ENVIRONMENT memo
%ENVIRONMENT kclop
%ENVIRONMENT bynam
%ENVIRONMENT fdev
%ENVIRONMENT flbt
%ENVIRONMENT regope
%INCLUDE klevccdf
%INCLUDE klevkeys
%INCLUDE klevkmsk
---------------------------------------------------------------------------------------------
VAR
file_var : FILE
tmp_int : INTEGER
tmp_str : STRING[128]
STATUS : INTEGER
entry : INTEGER
loop1 : BOOLEAN
reg1, r1IntVal: INTEGER
r1Type, run: BOOLEAN
r1RealVal: REAL
STATUS2: INTEGER
numReg: ARRAY [200] OF INTEGER
checkReg: ARRAY [200] OF BOOLEAN
realReg: ARRAY [200] OF REAL
i,j: INTEGER
BEGIN
SET_FILE_ATR(file_var, ATR_IA)
SET_VAR(entry, '*SYSTEM*','$HOSTS_CFG[3].$SERVER_PORT', 5000, STATUS)
-- Connect the tag
WRITE('Connecting..',CR)
MSG_CONNECT('C3:',STATUS)
WRITE(' CONNECT STATUS =',STATUS,CR)
loop1 = TRUE
IF STATUS = 0 THEN
WHILE loop1 = TRUE DO
WRITE('Opening FILE..',CR)
OPEN FILE file_var('rw','C3:')
STATUS = IO_STATUS(file_var)
IF STATUS = 0 THEN
FOR j=1 TO 1 DO
FOR i=1 TO 200 DO
tmp_str ='0123456789012345'
-- CNV_INT_STR(source, length, base, target)
-- GET_REG(register_no, real_flag, int_value, real_value, status)
GET_REG(i,checkReg,numReg,realReg,STATUS2)
CNV_INT_STR(numReg,1,10,tmp_str)
WRITE file_var(tmp_str::10)
WRITE('Wrote 126 Bytes',CR)
ENDFOR
ENDFOR
loop1 = FALSE;
WRITE('Closed FILE',CR)
CLOSE FILE file_var
ELSE
WRITE('ERROR Opening FILE',CR)
loop1 = FALSE
ENDIF
ENDWHILE
WRITE('Disconnecting..',CR)
MSG_DISCO('C3:',STATUS)
WRITE('Done.',CR)
ENDIF
END sockMSG
моделирование с RoboGuide
