WINSOCK

RICARDO.RAPA 26/04/2011 22:39:44
#372551
Alguem tem algum exemplo simples para enviar dados para outro computador usando o winsock? nunca trabalhei com essa DLL e se essa dll funciona no win7? ou se pode pode trocar dados de xp para win7 vice-versa. vi aqui uns exemplo [Ô]no estilo msn[Ô] mais ta meio complicado.

alguem pode me ajudar?

grato.
RICARDO.RAPA 26/04/2011 23:15:51
#372562
Estou fazendo assim quem puder me ajudar:

NO FORM DO SERVIDOR: coloquei os seguintes códigos

Private Sub Form_Load()
With Winsock1
.RemoteHost = 0
.RemotePort = 0
If .State = 0 Then
.Bind 1002
ElseIf .LocalPort <> 1002 Then
.Close
.Bind 1002
End If
End With
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim MensagemRecebida As String
With Winsock1
.GetData MensagemRecebida
End With

texto.Caption = MensagemRecebida
End Sub

é só isso que precisa? para o servidor receber a informação?

NO MÓDULO CLIENTE FIZ ASSIM

Private Sub Command1_Click()

If Winsock1.State <> 0 Then Winsock1.Close
Winsock1.RemoteHost = [Ô]192.168.14.101[Ô]
Winsock1.RemotePort = 1002
Winsock1.LocalPort = 500
Winsock1.Connect

Winsock1.SendData [Ô]Testando [Ô] & Winsock1.LocalIP
End Sub

Obs: Estou fazendo o teste no mesmo PC com o form do servidor aberto e o form do cliente aberto para ver trafega a informa entre os form. mais esta dando erro.10048
RICARDO.RAPA 27/04/2011 01:21:23
#372568
FIZ ASSIM:

NO SERVIDOR:

Private Sub Command1_Click()

Winsock1.Close
Winsock1.LocalPort = [Ô]55[Ô]
Winsock1.Listen

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then
Winsock1.Close
Else
Winsock1.Accept requestID
conexao.Caption = [Ô]Cliente Conectado com ip: [Ô] & Winsock1.RemoteHostIP
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim MensagemRecebida As String
With Winsock1
.GetData MensagemRecebida
End With

texto.Text = [Ô]{cliente} - [Ô] & MensagemRecebida
End Sub

NO CLIENTE:

Private Sub Command1_Click()
Winsock1.SendData mensagem.Text
End Sub


Private Sub Command2_Click()

Winsock1.RemoteHost = [Ô]127.0.0.1[Ô]
Winsock1.RemotePort = [Ô]55[Ô]
Winsock1.Connect

End Sub

E NÃO CONECTA? SERÁ é PQ ESTOU UTILIZANDO UM PC DE 64BIS? TENTEI NO WIN7 64BIS DEU ERRO, NO MESMO PC MEU TENHO XP 32BIS E DEU O MESMO ERRO? SERA QUE MINHA DDL TA COM PROBLEMA?
Tópico encerrado , respostas não são mais permitidas
Voltar