生活随笔
收集整理的這篇文章主要介紹了
TCP/IP 通信示例
小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
TCP/IP 通信示例
Global String ReadData_P_All$, ReadData_P$(10), data$ '
Global Preserve Double x
Global Integer foundnumber_PFunction TCPServerSetNet #201, "192.168.0.1", 4000, CRLF, NONE, 0OpenNet #201 As ClientWaitNet #201Print "TCP Connected"Integer iDoIf ChkNet(201) > 0 ThenLine Input #201, ReadData_P_All$Print "ReadData-p:", ReadData_P_All$ParseStr ReadData_P_All$, ReadData_P$(), ","foundnumber_P = UBound(ReadData_P$())Print "foundnumber_P=", foundnumber_P, "RP", Len(ReadData_P_All$)If ReadData_P$(UBound(ReadData_P$())) = "#" ThenFor i = 0 To UBound(ReadData_P$())ReadData_P$(i) = ""Next iEndIfEndIfIf data$ <> "" ThenPrint #201, data$data$ = ""EndIfLoop
Fend
總結(jié)
以上是生活随笔為你收集整理的TCP/IP 通信示例的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。
