God I hate people using KIDE.....beta application (just my opinion)
I'm so sorry. I don't know how to use another program.
Code
.PROGRAM Main()
port = 8882
ip[1] = 127
ip[2] = 0
ip[3] = 0
ip[4] = 1
max_length = 255
res = 0
IF sock_cnt >= 1 THEN
CALL close_socket
END
CALL opon_socket
IF sock_id < 0 THEN
GOTO exit_end
END
WHILE 1 DO
;CALL recv
CALL send
END
exit_end:
.END
.PROGRAM opon_socket()
.er_cnt=0
connect:
TCP_CONNECT sock_id,port,ip[1]
IF sock_id<0 THEN
IF .er_cnt >= 3 THEN
PRINT "ERROR"
ELSE
.er_cnt = .er_cnt+1
PRINT "Error",sock_id, "error count =",.er_cnt
GOTO connect
END
ELSE
PRINT "Connect OK =",sock_id
END
.END
.PROGRAM close_socket()
;IF sock_cnt >= 1 THEN
TCP_CLOSE res,sock_id
;END
.END
.PROGRAM send ()
buf_n = 1
DECOMPOSE .p[0] = #HERE
$posToPC= $ENCODE (/ln, .p[0])
TCP_SEND sret, sock_id, $posToPC, buf_n
IF sret < 0 THEN
PRINT "Not send"
ELSE
PRINT "Send OK"
END
.END
Display More