Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



Permanentní otevření portu pro naslouchání

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: Permanentní otevření portu pro naslouchání

Autor: Martin_J

1:26:09 13.05.2011

Už to mám, stačí použít vhodně zvolenou smyčku:)

Citovat příspěvek

 

Permanentní otevření portu pro naslouchání

Autor: Martin_J

21:12:50 12.05.2011

Zdravím všechny

Mám server, který čeká na portu 5678 na příchozí spojení, když se k němu klient připojí a pošle mu data, server je zobrazí v msgbox.

Funguje to, jenom to má docela velkou mouchu, jakmile jeden klient pošle data, tak tenhle kus kódu proběhne a server se ukončí.

[bold]
Jak mám udělat, aby server naslouchal permanentně? Mám namysli, aby se neukončil potom co mu jeden klient pošle data, ale aby port 5678 zůstal otevřený i pro další příchozí spojení.
[/bold]

Zkoušel jsem zakomentovat řádky tcpClient.Close() a server.Stop(), ale to nepomáhá.

Visual Basic 2010

[code]
Private Sub server()
Dim server As TcpListener
Dim adresa As IPAddress = IPAddress.Parse("192.168.1.193")

server = New TcpListener(adresa, 5678)

server.Start()
Try

Dim tcpClient As TcpClient = server.AcceptTcpClient()
Dim networkStream As NetworkStream = tcpClient.GetStream()

Dim bytes(tcpClient.ReceiveBufferSize) As Byte
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))

Dim clientdata As String = Encoding.ASCII.GetString(bytes)

tcpClient.Close()
server.Stop()

MsgBox(clientdata)

Catch

End Try

End Sub

[/code]

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: