Dim Stream2 As AsyncStreamsObject
Dim Client2 As Socket
Client2.Initialize("Client2")
If wifi.IsWifiConnected= True AND wifi.getSSID="JetStream" Then
Local=True
Client2.Connect("192.168.2.5",8400, 20000)
Else
Local=False
Client2.Connect("my ip addr",8400,20000)
End If
Sub Client2_Connected (Successful As Boolean)
If Successful Then
If Stream2.IsInitialized =True Then
Stream2.Close
End If
Stream2.Initialize(Me,"Stream2")
Stream2.Start(Client2.InputStream,Client2.OutputStream)
Send(Mode) 'instruction to the server via other stream to read webcam
Else
ToastMessageShow(LastException.Message, True)
End If
End Sub
Sub Stream2_NewObject(Key As String, Value As Object)
If Key="Webcam" Then
Dim filename As String = Value
If File.Exists("/storage/extSdCard/Domotica","camview.jpg") Then
File.Delete("/storage/extSdCard/Domotica","camview.jpg")
End If
File.Copy(Stream2.TempFolder,filename, "/storage/extSdCard/Domotica", "camview.jpg")
End If
End Sub