[VB6] Winsock, connessione e disconnessione

[x69asterix]

Originariamente inviato da oregon
Allora ... per capirci ... fai la domanda nel modo piu' chiaro possibile in modo che si capisca da quale programma vuoi spedire file e verso quale altro.

In generale

CLIENT --- SERVER

Il client chiede al server che vuole un certo file inviando un comando come puo' essere GET+nomefile

CLIENT ---> GET+test.jpg ---> SERVER

il server riceve il comando, apre il file in binario, lo legge e lo invia al client

CLIENT <---- 00001101010 <--- SERVER

il client riceve i dati e li scrive in binario in un file locale.

allora io sono il client,
chiedo al server o meglio voglio prelevare un file dal server.

[oregon]

Mi pare di averti risposto, allora ...

[x69asterix]

Originariamente inviato da oregon
Mi pare di averti risposto, allora ...

CLIENT ---> GET+test.jpg ---> SERVER
Client(1).GetData(ElencoFiles.Text)
come lo visualizzo in una RichTextBox1
e come lo salvo

[oregon]

Originariamente inviato da x69asterix
CLIENT ---> GET+test.jpg ---> SERVER
Client(1).GetData(ElencoFiles.Text)
come lo visualizzo in una RichTextBox1
e come lo salvo

Non riesco a capirti!

Cosa c'entra la linea

Client(1).GetData(ElencoFiles.Text)

?

Una volta che il client ha l'elenco dei files, ti avevo detto, invia una richiesta al server del tipo

Client(1).SendData "GET " & nomefile

in cui nomefile e' una stringa che contiene uno dei nomi preso dall'elenco.

Il server riceve tale richiesta, apre il file con l'istruzione Open in binario, la legge con la Get # in una stringa, la invia con la SendData e il tuo client riceve tutti i dati con la GetData.

Il client salva tutti i dati che ottiene dal server su un file binario a sua volta aperto in locale con la Open in binario.

Non posso certamente scrivere tutto il codice che ci vuole, lato server e lato client, anche perche' deve essere integrato in quello che hai gia' scritto!

[x69asterix]

Originariamente inviato da oregon
Non riesco a capirti!

Cosa c'entra la linea

Client(1).GetData(ElencoFiles.Text)

?

Una volta che il client ha l'elenco dei files, ti avevo detto, invia una richiesta al server del tipo

Client(1).SendData "GET " & nomefile

in cui nomefile e' una stringa che contiene uno dei nomi preso dall'elenco.

Il server riceve tale richiesta, apre il file con l'istruzione Open in binario, la legge con la Get # in una stringa, la invia con la SendData e il tuo client riceve tutti i dati con la GetData.

Il client salva tutti i dati che ottiene dal server su un file binario a sua volta aperto in locale con la Open in binario.

Non posso certamente scrivere tutto il codice che ci vuole, lato server e lato client, anche perche' deve essere integrato in quello che hai gia' scritto!

ok,
credo di avere capito il concetto.
Ancora una cosa, su un controllo winsock quante porte posso mettere in ascolto,
"Una"

[oregon]

Un controllo winsock ... una porta.

[x69asterix]

ho delle grosse difficoltà chi mi aiuta a risolverle.
Posto il codice sia del client che del server, l'oggetto è sempre lo stesso richiesta di un file da parte del client al server.


client

il client mi dà la lista dei file del server:

Option Explicit
Private ELENCADIR As Boolean

Private Sub Form_Load()
Load Client(1) ' Alloca istanza
End Sub

Private Sub Connetti_Click()
If Trim(HostName.Text) = "" Then Exit Sub
Unload Client(1) ' Dealloca prima di utilizzare
Load Client(1) ' Rialloca istanza
Client(1).Connect Trim(HostName.Text), 1500
End Sub

Private Sub Disconnetti_Click()
Client(1).Close ' Disconnetti
End Sub

