Ciao ragazzi ho ancora problemi con winsock.
Ho creato due classi VB, clsSockOut (per la trasmissione) e clsSockIn (per la ricezione).
In clsSockOut ho:
codice:
Private Const cpn_OUT_REM_PORT = 1500
Private vpsConnType As String ' tipo connessione corrente
Private vpsClient As String ' num di telefono o indirizzo IP
Private vpsPath As String ' path contenente i file da inviare/ricevere
Private vpoOutFiles As New Collection ' collection dei file da inviare
Private vpnFileHandleOut As Long ' Handle del file da inviare (in trasmissione)
Private vpsFileOut As String ' Percorso del file da salvare
Private WithEvents vpoSockOut As Winsock ' socket trasferimento file
Private WithEvents vpoSockOutCn As Winsock ' socket controllo trasferimento file
(...)
Private Sub Class_Initialize()
(...)
' inizializzazione oggetti winsock
Set vpoSockOutCn = New Winsock
vpoSockOutCn.Protocol = sckTCPProtocol
Set vpoSockOut = New Winsock
vpoSockOut.Protocol = sckTCPProtocol
End Sub
(...)
Public Function Send() As Boolean
Dim vsIPClient As String
Dim vloItem As Variant
' crea l'elenco dei file
fpoOutFiles vpoOutFiles, vpsPath
' imposta destinazione dei file
vsIPClient = vpsClient
With vpoSockOutCn
' connessione sock controllo (invio)
If (.State <> sckClosed) Then .Close
.LocalPort = 0
.Connect vsIPClient, cpn_OUT_REM_PORT
' invio dei file
For Each vloItem In vpoOutFiles
' il formato di invio è CMD:"/FILE" NAME:"nome del file da inviare" DIM:"dimensione"
vpsFileOut = vpsPath & fpsGetAttr("NAME:", vloItem)
If (.State <> sckConnected) Then Exit Function
.SendData vloItem
Next
End With
End Function
In clsSockOut ho:
codice:
Private Const cpn_IN_LOC_PORT = 1500
Private vpsConnType As String ' tipo connessione corrente
Private vpsClient As String ' num di telefono o indirizzo IP
Private vpsPath As String ' path contenente i file da inviare/ricevere
Private vpnFileHandleIn As Long ' Handle del file da salvare (in ricezione)
Private vpsFileIn As String ' Percorso del file da salvare
Private WithEvents vpoSockIn As Winsock ' socket ricezione file
Private WithEvents vpoSockInCn As Winsock ' socket controllo ricezione file
Private Sub Class_Initialize()
' inizializzazione dei parametri
(...)
' inizializzazione oggetti winsock
Set vpoSockInCn = New Winsock
vpoSockInCn.Protocol = sckTCPProtocol
Set vpoSockIn = New Winsock
vpoSockIn.Protocol = sckTCPProtocol
' setta socket ricezione controllo in ascolto
With vpoSockInCn
.LocalPort = cpn_IN_LOC_PORT
.Listen
End With
End Sub
Private Sub vpoSockInCn_ConnectionRequest(ByVal requestID As Long)
With vpoSockInCn
.Close
.Accept requestID
End With
End Sub
Private Sub vpoSockInCn_DataArrival(ByVal bytesTotal As Long)
Dim vlvDati() As Byte
Dim vlsCmd As String
Dim vlnFileDim As Long
Dim vlsRisp As String
vpoSockInCn.GetData vlvDati
vlvDati = StrConv(vlvDati, vbUnicode)
vlsCmd = fpsGetAttr("CMD:", vlvDati)
Select Case (vlsCmd)
Case "/FILE"
vpsFileIn = fpsGetAttr("NAME:", vlvDati)
vlnFileDim = CLng(fpsGetAttr("DIM:", vlvDati))
With vpoSockIn
If (.State <> sckClosed) Then .Close
.LocalPort = 0
.Listen
vlsRisp = "CMD:<+OK PORTA> PORTA:<" & .LocalPort & ">"
vpoSockInCn.SendData vlsRisp
End With
Case Else
' comando non riconosciuto
End Select
End Sub
Il funzionamento è questo:
Richiamando il metodo "Send" della classe clsSockOut io mi connetto al socket di ricezione con il metodo
.LocalPort = 0
.Connect vsIPClient, cpn_OUT_REM_PORT
di conseguenza scatta l'evento vpoSockInCn_ConnectionRequest sulla classe clsSockIn (su un'altro PC)
di seguito quando devo inviare dati tramite l'istruzione .SendData vloItem presente nella classe clsSockOut nel metodo Send l'evento vpoSockInCn_DataArrival non scatta come invece dovrebbe.
Dove sbaglio? Perchè a connetersi si connette ma ad inviare dati no?
Grazie, saluti.
Rispondi quotando
:
