Winsock Connection Problem

[romcab]

Hi guys,

Just want to ask your help about the error I encountered in Winsock connection.
Here is the problem.
When I added a button that has an event to connect to the server, I don't encounter a problem connecting to the server.
When I call a procedures that connect to a server then send data, the value of state is always 6 which means connecting. I try to loop using DoEvents but the value do not change. How can I solve this problem?

[debasisdas]

Kindly post the code for reference of our experts.

[romcab]

Hi guys,
I have problem with socket connection in vb6. I translated a code from vb.net to vb6 and it works perfectly in .net. But to my surprise, vb6 cannot sometimes cannot connect to the remote computer. Besides, I noticed that to make connection works, it should be in an event. Is that right? Hope you can help me.

[romcab]

Kindly post the code for reference of our experts.

Option Explicit
 
'hold the IP Address
Dim ipAdd As String
Dim message As String
 
Private Declare Sub Sleep Lib "Kernel32" (ByVal millisec As Long)
 
 
 
'read and send the data
Private Sub Command1_Click()
 
 
    'Call ReadOnly(MyDlg.FileName)
    'Call ReadFile(MyDlg.FileName)
    Exit Sub
 
End Sub
 
Private Sub Command2_Click()
 
    Call MyConnect_Click
End Sub
 
'Debug
Private Sub MyConnect_Click()
 
    'MySock.RemoteHost = ipAdd
    MySock.RemoteHost = "192.168.20.65"
    MySock.RemotePort = 4003
    MySock.Protocol = sckTCPProtocol
 
    If Not MySock.State = sckConnected Then
        MySock.Connect
    End If
 
    Exit Sub
 
End Sub
 
Private Sub Send_Click()
 
    Do
    DoEvents
    'if connected
    If MySock.State = sckConnected Then
 
        'Debug
        MsgBox ("sending...")
        MySock.SendData message
        Sleep (70)
 
        'Debug
        'MsgBox (message)
        'Exit Sub
 
    End If
 
    If MySock.State = 9 Then
        MsgBox ("No Connection")
        Unload Me
    End If
 
    Loop Until MySock.State = 7 Or MySock.State = 9
 
    Exit Sub
 
End Sub
 
Private Sub Close_Click()
 
    If MySock.State = sckConnected Then
        MySock.Close
    End If
 
    Exit Sub
 
End Sub
 
'Open Menu is click
Private Sub MyOpenMenu_Click()
 
    'open dialog box
    MyDlg.FileName = vbNullString
    MyDlg.Filter = "CSV(*.csv)|*.csv"
    MyDlg.ShowOpen
 
    If Not MyDlg.FileName = "" Then
 
        'close any connection
        If MySock.State = sckConnected Then
            MySock.Close
        End If
 
        'call read file
        Call Command1_Click
 
    End If
 
End Sub
 
 
 
'Read the file per line
Private Sub ReadFile(ByRef aFile As String)
 
    'declare local var
    Dim fs As New FileSystemObject
    Dim ts As TextStream
    Dim szread As String
 
    Dim aMes As String
    Dim ictr As Integer
 
    ictr = 0
    If fs.FileExists(aFile) Then
 
        'Open file for reading
        Set ts = fs.OpenTextFile(aFile, ForReading, False)
 
        'while not EOF
        Do While Not (ts.AtEndOfStream)
 
            szread = vbNullString
            ipAdd = vbNullString
            message = vbNullString
 
            'read the line
            szread = ts.ReadLine
 
            'skip 1st line
            If ictr = 0 Then GoTo Loopback
 
            'if data is invalid
            If CheckFormat(szread) = False Then GoTo Loopback
 
            'MsgBox (szread)
            'format the text to zprotocol
            Call FormaText(szread)
 
            'disp data read in list
            szread = Replace(szread, ",", "  ")
 
            'add item in textbox
            List2.AddItem (szread)
 
            If Not MySock.State = sckConnected Then
                'connect to machine
                Call TryToConnect
            End If
 
            'Send the message
            Call MySend
 