Private Sub AggiornaButton_Click()
If Client(1).State <> sckConnected Then Exit Sub
ELENCADIR = True
If SceltaDIR(0).Value Then Client(1).SendData "DIRF" & vbNewLine
If SceltaDIR(1).Value Then Client(1).SendData "DIRS" & vbNewLine
If SceltaDIR(2).Value Then Client(1).SendData "DIR" & vbNewLine
End Sub

Private Sub Client_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim DATI As String
Client(1).GetData DATI, vbString, bytesTotal ' Ricevi
If ELENCADIR = True Then PreparaElenco DATI
End Sub

Private Sub ElencoFiles_DblClick()
Client(1).SendData "CD " & ElencoFiles.Text & vbNewLine
End Sub

Private Sub PreparaElenco(ByVal Elenco As String)
Dim INVIO As Integer
ELENCADIR = False
ElencoFiles.Clear
Elenco = Mid(Elenco, InStr(1, Elenco, vbNewLine))
INVIO = InStr(1, Elenco, vbNewLine)
If InStr(INVIO + 1, Elenco, vbNewLine) < 1 Then INVIO = 0
While INVIO <> 0
ElencoFiles.AddItem Mid(Elenco, INVIO + 2, InStr(INVIO + 1, Elenco, vbNewLine) - INVIO - 2)
INVIO = InStr(INVIO + 1, Elenco, vbNewLine)
If InStr(INVIO + 1, Elenco, vbNewLine) < 1 Then INVIO = 0
Wend
End Sub

bene in questo modo ottengo la lista dei file dal server.
****************************************

server


Option Explicit
Private DATIINARRIVO As String ' Dati senza invio

Private Sub Form_Load()
Server.Listen
End Sub

Private Sub Form_Unload(Cancel As Integer)
Server_Close ' Chiusura del server
End
End Sub

Private Sub Server_Close()
Server.Close
Server.LocalPort = 1500
Server.Listen ' Riapre la porta in ascolto
StatoConnessione.Caption = "Nessun utente collegato"
End Sub

Private Sub Server_ConnectionRequest(ByVal requestID As Long)
Server.Close
Server.Accept requestID ' Accetta connessione
DoEvents
TimeOut.Enabled = True ' Avvia countdown
StatoConnessione.Caption = "Un utente collegato"
End Sub

Private Sub Server_DataArrival(ByVal bytesTotal As Long)
Dim DATI As String
TimeOut.Enabled = False
On Error Resume Next
Server.GetData DATI, vbString, bytesTotal ' Legge buffer
DATIINARRIVO = DATIINARRIVO & DATI ' Appende buffer
If Right(DATIINARRIVO, 2) = vbNewLine Then
GestisciComandi Left(DATIINARRIVO, Len(DATIINARRIVO) - 2)
DATIINARRIVO = ""
End If
TimeOut.Enabled = True ' Azzera countdown
End Sub

Private Sub TimeOut_Timer()
Server_Close
TimeOut.Enabled = False
End Sub

Private Sub GestisciComandi(ByVal COMANDO As String)
Dim VALORE As String
On Error Resume Next
If InStr(1, COMANDO, " ") <= 0 Then
Select Case UCase(COMANDO) ' Comandi senza parametri
Case "QUIT": Server_Close
Case "BYE": Server_Close
Case "DIR": LeggiFilesDir CurDir, True, True
Case "DIRS": LeggiFilesDir CurDir, True, False
Case "DIRF": LeggiFilesDir CurDir, False, True
Case Else: Server.SendData " -ERR: Comando sconosciuto -> " & COMANDO & vbNewLine
End Select
Else ' Comandi con parametri
VALORE = Trim(Mid(COMANDO, InStr(1, COMANDO, " ") + 1))
If UCase(Left(COMANDO, InStr(1, COMANDO, " ") - 1)) = "CD" Then
ChDir VALORE
Server.SendData " +OK: La cartella di lavoro è: " & CurDir & vbNewLine
End If
End If
End Sub

