Program locks up if connection is interrupted

[bachphi]

It appears there is a bug in the timeout of the ping command, anything less than 500 ms will default to 500ms. It will work with multiples of 500 ms.

Are you going to test out the new driver?

Code: [Select]

    Dim PingSender As Ping = New Ping()
    Dim PLCIsConnected As Boolean() = Nothing

    Dim lines() As String = ReadAllLines(".\PLCDevicesList.txt")
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Debug.Print(DateTime.Now())
        Dim i As Integer = 0
        ReDim PLCIsConnected(lines.Count() - 1)
        For Each lineItem In lines
            Dim PingResponse As PingReply = PingSender.Send(lineItem, 500, Encoding.ASCII.GetBytes(1), New PingOptions(64, True))
            If PingResponse.Status = IPStatus.Success Then
                PLCIsConnected(i) = 1
            Else
                PLCIsConnected(i) = 0
            End If
            i = i + 1

        Next
        Debug.Print(DateTime.Now())
    End Sub


Archie,  how about adding a function 'IsConnected' to the driver?  Other drivers I have seen, they all have that  feature.

[lpou]

I agree, You would have to create the IsConnected property in the drivers, to avoid the execution of read or write in the plc, if there is no connection, and thus avoid delay times.