Visual Basic 6 - DLL Winsock

Forum - Visual Basic 6 - DLL Winsock

GoLDBeRG (Ex-Member)
Expert

Messaggi: 331
Iscritto: 19/12/2005

Postato alle 17:51
Venerdì, 28/11/2008

ciao ragazzi avrei bisogno del vostro aiuto...

devo interagire in vb.net con una dll scritta in vb6 questo perche devo necessariamente usare le winsock al posto della classe socket del vb.net in quanto lenta e dispendiosa.

Codice sorgente - presumibilmente VB.NET

Public WithEvents sock As Winsock
Public port As Integer
 
Public Sub apriporta()
Set sock = New Winsock
sock.LocalPort = port
sock.Listen
End Sub
 
Private Sub sock_ConnectionRequest(ByVal requestID As Long)
sock.Close
sock.Accept (requestID)
End Sub
 
Public Sub send(ByVal data As String)
sock.SendData (data)
End Sub
 
Private Sub sock_DataArrival(ByVal bytesTotal As Long)
 
End Sub

queste so le procedure della dll
adesso usando vb.net richiamo la dll

Codice sorgente - presumibilmente Visual Basic 6

Dim SW as New SocketDLL.Class1
SW.port=port
SW.apriporta
array.add(SW)

questo è quanto.... il problema è che la dll non si mette in ascolto proprio per nulla...come devo fare?

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:25
Venerdì, 28/11/2008

Secondo me questo problema riguarda più vb.net quindi prova a chiedere nella sezione .net ...

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 2:09
Sabato, 29/11/2008

perche non provi a fare

Public Sub apriporta(port as integer)
Set sock = New Winsock
sock.LocalPort = port
sock.Listen
End Sub

...
sw.apriporta(...)