Public Sub LeggiFilesDir(ByVal CARTELLA As String, ByVal CARTELLE As Boolean, ByVal FILES As Boolean)
Dim ELENCOFILESDIR As String
Dim TEMPSTR As String
Dim VALIDO As Boolean
ELENCOFILESDIR = ""
If Right(CARTELLA, 1) = "\" Then CARTELLA = Left(CARTELLA, Len(CARTELLA) - 1)
TEMPSTR = Dir(CARTELLA & "\*.*", vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
While TEMPSTR <> ""
VALIDO = False
If (CARTELLE = True) And (GetAttr(CARTELLA & "\" & TEMPSTR) And vbDirectory) = vbDirectory Then VALIDO = True
If (FILES = True) And (GetAttr(CARTELLA & "\" & TEMPSTR) And vbDirectory) <> vbDirectory Then VALIDO = True
If VALIDO = True Then ELENCOFILESDIR = ELENCOFILESDIR & vbNewLine & TEMPSTR
TEMPSTR = Dir ' Elemento successivo
Wend
Server.SendData " +OK: " & ELENCOFILESDIR & vbNewLine
End Sub

***********************************
questi listati funzionano bene il problema stà nel fatto, visto le scarse conoscenze a mettere in pratica una richiesta di file dal client

[x69asterix]

per inviare da client a server uso.

client

Option Explicit
Private Declare Function getsockopt Lib "wsock32.dll" (ByVal s As Long, ByVal Level As Long, ByVal optname As Long, optval As Any, optlen As Long) As Long
Private Const SO_SNDBUF = &H1001
Private Const SOL_SOCKET = &HFFFF&

Private FILEHANDLE As Integer
Private DIMENSIONEPACCHETTO As Long

Private Sub Connetti_Click()
If Socket.State <> sckClosed Then Socket.Close
Socket.LocalPort = 0
Socket.Connect IndirizzoIP.Text, 1500
End Sub

Private Sub Form_Unload(Cancel As Integer)
If SocketInvio.State <> sckClosed Then SocketInvio.Close
If Socket.State <> sckClosed Then Socket.Close
Socket.LocalPort = 0
End Sub

Private Sub Invia_Click()
Dim POSIZIONE As Integer
If Socket.State <> sckConnected Then Exit Sub
If Dir(NomeFile.Text) = "" Then
MsgBox "Il file non esiste!", vbCritical + vbOKOnly
Else
POSIZIONE = 0
While InStr(POSIZIONE + 1, NomeFile.Text, "\") > 0
POSIZIONE = InStr(POSIZIONE + 1, NomeFile.Text, "\")
Wend
Socket.SendData "/FILE " & Mid(NomeFile.Text, POSIZIONE + 1) & " " & FileLen(NomeFile.Text)
End If
End Sub

Private Sub SocketInvio_Connect()
Dim DATI(511) As Byte
FILEHANDLE = FreeFile
Open NomeFile.Text For Binary As FILEHANDLE
Get FILEHANDLE, , DATI
SocketInvio.SendData DATI
Call getsockopt(SocketInvio.SocketHandle, SOL_SOCKET, SO_SNDBUF, DIMENSIONEPACCHETTO, Len(DIMENSIONEPACCHETTO))
If DIMENSIONEPACCHETTO = 0 Then DIMENSIONEPACCHETTO = 8192
End Sub

Private Sub SocketInvio_Close()
Close FILEHANDLE
If SocketInvio.State <> sckClosed Then SocketInvio.Close
End Sub

Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
Dim DATI() As Byte
Call Socket.GetData(DATI)
DATI = StrConv(DATI, vbUnicode)
If Left(DATI, 11) = " +OK: PORTA" Then
If SocketInvio.State <> sckClosed Then SocketInvio.Close
SocketInvio.LocalPort = 0
SocketInvio.Connect Socket.RemoteHostIP, Mid(DATI, 12)
End If
If (Left(DATI, 10) = " +OK: RECV") Then
If FILEHANDLE <> 0 Then
DATI = Space(DIMENSIONEPACCHETTO / 2)
Get FILEHANDLE, , DATI
SocketInvio.SendData DATI
End If
End If
If (Left(DATI, 10) = " +OK: FINE") Then
Close FILEHANDLE
SocketInvio.Close
MsgBox "Trasferimento completato!", vbInformation + vbOKOnly
End If
End Sub

server

Option Explicit
Private FILEHANDLE As Integer
Private DIMENSIONEFILE As Long
Private FILEDASALVARE As String

Private Sub Form_Load()
StatoLabel.Caption = ""
Avanzamento.Caption = "0 bytes ricevuti su 0"
Socket.LocalPort = 1500
Socket.Listen
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Socket.State <> sckClosed Then Socket.Close
End Sub

Private Sub Socket_Close()
If Passivo.State <> sckClosed Then Passivo.Close
If Socket.State <> sckClosed Then Socket.Close
Stati.AddItem "Connessione chiusa."
Socket.Listen
End Sub

Private Sub Socket_ConnectionRequest(ByVal requestID As Long)
Socket.Close
Socket.Accept requestID
Stati.AddItem "Accettata connessione."
End Sub

Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
Dim DATI() As Byte
Dim NOMEFILE As String
Dim DIMENSIONE As Long
Dim POSIZIONE As Integer
Dim TEMPSTR As String

Call Socket.GetData(DATI)
DATI = StrConv(DATI, vbUnicode)
Select Case Left(UCase(DATI), 5)
Case "/FILE"
' I files sono mandati nella forma:
' /FILE NOME DIMENSIONE
' possono contenere anche spazi:
' /FILE NOME DEL FILE DIMENSIONE
TEMPSTR = Mid(DATI, 7)
POSIZIONE = 0
While InStr(POSIZIONE + 1, TEMPSTR, " ") > 0
POSIZIONE = InStr(POSIZIONE + 1, TEMPSTR, " ")
Wend
' POSIZIONE conterrà il punto dove inizia la dimensione
NOMEFILE = Left(TEMPSTR, POSIZIONE - 1)
DIMENSIONE = CLng(Mid(TEMPSTR, POSIZIONE + 1))
TEMPSTR = "È in arrivo un file di nome " & NOMEFILE & " di " & CStr(DIMENSIONE) & " bytes."
TEMPSTR = TEMPSTR & vbNewLine
TEMPSTR = TEMPSTR & "Desideri accettarlo?"
If MsgBox(TEMPSTR, vbYesNo + vbQuestion) = vbYes Then
FILEDASALVARE = App.Path & "\RICEVUTI\" & NOMEFILE
If Dir(FILEDASALVARE) <> "" Then
TEMPSTR = "Il file " & NOMEFILE & " esiste già." & vbNewLine
TEMPSTR = TEMPSTR & "Desideri sovrascriverlo?"
If MsgBox(TEMPSTR, vbYesNo + vbQuestion) = vbYes Then
Kill FILEDASALVARE
Else
' Chiedi di cambiare il nome o fare altro...
' Noi lo rifiuteremo...
Socket.SendData " -ERR: NONACCETTATO" & vbNewLine
Stati.AddItem "File " & NOMEFILE & " rifiutato."
Exit Sub
End If
End If
DIMENSIONEFILE = DIMENSIONE
If Passivo.State <> sckClosed Then Passivo.Close
Passivo.LocalPort = 0
Passivo.Listen
Socket.SendData " +OK: PORTA " & Passivo.LocalPort & vbNewLine
Stati.AddItem "Accettazione del file " & NOMEFILE
Stati.AddItem "Ascolto sulla porta " & Passivo.LocalPort
StatoLabel.Caption = "Ricezione del file " & NOMEFILE & " di " & DIMENSIONE & " bytes."
Avanzamento.Caption = "0 bytes ricevuti su " & DIMENSIONE
AvanzamentoProgress.Value = 0
AvanzamentoProgress.Max = 0
Else
Socket.SendData " -ERR: NONACCETTATO" & vbNewLine
Stati.AddItem "File " & NOMEFILE & " rifiutato."
End If
Case "/FINE"
Passivo.Close
Close FILEHANDLE
FILEDASALVARE = ""
Stati.AddItem "Ricezione del file completata."
End Select
End Sub

Private Sub Passivo_Close()
Close FILEHANDLE
FILEDASALVARE = ""
Stati.AddItem "Ricezione del file completata."
End Sub

Private Sub Passivo_ConnectionRequest(ByVal requestID As Long)
FILEHANDLE = FreeFile
Open FILEDASALVARE For Binary As FILEHANDLE
Passivo.Close
Passivo.Accept requestID
' Tutto ciò che verrà inviato da ora in poi su questo
' socket verrà salvato sul file FILEDASALVARE
End Sub

Private Sub Passivo_DataArrival(ByVal bytesTotal As Long)
Dim DATI() As Byte
Call Passivo.GetData(DATI)
If UBound(DATI) + LOF(FILEHANDLE) + 1 >= DIMENSIONEFILE Then
ReDim Preserve DATI(DIMENSIONEFILE - LOF(FILEHANDLE) - 1)
Put FILEHANDLE, , DATI
Stati.AddItem "Salvato chunk di " & UBound(DATI) + 1 & " bytes."
Avanzamento.Caption = LOF(FILEHANDLE) & " bytes ricevuti su " & DIMENSIONEFILE
AvanzamentoProgress.Max = DIMENSIONEFILE
AvanzamentoProgress.Value = LOF(FILEHANDLE)
Socket.SendData " +OK: FINE"
DoEvents
Passivo.Close
Close FILEHANDLE
FILEDASALVARE = ""
Stati.AddItem "Ricezione del file completata."
Else
Put FILEHANDLE, , DATI
Stati.AddItem "Salvato chunk di " & UBound(DATI) + 1 & " bytes."
Avanzamento.Caption = LOF(FILEHANDLE) & " bytes ricevuti su " & DIMENSIONEFILE
AvanzamentoProgress.Max = DIMENSIONEFILE
AvanzamentoProgress.Value = LOF(FILEHANDLE)
Socket.SendData " +OK: RECV " & LOF(FILEHANDLE)
End If
End Sub

Private Sub Stati_DblClick()
Stati.Clear
End Sub

ma dal client non riesco a prelevare

[x69asterix]

Posso rassegnarmi?

[x69asterix]

E possibile riuscire a tirar fuori oltre i file del server anche la directory?



client

il client mi dà la lista dei file del server:

Option Explicit
Private ELENCADIR As Boolean

Private Sub Form_Load()
Load Client(1) ' Alloca istanza
End Sub

Private Sub Connetti_Click()
If Trim(HostName.Text) = "" Then Exit Sub
Unload Client(1) ' Dealloca prima di utilizzare
Load Client(1) ' Rialloca istanza
Client(1).Connect Trim(HostName.Text), 1500
End Sub

Private Sub Disconnetti_Click()
Client(1).Close ' Disconnetti
End Sub

Private Sub AggiornaButton_Click()
If Client(1).State <> sckConnected Then Exit Sub
ELENCADIR = True
If SceltaDIR(0).Value Then Client(1).SendData "DIRF" & vbNewLine
If SceltaDIR(1).Value Then Client(1).SendData "DIRS" & vbNewLine
If SceltaDIR(2).Value Then Client(1).SendData "DIR" & vbNewLine
End Sub

Private Sub Client_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim DATI As String
Client(1).GetData DATI, vbString, bytesTotal ' Ricevi
If ELENCADIR = True Then PreparaElenco DATI
End Sub

Private Sub ElencoFiles_DblClick()
Client(1).SendData "CD " & ElencoFiles.Text & vbNewLine
End Sub

Private Sub PreparaElenco(ByVal Elenco As String)
Dim INVIO As Integer
ELENCADIR = False
ElencoFiles.Clear
Elenco = Mid(Elenco, InStr(1, Elenco, vbNewLine))
INVIO = InStr(1, Elenco, vbNewLine)
If InStr(INVIO + 1, Elenco, vbNewLine) < 1 Then INVIO = 0
While INVIO <> 0
ElencoFiles.AddItem Mid(Elenco, INVIO + 2, InStr(INVIO + 1, Elenco, vbNewLine) - INVIO - 2)
INVIO = InStr(INVIO + 1, Elenco, vbNewLine)
If InStr(INVIO + 1, Elenco, vbNewLine) < 1 Then INVIO = 0
Wend
End Sub

bene in questo modo ottengo la lista dei file dal server.
****************************************


server


Option Explicit
Private DATIINARRIVO As String ' Dati senza invio

Private Sub Form_Load()
Server.Listen
End Sub

Private Sub Form_Unload(Cancel As Integer)
Server_Close ' Chiusura del server
End
End Sub

Private Sub Server_Close()
Server.Close
Server.LocalPort = 1500
Server.Listen ' Riapre la porta in ascolto
StatoConnessione.Caption = "Nessun utente collegato"
End Sub

Private Sub Server_ConnectionRequest(ByVal requestID As Long)
Server.Close
Server.Accept requestID ' Accetta connessione
DoEvents
TimeOut.Enabled = True ' Avvia countdown
StatoConnessione.Caption = "Un utente collegato"
End Sub

Private Sub Server_DataArrival(ByVal bytesTotal As Long)
Dim DATI As String
TimeOut.Enabled = False
On Error Resume Next
Server.GetData DATI, vbString, bytesTotal ' Legge buffer
DATIINARRIVO = DATIINARRIVO & DATI ' Appende buffer
If Right(DATIINARRIVO, 2) = vbNewLine Then
GestisciComandi Left(DATIINARRIVO, Len(DATIINARRIVO) - 2)
DATIINARRIVO = ""
End If
TimeOut.Enabled = True ' Azzera countdown
End Sub

Private Sub TimeOut_Timer()
Server_Close
TimeOut.Enabled = False
End Sub

Private Sub GestisciComandi(ByVal COMANDO As String)
Dim VALORE As String
On Error Resume Next
If InStr(1, COMANDO, " ") <= 0 Then
Select Case UCase(COMANDO) ' Comandi senza parametri
Case "QUIT": Server_Close
Case "BYE": Server_Close
Case "DIR": LeggiFilesDir CurDir, True, True
Case "DIRS": LeggiFilesDir CurDir, True, False
Case "DIRF": LeggiFilesDir CurDir, False, True
Case Else: Server.SendData " -ERR: Comando sconosciuto -> " & COMANDO & vbNewLine
End Select
Else ' Comandi con parametri
VALORE = Trim(Mid(COMANDO, InStr(1, COMANDO, " ") + 1))
If UCase(Left(COMANDO, InStr(1, COMANDO, " ") - 1)) = "CD" Then
ChDir VALORE
Server.SendData " +OK: La cartella di lavoro è: " & CurDir & vbNewLine
End If
End If
End Sub

Public Sub LeggiFilesDir(ByVal CARTELLA As String, ByVal CARTELLE As Boolean, ByVal FILES As Boolean)
Dim ELENCOFILESDIR As String
Dim TEMPSTR As String
Dim VALIDO As Boolean
ELENCOFILESDIR = ""
If Right(CARTELLA, 1) = "\" Then CARTELLA = Left(CARTELLA, Len(CARTELLA) - 1)
TEMPSTR = Dir(CARTELLA & "\*.*", vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
While TEMPSTR <> ""
VALIDO = False
If (CARTELLE = True) And (GetAttr(CARTELLA & "\" & TEMPSTR) And vbDirectory) = vbDirectory Then VALIDO = True
If (FILES = True) And (GetAttr(CARTELLA & "\" & TEMPSTR) And vbDirectory) <> vbDirectory Then VALIDO = True
If VALIDO = True Then ELENCOFILESDIR = ELENCOFILESDIR & vbNewLine & TEMPSTR
TEMPSTR = Dir ' Elemento successivo
Wend
Server.SendData " +OK: " & ELENCOFILESDIR & vbNewLine
End Sub