Добрый день
Помогите разобраться. Имею ПЛК110-60
хочу на нем реализовать TCP сервер
но почему-то НИКОГДА функция SysSockListen не возвращает TRUE.
вот код
sa.sin_family:=SOCKET_AF_INET;
sa.sin_addr:=SOCKET_INADDR_ANY;
sa.sin_port:=SysSockHtons(502);
CASE prog_step OF
0:
IF diSocket =SOCKET_INVALID THEN
diSocket:=SysSockCreate(SOCKET_AF_INET, SOCKET_STREAM,0); (*создание TCP-сокета*)
ELSE prog_step:=1;
END_IF
1:
bresBind := SysSockBind (diSocket, ADR(sa), SIZEOF( sa ) );
IF bresBind = TRUE THEN
prog_step:=2;
END_IF;
2:
bresListen := SysSockListen(diSocket, diMaxConnections );
IF bresListen = TRUE THEN
prog_step:=3;
END_IF
3:
diSocketClient := SysSockAccept( diSocket, ADR(saClient), SIZEOF(saClient));
IF diSocketClient<>SOCKET_INVALID THEN
prog_step:=4;
END_IF;
4:
res:= SysSockSend ( diSocketClient, ADR(byBuffer), diBufferSize, 0 ) ;
prog_step:=5;
5:
stClose:=SysSockClose(diSocket); (*закрытие сокета*)
prog_step:=6;
6:
;
END_CASE
prog_step останавливаеться на 2, а переменная bresListen всегад равна false. подскажите что я не так делаю.. Спасибо