VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private m_bConnected As Boolean

Private WithEvents objMyWSock As Winsock
Attribute objMyWSock.VB_VarHelpID = -1

Private Sub Class_Initialize()
    Set objMyWSock = frmDummy.Winsock
End Sub

Private Sub Class_Terminate()
    objMyWSock.Close
    Set objMyWSock = Nothing
End Sub

Public Sub cmdConnect_Click()

Dim xmldoc As String

  If objMyWSock.State = sckClosed Then
    objMyWSock.Protocol = sckTCPProtocol
    'objMyWSock.RemoteHost = "192.168.111.34"
    objMyWSock.RemoteHost = "213.121.209.161"
    objMyWSock.RemotePort = 6666
    'objMyWSock.RemotePort = 10101
    objMyWSock.Connect
  End If
  
  DoEvents
  
  If objMyWSock.State = sckConnected Then
    m_bConnected = True
  Else
    m_bConnected = False
  End If
  
  If m_bConnected Then
    xmldoc = "<signal><rfid>4044</rfid><timestamp>21/10/2005 11:15:00 +0100</timestamp><reader>100292</reader></signal>"
    
    Debug.Print "sending" & vbTab & xmldoc
    objMyWSock.SendData xmldoc
  End If
End Sub

Private Sub objMyWSock_Connect()
 ' MsgBox "Connected"
  m_bConnected = True
  Debug.Print "connected"
End Sub

Private Sub objMyWSock_DataArrival(ByVal bytesTotal As Long)
Dim strData As String

Debug.Print "data arrival"

If objMyWSock.State = sckConnected Then
    objMyWSock.GetData strData, vbString
    Debug.Print strData
End If


End Sub

Private Sub objMyWSock_Error(ByVal Number As Integer, Description As String, _
        ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, _
        ByVal HelpContext As Long, CancelDisplay As Boolean)
  MsgBox "Error: " & Description
  objMyWSock.Close
End Sub