Цитата:
IF desc<=0 THEN
desc:=SysSockCreate(SOCKET_AF_INET, SOCKET_STREAM, SOCKET_IPPROTO_TCP);
sockaddr. sin_family:=SOCKET_AF_INET;
sockaddr.sin_port:=100;
sockaddr.sin_addr:=0;
A:=SysSockBind (desc,ADR(sockaddr), SIZEOF(sockaddr));
ELSIF (NOT connectok) THEN
sockaddr. sin_family:=SOCKET_AF_INET;
sockaddr.sin_port:=22000;
{192.168.0.37}
sockaddr.sin_addr:=((192*256+168)*256+0)*256+37;
connectok:=SysSockConnect(desc, ADR(sockaddr), SIZEOF(sockaddr));
ELSIF connectok THEN
datatosend:='DATA_FROM_PLC';
SysSockSend (desc, ADR(datatosend), SIZEOF(datatosend), 0);
END_IF;
к сожелению в тему гляну только завтра утром (на ДВ уже вечер), поэтому ответить на возникшие вопросы не смогу. но буду рад любому предположению, т.к. уже моск сломал =\