/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Lytte efter connections på port 80
Fra : Morten Trab


Dato : 22-10-02 20:47

Hvordan er det nu lige man får WinSock til at lytte og acceptere connections
på port 80??

Mvh. Morten

PS. Det er år og dag siden jeg har rodet med WinSock sidst, og kan ikke lige
finde nogle af mine projekter fra dengang...



 
 
Tomas Christiansen (22-10-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 22-10-02 22:26

Morten Trab skrev:
> Hvordan er det nu lige man får WinSock til at lytte og acceptere
connections
> på port 80??

Det kan gøres på flere måder.

Den "rigtige" server-løsning er at have én Winsock-kontrol til at stå
og lytte, og derefter have et antal (eller oprette når der er behov)
andre Winsock-kontroller til at tage sig af hver ny forbindelse.

For at få en Winsock kontrol til at lytte på port 80 og bruge
TCP-protokollen, kan du gøre følgende:

wsMain.Protocol = sckTCPProtocol
wsMain.LocalPort = 80
wsMain.Listen

Når en klient så vil "snakke" med din port 80, kan du acceptere
forbindelsen på en anden Winsock-kontrol:

Private Sub wsMain_ConnectionRequest(ByVal requestID As Long)
Load wsClient(1)
wsClient(1).Accept requestID
End Sub

Jeg har her forudsat at wsClient er et control-array af
Winsock-kontroller, og at nummer 1 er ledig.

Du må selv "opfinde" en metode til at holde styr på hvilke wsClient'er
som er i brug og hvilke som ikke er.

-------
Tomas


Morten Trab (23-10-2002)
Kommentar
Fra : Morten Trab


Dato : 23-10-02 07:28

"Tomas Christiansen" <toc-nospam-01@blikroer.dk> skrev i en meddelelse
news:ap4fou$2m38$1@news.cybercity.dk...
> Morten Trab skrev:
> > Hvordan er det nu lige man får WinSock til at lytte og acceptere
> connections
> > på port 80??
>
> Det kan gøres på flere måder.
>
> Den "rigtige" server-løsning er at have én Winsock-kontrol til at stå
> og lytte, og derefter have et antal (eller oprette når der er behov)
> andre Winsock-kontroller til at tage sig af hver ny forbindelse.
>
> For at få en Winsock kontrol til at lytte på port 80 og bruge
> TCP-protokollen, kan du gøre følgende:
>
> wsMain.Protocol = sckTCPProtocol
> wsMain.LocalPort = 80
> wsMain.Listen
>
> Når en klient så vil "snakke" med din port 80, kan du acceptere
> forbindelsen på en anden Winsock-kontrol:
>
> Private Sub wsMain_ConnectionRequest(ByVal requestID As Long)
> Load wsClient(1)
> wsClient(1).Accept requestID
> End Sub
>
> Jeg har her forudsat at wsClient er et control-array af
> Winsock-kontroller, og at nummer 1 er ledig.
>
> Du må selv "opfinde" en metode til at holde styr på hvilke wsClient'er
> som er i brug og hvilke som ikke er.

Jeg takker mange gange, det var bare lige det der der stoppede mig...

Mvh. Morten



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste