USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Dá p explicar essa dica mais detalhadamente!
¨Hennyere¨
Pontos: 2843
SALVADOR
BA - BRASIL
ENUNCIADA !
Postada em 16/02/2006 13:57 hs         
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.
   
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 17/02/2006 15:49 hs         
É um jeito de se usar múltiplas conexões em uma única porta winsock.
     
¨Hennyere¨
Pontos: 2843
SALVADOR
BA - BRASIL
ENUNCIADA !
Postada em 20/02/2006 09:44 hs         
Sei, mas não estou conseguindo aplicar no meu aplicativo
Podem mandar um exemplo de como usar isso?
   
¨Hennyere¨
Pontos: 2843
SALVADOR
BA - BRASIL
Postada em 21/02/2006 10:41 hs         
Nada?
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página