|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Internet)
|
|
 |
Título da Dica: Conexão de multiplos clientes em um único servidor (Winsock)
|
 |
|
|
|
Postada em 15/8/2003 por d@®l@n
Para conectar diversos clientes em um único servidor é necessário:
SERVIDOR
No aplicativo de servidor cria a seguinte rotina:
...
WskSvr(0).LocalPort = 1050 - > Utilize a porta que desejar.
WskSvr(0).Listen
...
Private Sub WskSvr_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Error Resume Next
If Index = 0 Then
CnnSvr = CnnSvr + 1
Load WskSvr(CnnSvr)
WskSvr(CnnSvr).Accept requestID
End If
End Sub
Esta rotina fará com que toda vez que for solicitada uma nova conexão ele incrementa o contador CNNSVR e pede para carregar um novo controle WINSOCK para receber esta solicitação.
CLIENTE
No Aplicativo de cliente as funções serão as mesmas.
WskCli(0).RemoteHost = "127.0.0.1" -> Utilize o endereço de IP ou o hostname do servidor.
WskCli(0).RemotePort = 1050 -> Utilize a mesma porta que foi utilizada no servidor.
|
|
|
|
|
