Страница 2 из 2 ПерваяПервая 12
Показано с 11 по 12 из 12

Тема: TCP клиент на ПМ01+ПЛК154

  1. #11
    Пользователь Аватар для capzap
    Регистрация
    25.02.2011
    Адрес
    Киров
    Сообщений
    10,290
    Bad programmers worry about the code. Good programmers worry about data structures and their relationships

    среди успешных людей я не встречала нытиков
    Барбара Коркоран

  2. #12

    По умолчанию

    Организовал отправку пакетов AT командами(примеров в интернете куча), все бы хорошо, но вылезает неприятный момент: при отправке вместе с пакетом данных отправлялась фраза "AT+CIPSEND", хотя задержку между чтением/записью в порт организовывал, менял задержки, теперь вместе с пакетами еще выползает кусок пакета, не оборванный, а именно кусок повторный(не более 10 байт). Во вложении что получаю видно.


    Код:
    8:
    		IF queue_size>0 THEN
    			SysComWrite(com_num,ADR(Set_AT_CIPSEND),LEN(Set_AT_CIPSEND),0);
    			master:=90;
    		ELSE master:=102; END_IF
    
    90:
    		IF Wait1.Q THEN
    			ComRead(rcvStr=>rcvStr); result:=1;
    			IF FIND(rcvStr,'>')>0 THEN
    				master:=9;
    			ELSE  master:=8; END_IF
    			IF FIND(rcvStr,'ERROR')>0 THEN
    				master:=3; END_IF
    		END_IF
    
    9:
    		
    		WHILE queue_size>0 DO
    		
    				toSend:=QUEUE_POLL(); //выьираем из очереди накопившиеся пакеты
    				SysComWrite(com_num,ADR(toSend),BYTE_TO_INT(toSend[2]),0);
    			
    		END_WHILE
    
    		IF queue_size=0 THEN
    			master:=100;
    		END_IF
    
    100:
    			SysComWrite(com_num,ADR(Set_26),SIZEOF(Set_26),0);
    			master:=101;
    
    101:
    		IF Wait.Q THEN
    			ComRead(rcvStr=>rcvStr); result:=1;
    			IF FIND(rcvStr,'SEND OK')>0 THEN
    					master:=102;
    			ELSE  master:=102; END_IF
    
    			IF FIND(rcvStr,'CLOSED')>0 OR FIND(rcvStr,'ERROR')>0  THEN
    				Set_AT:='AT+CIPCLOSE$R';
    				SysComWrite(com_num,ADR(Set_AT),LEN(Set_AT),0);
    				master:=3; END_IF
    		END_IF
    102:
    			ComRead(rcvStr=>rcvStr); result:=1;
    			IF queue_size>0 THEN
    					master:=8;
    			END_IF
    Изображения Изображения

Страница 2 из 2 ПерваяПервая 12

Похожие темы

  1. TCP клиент на SysLibSockets
    от Carter в разделе ПЛК1хх
    Ответов: 45
    Последнее сообщение: 12.10.2015, 16:09
  2. ПЛК100 TCP клиент
    от DmitriyFara в разделе ПЛК1хх
    Ответов: 2
    Последнее сообщение: 08.04.2015, 12:13
  3. TCP клиент - ПЛК100
    от DmitriyFara в разделе ПЛК1хх
    Ответов: 3
    Последнее сообщение: 28.03.2015, 16:54
  4. ПЛК154-lectus tcp/ip
    от Columbariy в разделе ПЛК1хх
    Ответов: 1
    Последнее сообщение: 26.01.2012, 22:07
  5. FTP клиент на ОВЕН ПЛК
    от Jumo в разделе Сетевые технологии
    Ответов: 12
    Последнее сообщение: 05.09.2011, 07:27

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •