1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Sub LireFlux(ByVal p_flux As NetworkStream)
If p_flux.CanRead Then
Dim myReadBuffer(1024) As Byte
p_flux.BeginRead(myReadBuffer, 0, myReadBuffer.Length, New AsyncCallback(AddressOf read), p_flux)
c_fluxgeneral = p_flux
Else
Console.WriteLine("Sorry. You cannot read from this NetworkStream.")
End If
End Sub
Sub read(ByVal ar As IAsyncResult)
Dim l_message As StringBuilder = New StringBuilder()
Dim numberOfBytesRead As Integer = 0
numberOfBytesRead = c_fluxgeneral.Read(c_buffer, 0, c_buffer.Length)
l_message.AppendFormat("{0}", Encoding.ASCII.GetString(c_buffer, 0, numberOfBytesRead))
MsgBox(l_message.ToString)
End Sub |
Partager