6
If txtAddress.Text = "" Then
ConnectTo2701 = False
Exit Function
End If
With Winsock1
.Protocol = sckTCPProtocol
.RemoteHost = txtAddress.Text
.RemotePort = 1394
.Connect
End With
' Check for proper connection.
Time0 = Timer
While Timer - Time0 < 10! And Winsock1.State <> sckConnected: DoEvents: Wend
If Winsock1.State <> sckConnected Then
’ Could not connect to 2701.
MsgBox "Cannot connect to " + LastA "!", 48, "IP Connect Error"
ConnectTo2701 = False
Exit Function
End If
’ Connection to 2701 found.
ConnectTo2701 = True
End Function
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ Event to capture data from mainframe.
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Data, vbString, 50000
’Chr$(10) Or
If (Right$(Data, 1) = Chr$(10)) Then
Data = Left$(Data, Len(Data) - 1)
DataReceived = True
End If
End Sub
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
’ QueryKI() retrieves data from the 2701 over the ethernet connection.
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Function QueryKI() As String
’ Read Ethernet data.
Topics
Topics
Topics
Summary of Contents for 7710
Page 2: ......
