I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Du skal lave en tcp server (som lytter på en bestemt port og så connecter på en anden port).
Følgende eksempel antager at du har en winsock control du kalder tcpServer:
Private intMax As Long
Private Sub Form_Load() intMax = 0 sckServer(0).LocalPort = 4711 \'Den port du vil lytte på sckServer(0).Listen \'lyt :o) End Sub
Private Sub sckServer_ConnectionRequest _ (Index As Integer, ByVal requestID As Long) If Index = 0 Then \'Requesten kommer til index 0 i dit control array intMax = intMax + 1 \'Tæl index 1 op Load sckServer(intMax) \'instansier en winsockcontrol med pågældende index sckServer(intMax).LocalPort = 0 \'sæt lokal port til 0 sckServer(intMax).Accept requestID \'Accepter forbindelse, lokal port tildeles automatiskt. End If End Sub
Private Sub tcpServer_DataArrival _ (Index As Integer,ByVal bytesTotal As Long) Dim strData As String tcpServer(index).GetData strData
\'gør hvad du vil med de indkommende data fra forbindelse (index). Husk at sende med tcpServer(index).Senddata Whatever :o)
xafion, kodestumpen bygger på et eksempel fra msdn.
Den vælger først random port når den rent faktisk Accepter en incoming request. Hvis man ikke sætter localport til 0, (men f.eks. 666) vil den forsøge at accepte på den port. Dette vil naturligvis føre til problemer :o)
Ja, jeg fik ikke renamet _DataArrival ... So what? :o)
Unskyld at jeg ikke satte mig ned og skrev et eksempel fra bunden af, men at jeg valgte at bruge msdn\'s eksempel som grundlag. -Det gør jo ikke kodestumpen mindre relevant, vel?
Hmm .. jeg giver ikke ligefrem 30 point for noget af Microsofts eget lort...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.