Доброго дня! Делаю простую pin pong прогу (пока что). Комп посылает/принимает сообщения от ESP посылающего/принимающего сообщения.
Программа на компе выглядит так.
Type streams
Field stream
End Type
Global a$
tcp=CreateTCPServer(88)
Repeat
new_potok=AcceptTCPStream(tcp)
If new_potok
ss.streams=New streams
ss\stream=new_potok
WriteLine ss\stream,"HELLO client"
EndIf
For ss.streams=Each streams
DebugLog(ReadAvail(ss\stream))
If (ReadAvail(ss\stream))
Delay 100
If (ReadAvail(ss\stream))
a$=ReadLine(ss\stream)
DebugLog(a$+" !")
Print a$
While a>0
a$=ReadLine(ss\stream)
DebugLog(a$)
Wend
ss2.streams=New streams
ss2\stream=ss\stream
Delete(ss)
EndIf
EndIf
Next
Until KeyHit(1)
После компиляции и запуска прога как видно создает сервер. Отправляю, через прогу для общения с еспом(ESPlorer) , команды еспу с паролем логином и адресом портом и он коннектится получает сообщение "HELLO client". После чего через ESPlorer отправляю сообщение, а именно так. AT+CIPSEND= Число символов сообщения. То есть AT+CIPSEND=2 новая строка HI. И прога получает это сообщение! Но после происходит котовасия. Что бы ни писал как бы не посылал. Все время сообщение получает цыфру символов а не символы которые отправленны. То есть отсылаю тут же AT+CIPSEND=5 и сообщение Hello. Прога зацыкливается на цыфре 5 и гонит её из цыкла в цыкл ничго не принимая больше... В чем проблема кто может помочь? Если сервер создать на сторонней проге то все работает нормально.