'Service module
Sub Process_Globals
Dim AStreams As AsyncStreams
Dim Socket1 As Socket
Dim OpeningSocket As Boolean
Dim SocketHost As String
SocketHost = "www.XXXXXXX.XX"
Dim SocketPort As Int
SocketPort = XXXX
End Sub
Sub connectToSocket
If PhoneService.myPhoneIsReady = False Then
Return
End If
OpeningSocket = True
Try
Socket1.Initialize("Socket1")
Socket1.Connect(SocketHost, SocketPort, 0)
Catch
End Try
End Sub
Sub Socket1_Connected (Successful As Boolean)
Try
If Successful Then
AStreams.Initialize(Socket1.InputStream, Socket1.OutputStream, "AStreams")
End If
OpeningSocket = False
Catch
OpeningSocket = False
End Try
End Sub
Sub AStreams_NewData (Buffer() As Byte)
....
End Sub
Sub AStreams_Error
...
End Sub