|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Redes/Comunicações)
|
|
 |
Título da Dica: Utilizando winsock
|
 |
|
|
|
Postada em 28/9/2003 por [_Chuck_]
ao abrir o server o winsock deve escutar a porta...
o nome do Winsock é sck
Private Sub Form_Load()
sck.localPort = 2000 'pode ser qualque outra
sck.listen
end sub
e ao receber um novo requisito de conexão(ConnectionRequest) ele aceita o susário...
Private Sub sck_ConnectionRequest(ByVal requestID As Long)
sck.Close
sck.LocalPort = 2000
sck.Accept requestID
End Sub
e então, qualquer coisa que ele receber chamará o evento DataArrival, ai é só fazer o seguinte...
Private Sub sck_DataArrival(ByVal bytesTotal As Long)
Dim dados As String 'variável que irá receber os dados
sck.GetData dados, vbString 'dados recebe tipo string
End Sub
no cliente a coisa é semelhante...
você deve se conectar utilizando o IP e a porta de escuta do servidor...
sck.conect "127.0.0.1",2000 'caso de estiver testando em casa
após isso eu aconselho utilizar a rotinar para aguardar enquanto não conectar e não da erro..
While sck.State <> sckConnected And sck.State <> sckError
DoEvents
Wend
após isto se conectar basta enviar strings usando...
sck.SendData Texto
e receber do mesmo jeito que o cliete....
Valeu...
Maycon Maia Vitali [_Chuck_]
|
|
|
|
|
