Winsock connect And Send Issue :(

[ShayCasper]

Hey all

I'm Trying to connect With Winsock and Send Data With One Command
I have problem to do that becouse the state connection is 6 when he try to send data
i try to put delay timer but its not work, i alsow try to use loop and the app get stuck What can i do to Soulve This ?

Private Sub CmdAuto_Click()
Dim iNumber As Integer
Dim xxx As Integer
Dim str As String

Dim sSpilt
iNumber = 1
lblCaseStep.Caption = iNumber
txtSend.Text = ""

'For xxx = 1 To 100 Step 1
    Select Case iNumber
       Case 1
            
            sockMain.RemoteHost = "127.0.0.1" '"169.254.11.22"
            sockMain.RemotePort = 12345 '2000
            sockMain.Connect
            'Sleep 1000
            'Delay 5
            iNumber = 5
            lblCaseStep.Caption = iNumber
            
      Case 5
      
            If sockMain.State = 7 Then
                iNumber = 10
                lblCaseStep.Caption = iNumber
            End If
            
       Case 10
         lblCaseStep.Caption = iNumber
          Open FilePath.Text For Input As #1
           Do While Not EOF(1)
                Line Input #1, str
                Text1.Text = Text1.Text & str & vbCrLf
                sSpilt = Split(str, ":")
                If sSpilt(0) = "Length" Then
                    txtLength.Text = sSpilt(1)
                ElseIf sSpilt(0) = "Quantity" Then
                    txtQuntity.Text = sSpilt(1)
                End If
            Loop
            If EOF(1) Then
                txtSend.Text = txtLength.Text & vbCrLf & txtQuntity.Text
                iNumber = 15
                Close #1
            End If
        Case 15
            sockMain.SendData "111"
            iNumber = 20
    End Select
    Delay 1
'Next xxx
End Sub

[Hack]

Moved from the Codebank (which is for sharing code rather than posting questions )

[jmsrickland]

Make iNumber static:

Static iNumber As Integer

Dimensioning iNumber causes it to be set to 0 each time you click on the button so you need to make sure it's value stays constant as to what you set it to in your code so you have to declare it as a static variable

Remove If EOF(1).......End If. You don't need the If and End If but keep the code in it. You know that it is EOF(1) because you have left the loop above it therefore it is not necessary to check if it is EOF(1).

'If EOF(1) Then
txtSend.Text = txtLength.Text & vbCrLf & txtQuntity.Text
iNumber = 15
Close #1
' End If

[DataMiser]

Making the var static is not going to help much. Only one Case will execute per click so you would have to click the button several times to get the one you want to execute.

You will not be able to connect and send with one command since at the very least this is 2 commands 1 to connect and 1 to send.

You can however do it with one click of one button if you write the proper commands behind it.

You first need to issue the connection request and then you need to give it a moment before you try to send data.
One simple way to know when you are connected is have the server send something back when it accepts the connection request and then in your data arrival event you check for that value and if it is received you know you are connected and it is ok to send data. No need for a loop, no need for any artificial delay. I can only guess what delay 1 is but most likely it is something that should not be used.

[jmsrickland]

It depends on your point of view.

I interpreted his request as to connect and send using one Command button, not one click of a command.

I wasn't trying to solve his problem completely as I only noticed that he first needs to make the variable static. As far as the If statement he can use it or omit it. The only other thing that he needs is to check the variable so that he doesn't set it to 1 each time he clicks the button so he needs something like this:

 If iNumber < 1 Then
   iNumber = 1
 End If

Assuming his other code is correct (I'm not even checking for that) about the file and in the manner as I assumed his request to be based on his first statement:

I'm Trying to connect With Winsock and Send Data With One Command

One command and not one click of one command his code will work if he makes the changes I suggested.

Maybe he really meant one click of one command but he didn't say that.

If he wants to do this with one click of a command then that is a different story and of course different code

[dilettante]

To paraphrase Obi-Wan:

Trust the Events, Luke!

Busy-wait polling Winsock.State will end up taking you off into the weeds of DoEvents, Sleep, and clever (and flaky) alternatives.

Once you call the Connect method in your Command Button Click event handler just exit. Then write a handler for the Winsock control's Connect event. From there you can begin sending.

If you need to do more than one SendData call you'd use the Winsock control's SendComplete event to "pump" your sending process:

Command_Click:
    Do preparation.  Open file, etc.
    Winsock.Connect remoteHost, remotePort

Winsock_Connect:
    Send first chunk of output.

Winsock_SendComplete:
    If more chunks:
        Send next chunk
    Else:
        Winsock.Close
        Close file, clean up, report finished, etc.

You end up not needing any loop to send chunks of output, the events replace that.

Note that normally you are sending "messages" of a sort as chunks and these need some kind of length header or delimiting trailer so that the other end can figure out where the message boundaries are.

One SendData does not equal one GetData at the other end except in cases where you get lucky. It isn't like using Print # statements where the line-ending delimiter (CRLF) gets appended for you. At the other end it isn't like Line Input # either, and data can arrive in pieces of "random" lenth (even as few as 1 character at a time).

[ShayCasper]

Thank You for all comments
i am not so good with VB i think i need to learn from the begening becouse i have a lot of mess i my head becouse the logic work diffrent then PLC
Any way the problem was soulved when i put DoEvents in the Do loop
Thanks for your Help

[jmsrickland]

Thank You for all comments
i am not so good with VB i think i need to learn from the begening becouse i have a lot of mess i my head becouse the logic work diffrent then PLC
Any way the problem was soulved when i put DoEvents in the Do loop
Thanks for your Help

You have got to be kidding. DoEvents or no DoEvents your code as is wont work

[ShayCasper]

This Is the Code And Its Work Fine
- Connect
- Read The File
- Send Data

Private Sub CmdAuto_Click()
Dim iNumber As Integer
Dim xxx As Integer
Dim str As String
Dim sSpilt

iNumber = 1
lblCaseStep.Caption = iNumber
txtSend.Text = "sockMain.State"
  Delay 1


Do
DoEvents
    Select Case iNumber
       Case 1
       
            If sockMain.State = 0 Then
            sockMain.RemoteHost = "127.0.0.1" '"169.254.11.22"
            sockMain.RemotePort = 12345 '2000
            sockMain.Connect
            ElseIf sockMain.State = 7 Then
                iNumber = 10
                lblCaseStep.Caption = iNumber
            End If
        
  
       Case 10
         
          Open FilePath.Text For Input As #1
           Do While Not EOF(1)
                Line Input #1, str
                Text1.Text = Text1.Text & str & vbCrLf
                sSpilt = Split(str, ":")
                If sSpilt(0) = "Length" Then
                    txtLength.Text = sSpilt(1)
                ElseIf sSpilt(0) = "Quantity" Then
                    txtQuntity.Text = sSpilt(1)
                End If
            Loop
            If EOF(1) Then
                txtSend.Text = txtLength.Text & vbCrLf & txtQuntity.Text
                iNumber = 15
                lblCaseStep.Caption = iNumber
                Close #1
            End If
            
        Case 15
        
            sockMain.SendData txtSend.Text
            iNumber = 20
            lblCaseStep.Caption = iNumber
            
    End Select
    
Loop Until iNumber = 20
End Sub

[jmsrickland]

OK, it works, but I don't understand what your point is

[ShayCasper]

The Point is thaty before i added the "DoEvents" it was Stuck all the time