Loopback:
            ictr = ictr + 1
        Loop
 
        'close the file
        ts.Close
        MsgBox ("Finished sending data....")
 
 
    Else
        MsgBox ("File Not Exist")
 
    End If
 
    Set fs = Nothing
    Set ts = Nothing
 
End Sub
 
'format the text to zprotocol
Private Sub FormaText(ByVal aText As String)
 
    'declare local var
    Dim ArrayText() As String
    Dim stemp As String
 
    'split the text by ","
    ArrayText() = Split(aText, ",")
 
    stemp = ArrayText(3)
 
    'add double quote
    stemp = Chr(&H22) & stemp & Chr(&H22)
 
    'Add newline
    stemp = stemp & vbNewLine
 
    'Global
    'Format the data to send
    message = "UMD_SET" + " " + ArrayText(1) + " " + ArrayText(2) + " " + stemp
 
    'Global
    ipAdd = ArrayText(0)
 
End Sub
 
'check data
Private Function CheckFormat(ByVal aText As String) As Boolean
 
    Dim ArrayText() As String
 
    'split text
    ArrayText() = Split(aText, ",")
 
    If CheckIP(ArrayText(0)) = False Or CheckPipCmd(ArrayText(1)) = False Or CheckPipCmd(ArrayText(2)) = False Then
        MsgBox ("Invalid data")
        CheckFormat = False
        Exit Function
    End If
 
    CheckFormat = True
 
End Function
 
'check IP
Private Function CheckIP(ByVal ipText As String) As Boolean
 
    Dim str() As String
    Dim i As Integer
    Dim rtn As Boolean
 
    rtn = False
 
    'split ip by "."
    str() = Split(ipText, ".")
 
    For i = 0 To UBound(str)
 
        If IsNum(str(i)) = False Then
            CheckIP = False
            Exit Function
        End If
 
 
        If (Len(str(i)) > 3 Or CInt(str(i)) > 255) Then
            CheckIP = False
            'MsgBox ("Exceed")
            Exit Function
        End If
 
    Next i
 
    CheckIP = True
 
End Function
 
'check pip and cmd id
Private Function CheckPipCmd(ByVal aText As String) As Boolean
 
    Dim i As Integer
 
    'if emptry
    If aText = "" Then
        CheckPipCmd = False
        Exit Function
    End If
 
    'check if all digit
    If IsNum(aText) = False Then
        CheckPipCmd = False
        Exit Function
    End If
 
    CheckPipCmd = True
 
End Function
 
'close socket connection
Private Sub MyClose()
 
    'Call event to close connection
    Call Close_Click
 
End Sub
 
'connect socket
Private Sub TryToConnect()
 
    'Call method to connect
    Call MyConnect_Click
    Exit Sub
 
End Sub
'send data
Private Sub MySend()
 
    'Call event to send data
    Call Send_Click
    Exit Sub
 
End Sub
 
'check if number
Private Function IsNum(ByVal aText As String) As Boolean
 
    Dim i As Integer
    Dim ch As String
 
    For i = 1 To Len(aText)
        ch = Mid$(aText, i, 1)
        'MsgBox (ch)
        If Not (Asc(ch) >= 48 And Asc(ch) <= 57) Then
            'MsgBox (ch)
            IsNum = False
            Exit Function
        End If
    Next i
 
    IsNum = True
 
End Function
 
'End Sub
'Exit application
Private Sub MyExitMenu_Click()
 
    If MySock.State = sckConnected Then
        MySock.Close
    End If
    Unload Me
 
End Sub

[Dököll]

Hi guys,

Just want to ask your help about the error I encountered in Winsock connection.
Here is the problem.
When I added a button that has an event to connect to the server, I don't encounter a problem connecting to the server.
When I call a procedures that connect to a server then send data, the value of state is always 6 which means connecting. I try to loop using DoEvents but the value do not change. How can I solve this problem?

Why do you need the value to change, romcab?