MULTIPLA CONEXAO - WINSOCK
olha gente, sei que isso ja é um tanto quanto chato, pq existe varios tópicos sobre, mas não consigo entenderos exemplos daqui do vb mania. Alguem poderia me explicar como funciona? entendendo o funcionamento dele, eu consigo fazer.
tchau.
tchau.
você tem 2 winsocks no form ok...
ex. ws e wsa(100)
quando o ws aceitar uma conexão ele passa a conexão para o wsa(index disponivel), e após passar a conexão ele fecha
e fica pronto pra receber outra conexão...
entendeu...
ex. ws e wsa(100)
quando o ws aceitar uma conexão ele passa a conexão para o wsa(index disponivel), e após passar a conexão ele fecha
e fica pronto pra receber outra conexão...
entendeu...
Ahh veja c existe alguma coisa q t ajuda ae nesse link
http://www.visualbasic.mat.br/vb/artigos_busca.asp?search=winsock
http://www.visualbasic.mat.br/vb/artigos_busca.asp?search=winsock
MARTINIANO:
valeu amigo, mas vc a de concordar que não é taum facil assim =D hehe
ALEXANDRE SANTO:
Vo olhar o link que vc me passou para ter algumas respostas
por favor, postem, isso é duvida de muitos
valeu amigo, mas vc a de concordar que não é taum facil assim =D hehe
ALEXANDRE SANTO:
Vo olhar o link que vc me passou para ter algumas respostas
por favor, postem, isso é duvida de muitos
ALEXANDRE SANTO:
no http://www.visualbasic.mat.br/vb/artigos_busca.asp?search=winsock não tem nada sobre multipla conexão
no http://www.visualbasic.mat.br/vb/artigos_busca.asp?search=winsock não tem nada sobre multipla conexão
depende da visão de cada um, mas é simples como te falei assima...
não falaria sobre algo que não sei..
não falaria sobre algo que não sei..
aah, tinha esquecido... Olha ai como é facil.
Const Total = 1000
Dim Disponivel(0 To Total) As Boolean
Private Sub Form_Load()
w(0).LocalPort = 25
w(0).Close
w(0).Listen
End Sub
Private Sub w2_Close(Index As Integer)
If Index <> 0 Then
w2(Index).Close
Unload w2(Index)
Disponivel(Index) = False
End If
End Sub
Private Sub w_ConnectionRequest(Index As Integer, ByVal requestID As Long)
For x = 1 To Disponivel
If sock(x) = False Then
Load w2(x)
sock(x) = True
w2(x).Close
w2(x).Accept requestID
Exit For
End If
Next
w(0).Close
w(0).Listen
End Sub
Const Total = 1000
Dim Disponivel(0 To Total) As Boolean
Private Sub Form_Load()
w(0).LocalPort = 25
w(0).Close
w(0).Listen
End Sub
Private Sub w2_Close(Index As Integer)
If Index <> 0 Then
w2(Index).Close
Unload w2(Index)
Disponivel(Index) = False
End If
End Sub
Private Sub w_ConnectionRequest(Index As Integer, ByVal requestID As Long)
For x = 1 To Disponivel
If sock(x) = False Then
Load w2(x)
sock(x) = True
w2(x).Close
w2(x).Accept requestID
Exit For
End If
Next
w(0).Close
w(0).Listen
End Sub
hum.... agora sim =D
Entaum se tenho 2 clientes conectados ( 1 e 2 ), quero mandar uma msg pro primeiro mando ws(1).senddata "oi" se quiser mandar para o segundo ws(2).senddata "oi"?
e para todos
for i =1 to disponivel
ws(i).senddata "oi"
next i
é isso mesmo?
Entaum se tenho 2 clientes conectados ( 1 e 2 ), quero mandar uma msg pro primeiro mando ws(1).senddata "oi" se quiser mandar para o segundo ws(2).senddata "oi"?
e para todos
for i =1 to disponivel
ws(i).senddata "oi"
next i
é isso mesmo?
Tópico encerrado , respostas não são mais permitidas