Hi
I'm having trouble getting big data
The data comes in a few pieces, but I want them all together
please help
TCP
Private Sub AStream_Client_NewData (Buffer() As Byte)
Log(Buffer)
'MyData Long '"0633064406270645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450'64506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064''50645064506450645064506450645064506450644506450645064506450645064450645064506450645064506445064506450645064506450644506450645064506450645064450645064506450645''06450644506450645064506450645064450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645''0645064506450645064506450645064506450645064506450645064506450645064506450645")
GSM.astream.Write("AT+CMGS=""").Write("099010100121").Write("""").Write(Array As Byte(13))
'GSM.SEndData(JoinStrings(Array As String("AT+CMGS=","""",mobile,"""")).GetBytes)
Delay(1500)
GSM.astream.Write(Buffer).Write(Array As Byte(0x1a))
End Sub
Private Sub AStream_Client_Error
End Sub
Private Sub ClientConnect()
socket.Close
Dim st As Stream = Null
Dim port As UInt = 1919
If socket.ConnectIP(Array As Byte(192,168,43,143),port) Then
st = socket.Stream
End If
If st = Null Then
Log(" failed connect.")
Return
End If
Astream2.Initialize(st, "Astream_Client_NewData", "Astream_Client_Error")
'Astream2.MaxBufferSize=?
End Sub
I'm having trouble getting big data
The data comes in a few pieces, but I want them all together
please help
TCP
Private Sub AStream_Client_NewData (Buffer() As Byte)
Log(Buffer)
'MyData Long '"0633064406270645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450'64506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064''50645064506450645064506450645064506450644506450645064506450645064450645064506450645064506445064506450645064506450644506450645064506450645064450645064506450645''06450644506450645064506450645064450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645064506450645''0645064506450645064506450645064506450645064506450645064506450645064506450645")
GSM.astream.Write("AT+CMGS=""").Write("099010100121").Write("""").Write(Array As Byte(13))
'GSM.SEndData(JoinStrings(Array As String("AT+CMGS=","""",mobile,"""")).GetBytes)
Delay(1500)
GSM.astream.Write(Buffer).Write(Array As Byte(0x1a))
End Sub
Private Sub AStream_Client_Error
End Sub
Private Sub ClientConnect()
socket.Close
Dim st As Stream = Null
Dim port As UInt = 1919
If socket.ConnectIP(Array As Byte(192,168,43,143),port) Then
st = socket.Stream
End If
If st = Null Then
Log(" failed connect.")
Return
End If
Astream2.Initialize(st, "Astream_Client_NewData", "Astream_Client_Error")
'Astream2.MaxBufferSize=?
End Sub