Reply to thread

Message

<blockquote data-quote="Bokka" data-source="post: 183499" data-attributes="member: 67918">Hello!I ask you if someone could help me out. I wrote a couple of programs (a client and a server) that communicate with each other. Something really basic. The problem, however, is that being a synchronous communication, the server starts only after it has received the package from the client and ends the communication. I would therefore like to make this program (server) asynchronous, to be able to make the best use of it. Here is the code: SERVER:[CODE=vbnet]Imports System.NetImports System.IOImports System.Net.SocketsPublic Class Form1&nbsp; &nbsp; Dim aa As SocketAsyncOperation&nbsp; &nbsp; Dim ip As IPAddress = IPAddress.Parse(“127.0.0.1”)&nbsp; &nbsp; Dim tl As TcpListener = New TcpListener(ip, 1234)&nbsp; &nbsp; Dim ns As NetworkStream&nbsp; &nbsp; Dim br As BinaryReader&nbsp; &nbsp; Dim bw As BinaryWriter&nbsp; &nbsp; Dim soc As Socket&nbsp; &nbsp; Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load&nbsp; &nbsp; &nbsp; &nbsp; Label1.Text = &quot;ok&quot;&nbsp; &nbsp; &nbsp; &nbsp; tl.Start()&nbsp; &nbsp; &nbsp; &nbsp; Label1.Text = &quot;Server started&quot;&nbsp; &nbsp; &nbsp; &nbsp; soc = tl.AcceptSocket&nbsp; &nbsp; &nbsp; &nbsp; ns = New NetworkStream(soc)&nbsp; &nbsp; &nbsp; &nbsp; bw = New BinaryWriter(ns)&nbsp; &nbsp; &nbsp; &nbsp; br = New BinaryReader(ns)&nbsp; &nbsp; &nbsp; &nbsp; Dim s As String = br.ReadString&nbsp; &nbsp; &nbsp; &nbsp; bw.Write(s)&nbsp; &nbsp; End SubEnd Class[/CODE]CLIENT:[CODE=vbnet]Imports System.Net.SocketsImports System.IOPublic Class Form1&nbsp; &nbsp; Dim tc As TcpClient = New TcpClient()&nbsp; &nbsp; Dim ns As NetworkStream&nbsp; &nbsp; Dim br As BinaryReader&nbsp; &nbsp; Dim bw As BinaryWriter&nbsp; &nbsp; Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click&nbsp; &nbsp; &nbsp; &nbsp; tc.Connect(“127.0.0.1”, 1234)&nbsp; &nbsp; &nbsp; &nbsp; ns = tc.GetStream&nbsp; &nbsp; &nbsp; &nbsp; br = New BinaryReader(ns)&nbsp; &nbsp; &nbsp; &nbsp; bw = New BinaryWriter(ns)&nbsp; &nbsp; &nbsp; &nbsp; bw.Write(TextBox1.Text)&nbsp; &nbsp; &nbsp; &nbsp; TextBox2.Text = br.ReadString&nbsp; &nbsp; End SubEnd Class[/CODE]I saw that in vb.net there is the function called &quot;SocketAsync&quot; but I didn't find any example to follow ... Please, someone could help me?Thanks in advance!!</blockquote>

[QUOTE="Bokka, post: 183499, member: 67918"] Hello! I ask you if someone could help me out. I wrote a couple of programs (a client and a server) that communicate with each other. Something really basic. The problem, however, is that being a synchronous communication, the server starts only after it has received the package from the client and ends the communication. I would therefore like to make this program (server) asynchronous, to be able to make the best use of it. Here is the code: SERVER: [CODE=vbnet]Imports System.Net Imports System.IO Imports System.Net.Sockets Public Class Form1 Dim aa As SocketAsyncOperation Dim ip As IPAddress = IPAddress.Parse(“127.0.0.1”) Dim tl As TcpListener = New TcpListener(ip, 1234) Dim ns As NetworkStream Dim br As BinaryReader Dim bw As BinaryWriter Dim soc As Socket Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Label1.Text = "ok" tl.Start() Label1.Text = "Server started" soc = tl.AcceptSocket ns = New NetworkStream(soc) bw = New BinaryWriter(ns) br = New BinaryReader(ns) Dim s As String = br.ReadString bw.Write(s) End Sub End Class[/CODE] CLIENT: [CODE=vbnet]Imports System.Net.Sockets Imports System.IO Public Class Form1 Dim tc As TcpClient = New TcpClient() Dim ns As NetworkStream Dim br As BinaryReader Dim bw As BinaryWriter Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click tc.Connect(“127.0.0.1”, 1234) ns = tc.GetStream br = New BinaryReader(ns) bw = New BinaryWriter(ns) bw.Write(TextBox1.Text) TextBox2.Text = br.ReadString End Sub End Class[/CODE] I saw that in vb.net there is the function called "SocketAsync" but I didn't find any example to follow ... Please, someone could help me? Thanks in advance!! [/QUOTE]

Verification