При попытке подключиться вылетает иключение в контролле.
PHP код:
CASE status OF
INIT:
ServerSocket := SysSockCreate(SOCKET_AF_INET, SOCKET_STREAM, SOCKET_IPPROTO_TCP, ADR(resultSysSockCreate));
Addres.sin_family := SOCKET_AF_INET;
Addres.sin_addr.ulAddr := SOCKET_INADDR_ANY;
Addres.sin_port := SysSockHtons(usHost:= 1000);
IF resultSysSockCreate = Errors.ERR_OK THEN
IF SysSockIoctl(hSocket:= ServerSocket, diCommand:= SOCKET_FIONBIO, pdiParameter:= ADR(mode)) = Errors.ERR_OK THEN
status := CONNECT;
END_IF
END_IF
CONNECT:
IF SysSockBind(ServerSocket, ADR(Addres), SIZEOF(Addres)) = Errors.ERR_OK THEN
status := LISTEN;
END_IF
LISTEN:
IF SysSockListen(ServerSocket, 1) = Errors.ERR_OK THEN
ConnectSocket := SysSockAccept(ServerSocket, ADR(Addres), SIZEOF(Addres), ADR(result));
END_IF
IF ConnectSocket <> -1 THEN
status := WORK;
END_IF
WORK: