Postada em 13/05/2010 14:49 hs
Olá pessoal, boa tarde;
Estou desenvolvendo um aplicativo servidor e, para que ele siga corretamente o projeto, preciso que meu componente Winsock seja instanciado dentro de uma Classe.
Inseri um form em branco apenas com o componente Winsock e na classe criei o objeto desta forma:
Dim wSock As Winsock
E na Initialize da Classe fiz um "set":
Set wSock = Form1.Winsock1
E especifiquei o evento "ConnectionRequest", desta forma:
Private Sub wSock_ConnectionRequest(ByVal requestID As Long)
Load wSock
wSock.LocalPort = 1007
wSock.Accept requestID
End Sub
Até aí tudo OK, o objeto Winsock é reconhecido e passa a "escutar" a porta que eu defini, como 1007. O problema é que, quando o cliente faz a requisição de conexão, o evento ConnectionRequest não é disparado dentro da minha classe onde está o objeto wSock... mas sim no Form1, onde está o componente Winsock.
É como se ele ignorasse o novo objeto e passasse a trabalhar apenas com os eventos do componente do Form1.
Preciso que ele dispare os eventos na classe.
Alguém poderia ajudar?
Obrigado!
|
