"this code has called into another function"

[MikeWiz628]

I'm receiving a stream from a socket that I opened and I'm cycling until the buffer size is 0.

However I'm getting the green bar with the message "this code has called into another function".

I know the string is finished because the pipe symbol is at the end, however, I can't leave the loop.

Here's the snippet:


' Receive the TcpServer.response.
' Buffer to store the response bytes.
data = New [Byte](1024) {}

' String to store the response ASCII representation.
Dim responseData As [String] = [String].Empty

' Read the first batch of the TcpServer response bytes.
Dim bytes As Integer = stream.Read(data, 0, data.Length)

Do while bytes > 0
responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
Console.WriteLine("Received: {0}", responseData)
bytes = stream.Read(data, 0, data.Length)
Loop

' Close everything.
stream.Close()
client.Close()

Any idea why it's hanging?

Thanks in advance!

 

[ThatRickGuy]

I think your loop will continue executing until the stream is closed. Try looping while stream.peek instead of bytes > 0

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[macleod1021]

The way I perform this is to use the .Available. The .Available will return the length of the data returned. You can loop and check if theres data in the queue and when there is, receive it into a buffer to work with. Then just loop through based on the buffer.

Dim tmpLen As Long
        Dim tmpBuf() As Byte
        Dim tmpStr As String
Do While True
    If prvTCP.Available > 0 Then
                tmpLen = prvTCP.Available
                ReDim tmpBuf(tmpLen)
                prvTCP.Receive(tmpBuf, 0, tmpLen, SocketFlags.None)
                tmpStr = System.Text.Encoding.ASCII.GetString(tmpBuf, 0, tmpLen)
                prvBuffer = tmpStr
                Do
                    tmpStr = tmpStr.Substring(0)
                While tmpStr.Length > 0

                
            End If
            Thread.Sleep(100)
Loop

 

[MikeWiz628]

I took some of your ideas and this is what I came up with:

' String to store the response ASCII representation.
Dim responseData As [String] = [String].Empty

'TcpServer response bytes.
Dim bytes As Integer

Do
' Read the first batch of the TcpServer response bytes.
bytes = stream.Read(data, 0, data.Length)
responseData = responseData + System.Text.Encoding.ASCII.GetString(data, 0, bytes)
System.Threading.Thread.Sleep(100)
Loop While client.Available > 0

Console.WriteLine("Received: {0}", responseData)

' Close everything.
stream.Close()
client.Close()

What do you think? With the the thread.sleep, I don't receive all of the data. I'm new to the who TCPclient and buffering scenario.