Visual Basic TCP server/client og porte

her er et stykke af koden:

Private Sub cmdPort_Click()

Dim Port As Integer    \' Declare a variable for the port.

Port = txtPort.Text

   
        If MsgBox(\"Use port: \" & txtPort.Text & \"?\", _
            vbYesNo + vbQuestion) = vbYes Then
           
            \' Connect to the remote machine
           
        tcpServer.Close
        tcpServer.LocalPort = Port
        tcpServer.Listen
       
               
            \' Wait until full connection is made
               
            Do Until tcpServer.State = sckConnected
                DoEvents: DoEvents: DoEvents: DoEvents
                If tcpServer.State = sckError Then
                    MsgBox \"Problem opening port!\", vbCritical
                    Exit Sub
                End If
            Loop
       
            \' Send the data
       
       
        Else
       
            Call MsgBox(\"OK - Not listening!\", vbInformation)
       
        End If
   
   

End Sub


integer går kun op til 32.767, så hvilken type skal jeg så bruge?

Brug Long istedet for Integer

Det er også meget hurtiger

Som du selv er inde på kan du ikke bruge en integer variabel til det ønskede portnr.
Dim Port As Long er løsningen.
Nu ved jeg selvfølgelig ikke hvordan dit program er sat sammen, men jeg har selv lavet noget lignende engang og da det skulle testes af andre gik der ged i det fordi brugere generelt laver alle de fejl som kan laves. Her tænker jeg især på :
Port = txtPort.Text - her kan opstå nogle kedelige situationer hvis man f.eks. indtaster port88889 - brug f.eks. Port = Val(txtPort.Text) eller lign.

hmm, ingen af delene løste problemet, VB vil ikke godkende en port af typen long. Problemet er dog blevet løst ved at anvende et andet portnr