Create a pause in stream.read?

[markclinn]

I have a device in the field that I access by the stream method.
I open the Stream and do the following:
1. stream.write a character to the device.
2. stream.read the information from the device.

The problem is that when I am debugging and step through the code there is a long enough pause that I recieve the entire string. If I just run it, I only get the 1st character. I have attached the code below.

Public Class Form1
    Inherits System.Windows.Forms.Form
 
    'Setup up a new socket
    Public tClient As New System.Net.Sockets.TcpClient()
 
    ' Get a client stream for reading and writing.
    Public stream As NetworkStream
    Public str_Output_message As String
    Public IP_Address As String = xxx.xxx.xxx.xxx
    Public Port_Number As Integer = xxxxx
 
    Public Sub i_Comm_Initilization()
 
        '****************Should these be set by the Database?****************
        tClient.ReceiveBufferSize = (256)
        tClient.ReceiveTimeout = 3000
        tClient.SendTimeout = 1000
        'Create a TcpClient. 
        tClient.Connect(IP_Address, Port_Number)
 
        ' Get a client stream for reading and writing.
        stream = tClient.GetStream()
 
        'get the information from the device
        i_Read_Device_xmitB()
 
        'Delete the recordstore and close the connection to the field device
        i_delete_recordstore()
        i_Close_Connection()
 
    End Sub
    Public Sub i_Read_Device_xmitB()
 
        'Set the Output message
        str_Output_message = "b"
 
        Dim byt_receive_buffer(tClient.ReceiveBufferSize) As Byte
 
        ' Translate the message to be transmitted into ASCII and store it as a Byte array.
        byt_array_data = Encoding.ASCII.GetBytes(str_Output_message)
 
        str_returndata = ""
 
        If stream.CanWrite And stream.CanRead Then
 
            ' Do a simple write.
            ' Send the message to the connected TcpServer. 
            stream.Write(byt_array_data, 0, byt_array_data.Length)
 
            stream.Read(bytes, 0, CInt(tClient.ReceiveBufferSize))
 
            ' Output the data received from the host to the console.
            str_returndata = Encoding.ASCII.GetString(bytes)
 
            stream.Write(byt_array_data, 0, byt_array_data.Length)
 
            'Call the Data Breakout Routine
            i_Data_Breakout()

[RedSon]

Might be better to post this in the VB forum.

[Killer42]

Might be better to post this in the VB forum.

Someone must have moved it. Where was it originally?

[RedSon]

Someone must have moved it. Where was it originally?

Where else? c/c++