Не удается установить связь по TCP-сокету из ПЛК-150 :(
Здравствуйте!
Никак не получается установить коннект из ПЛК-150 к ПК. Вот код:
CASE step OF
0:
sock:=SysSockCreate( SOCKET_AF_INET, SOCKET_STREAM, SOCKET_IPPROTO_TCP);
sock_adr.sin_addr:=16#6C01A8C0; {192.168.1.108 - IP ПК}
sock_adr.sin_family:=SOCKET_AF_INET;
sock_adr.sin_port:=5001;
sc := SysSockConnect( sock, ADR( sock_adr ), SIZEOF( sock_adr ) ); {sc = -1}
step:=1;
1:
tmr(IN:=start_TON,PT:=t#5s);
IF NOT start_TON THEN
start_TON:=TRUE;
END_IF
IF tmr.Q THEN
my_buf[0] := 5;
res:=SysSockSend(sock, ADR( my_buf ), SIZEOF( my_buf ), SOCKET_MSG_OOB );
start_TON:=FALSE;
END_IF
END_CASE
IP ПЛК - 192.168.1.205
Со стороны ПК пишу на Delphi 7 использую TServerSocket и уверен, что всё правильно.
Что я делаю не правильно?
