UDP eller TCP?

Hvis du regner med færre end 1000 klienter så gå efter TCP Sockets og
lav en tråd til hver klient.

Dim server As TcpListener = New TcpListener (IPAddress.Any, 12345)
        server.Start

for at lytte på en port

Jeg regner med højest 5 klienter, da det bare er for sjov at jeg laver dette... :-)

Jeg har tilfældigvis et par spm. hvor at du har hjulpet andre, men jeg vil helst gerne lave det hele i et GUI... :-)

Men først og fremmest skal jeg jo lave koden bag.

en uendelig løkke som:

Dim client As TcpClient = server.AcceptTcpClient
        Dim clienthandler As T = New T(client)
        Call (New Thread (New ThreadStart (AddressOf clienthandler.Run))).Start

Jeg ved ikke helt om jeg kan se pointen i server som GUI app, men ...

Det eneste du skal er at sådan set at have løkken som accepter connetcions i en
separat tråd.

Type 'TcpListener' is not defined.
Type 'Thread' is not defined.

Jeg er bare vant til at lave tingene i GUI, så det vil jeg helst fortsætte med... :-)

Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading

så skulle du være dækket ind

Type 'T' is not defined....?

T er en klasse som du skal skrive. Den klasse som skal læse det client sender ind
og gøre noget ved det.

skelet:

Public Class T
    Private client As TcpClient
    Public Sub New(cli As TcpClient)
        client = cli
    End Sub
    Public Sub Run()
        Dim rdr As StreamReader = New StreamReader (client.GetStream)
        Dim wrt As StreamWriter = New StreamWriter (client.GetStream)
        Dim outmsg As String
        Dim inmsg As String
        inmsg = rdr.ReadLine
        While Not (inmsg Is Nothing)
            ' gør noget her
            inmsg = rdr.ReadLine
        End While
        rdr.Close
        wrt.Close
    End Sub

du skal nok gemme alle client'erne i en ArrayList, da jeg formoder at du har behov
for at sende til dem alle sammen

det er jo forkert katagori, han snakker vb6.0 og arne_v svare i .NET

skwat, nej den er god nok... Jeg skal lave noget i vb.net, som at jeg før har lavet i vb 6.0

undskyld det er mig, jeg er helt sat af

arne, vil du ikk sætte nogle forklaringer ind i den sidste?

Public Class T
    ' hvert objekt af T klassen har en TcpClient med forbindelsen til dens klient
    Private client As TcpClient
    ' i constructor gemmer vi den reference til TcpClient vi får fra listener & accept tråden
    Public Sub New(cli As TcpClient)
        client = cli
    End Sub
    Public Sub Run()
        ' vi laver en reader og writer så vi kan læse & skrive fra 6 til klienten
        Dim rdr As StreamReader = New StreamReader (client.GetStream)
        Dim wrt As StreamWriter = New StreamWriter (client.GetStream)
        Dim outmsg As String
        Dim inmsg As String
        ' vi læser de tekster klienten sender
        inmsg = rdr.ReadLine
        While Not (inmsg Is Nothing)
            ' gør noget her med den tekst vi har modtaget
            inmsg = rdr.ReadLine
        End While
        ' vi lukker pænt når der ikke er mere (så returnerer ReadLine Nothing)
        rdr.Close
        wrt.Close
    End Sub

Hmm...
Virker underligt... Jeg er jo vant til at man har for eks. Winsock(DataArrival), (ConnectionRequest) osv. osv....

Kan det lade sig gøre at stille alt dette op på den måde?

Nu er jeg lidt handikappet af at jeg ikke kender "the VB6 way"

Øv sq osse... :-)

Jeg prøver lige at studere lidt mere, og så vender jeg tilbage imorgen...

Nu hvor at jeg tænker mig lidt om... Kan jeg ikke bare kalde T klassen for Winsock? er jo det som at jeg er vant til.. :-)

Smidder du ikk et svar? så får du point...

svar

Tak! :-)