ПЛК100 HTTP POST

[PavelGO]

Здравствуйте. Помогите советом, пожалуйста.
Удалённо: ПЛК - Роутер - (Инет) - Роутер - СерверАпач = Передача и прием работает.
Напрямую: ПЛК - СерверАпач = Постоянный ретрансмишн и до HTTP дело не доходит.
----------------------Wireshark--------------
172252 2513.393191 192.168.1.100 192.168.1.155 TCP 60 452 → 9908 [SYN] Seq=0 Win=512 Len=0
171975 2510.079455 192.168.1.100 192.168.1.155 TCP 60 [TCP Retransmission] 451 → 9908 [SYN] Seq=0 Win=512 Len=0
---------------------
Код взят с этого сайта:

network_counter:=network_counter+1;
IF network_counter > http_period THEN
    network_counter:=0;
    IF network_status <> 0 THEN
         network_time_out:=network_time_out+1; (* счетчик таймаутов *)
            out5:=FALSE;(*лампа связь выкл*)
    END_IF

    network_status:=1;
    connect_counter:=0;
    srv_adr.sin_addr:=IP_srv_16;
    srv_adr.sin_family:=SOCKET_AF_INET;
    srv_adr.sin_port:=STRING_TO_INT(PORT_srv_str);
    IF sock>0 THEN SysSockClose(sock); END_IF;

END_IF

    CASE network_status OF
    1:    (* создаём сокет *)
        sock := SysSockCreate(SOCKET_AF_INET, SOCKET_STREAM, SOCKET_IPPROTO_TCP);
        IF sock<>16#FFFFFFFF THEN
            network_status:=2;
            SysSockIoctl(sock,SOCKET_FIONBIO,ADR(param_ctrl));
        END_IF

    2:    (* коннектимся и сидим в этой ветке пару секунд пока не пройдёт коннект *)
        IF     connect_counter = 0 THEN
            SysSockConnect(sock, ADR(srv_adr), SIZEOF(srv_adr));
        END_IF;

        connect_counter:=connect_counter+1;
        IF     connect_counter > connect_pause THEN
            connect_counter:=0;
            network_status:=3;
        END_IF

    3:    (* посылаем запрос *)
            GenPost(GenOutStringEnc());
            sz_http_post_out:= LEN_string(http_post_out);
            SysSockSend(sock, ADR(http_post_out),sz_http_post_out, SOCKET_MSG_OOB);

            network_status:=4;

    4:     (* читаем сокет пока не встретим END *)
        byte_r:=SysSockRecv(sock, ADR(http_otvet), 512, SOCKET_MSG_OOB);

        IF FIND(http_otvet, 'END' ) > 0 THEN (* нашли END значит всё ок, ответ получили *)
            network_status:=0;
            http_otvet_prev:=http_otvet; (* сюда сохраняем ответ здесь будет блок его обработки*)
            Explode(http_otvet_prev,15);
            Command_executor();
            out5:=TRUE;(*лампа связь есть вкл*)
            p:=ADR(http_otvet);
            FOR i:=0 TO 511 DO
                    p1:=p+i;
                      p1^:=0;
            END_FOR
        END_IF
    END_CASE
RETURN;