ПЛК для обмена 700 словами по Ethernet UDP

[capzap]

у меня сейчас проверять не начем
но вот же код count := TcpReceiveData(Client.diSocket, ADR(BUF_RCV[0]), SIZEOF(BUF_RCV));
если count равна -1 нет соединения, если равно нулю соединение есть и нет данных, если больше нуля данные есть можно обрабатывать
вывод если соединение есть а данных нет длительное время то ОС разорвет соединение и программе надо где то в это же время или чуть раньше перезапустить сервер

[Филоненко Владислав]

UdpOpenSend(Receive)Socket наверное?

[Maestro777]

UDPopenReceiveSocket.png
Я нажимаю на нее, и показывает его только блоком. Может быть возможно как-то включить детализацию кода этой функции?
Но на англоязычном форуме КДС, я находил примеры. И там эта функция была расписана так:

diSocket:=SysSockCreate(SOCKET_AF_INET, SOCKET_DGRAM, 0); (* открыли сокет типа Datagram для UDP по умолчанию 0*)
sa.sin_family:=SOCKET_AF_INET;
sa.sin_addr:=SOCKET_INADDR_ANY; (* с любого адреса получать данные *)
sa.sin_port:=SysSockHtons(iPort);
bResult:=SysSockBind(diSocket, ADR(sa), SIZEOF(sa)); (*завязались *)
IF bResult = FALSE THEN (*если неудачно то diSocket:= -1 ну или SOCKET_INVALID*)
diSocket:=SOCKET_INVALID;
END_IF
UdpOpenReceiveSocket:=diSocket;

Я так и создаю сокет для UDP

[Филоненко Владислав]

Так саму библиотеку загрузите как проект

[Филоненко Владислав]

1, IP задаём как DWORD
2. SOCKET_SO_BROADCAST - он и так включён по умолчанию вот и работает
3. GetIPAddress - это что за функция?
Мы пользуемся SysSockGetHostByName(), куда можно подавать как IP в символьном виде "10.2.1.1", так и имя "my_own_pupkin.server.net", если оно доступно через DNS

Возвращает 1-й IP из ответа DNS сервера или 0 если не получен ответ.
P.S. IP DNS серверов должны быть прописаны в local_adress.dat (ну или включён режим DHCP), иначе не работает

[Maestro777]

Правильно ли я понял ?
1. IPadr: DWORD:=16#A0006B; (*10.0.6.11*)
2. Как Вы научили открыл NetVarUDP_lib_V23 и там в FUN UdpSendData был этот GetIPaddress.
diIPAddress := SysSockInetAddr(stIPAddress);
IF (stIPAddress = '255.255.255.255') THEN
(*Avoid name-resolution on our default broadcast address.*)
GetIPAddress:=diIPAddress;
RETURN ;
END_IF
IF diIPAddress = SOCKET_INADDR_NONE THEN
diIPAddress := SysSockGetHostByName(ADR(stIPAddress));
END_IF
GetIPAddress:=diIPAddress; Такой код
3. sa.sin_addr:=SysSockGetHostByName(IPadr);
символьный вид это так? sa.sin_addr:=SysSockGetHostByName(10.0.6.11); но это не компилируется.

[Филоненко Владислав]

GetIPaddress - это внутренняя функция библиотеки. Ишак не мой
Символьное - это "10.0.6.11"

[Maestro777]

Я, прошу прощенья, за глупые вопросы, но так не компилируется
sa.sin_addr:=SysSockGetHostByName("10.0.6.11");

Ошибка 4268: PLC_PRG (16): Необходимо выражение

Я так понял, IP DNS серверов должны быть прописаны в local_adress.dat только в случае указания в стиле имени "my_own_pupkin.server.net"

p.s. из любопытства фраза "Ишак не мой" из какого фильма, что-то знакомое а вспомнить не могу. :-)

[Филоненко Владислав]

ошибся, должно быть 'string'

P.S. Ходжа Нассредин бессмертен, однако.

[Maestro777]

удалось прописать string'ом через указатель
sa.sin_addr:=SysSockGetHostByName(ADR(stIPAddress) ); но на терминал ничего не приходит.
меняю на
sa.sin_addr:=SOCKET_INADDR_BROADCAST; посылка приходит на терминал (при прочих равных условиях).

Владислав, спасибо Вам большое за науку. Но что-то не получается. Если есть идеи, скажите, я их попытаюсь реализовать. В CoDeSys я всего неделю, и видимо зашел не с подножья, а с вершины горы. Поэтому такой результат.