Winsock è un po' un casino... ho scaricato un po' di codice, e ci sono delle cose che non capisco.... inoltre mi da un errore...
posto il codice client:
codice:
Private Sub Form_Load()
tcpClient.RemoteHost = m_strNomeServer
' io leggo il m_strNomeServer dal Registry; potrebbe anche essere
' il nome del computer sulla rete (LAN o WAN)
tcpClient.RemotePort = 1001
If tcpClient.State = sckClosed Then
tcpClient.Connect
' Questa.Connect scatena l'evento ConnectionRequest sul prg Server
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If tcpClient.State <> sckClosed Then
If tcpClient.State = sckConnected Then
' PRIMA di disconnettermi quasi "fisicamente" dal server
' gli comunico che mi sto disconnettendo
' Questo non è obbligatorio per il controllo Winsock,
' ma per il mio applicativo sì!
ComponiComando tcpClient, g_str_PKT_CMD_CONN_END, 0, m_strUserID
End If
tcpClient.Close
End If
End Sub
Private Sub tcpClient_Connect()
' appena collegato quasi "fisicamente", comunico al server chi sono
' La ComponiComando è identica a quella del server
ComponiComando tcpClient, g_str_PKT_CMD_CONN_START, 0, m_strUserID
' Questa istruzione scatenza l'evento DataArrival sul server
End Sub
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strRicevuta As String
' l'intera stringa ricevuta
tcpClient.GetData strRicevuta
' Qui mi gestisco la stringa ricevuta in maniera simile (attenzione:
' non identica!) a quanto faccio nel server
End Sub
Private Sub tcpClient_Error(ByVal Number As Integer, Description As String, _
ByVal Scode As Long, ByVal Source As String, _
ByVal HelpFile As String,
ByVal HelpContext As Long, CancelDisplay As Boolean)
' In caso di errore, chiudo tutto
tcpClient.Close
MsgBox "tcpClient_Error:" & CStr(Number) & m_strNomeServer
Unload Me
End Sub
non capisco cosa sia componicomando (e li mi da errore)... non capisco neanche con il codice del server cosa sia comando, ma li non mi da errore!!!
posto il codice server:
codice:
aPrivate Sub tcpServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim blnTrovato As Boolean
Dim intIndice As Integer
blnTrovato = False
If Index = 0 Then ' E' un tentativo di connessione al server
intIndice = 1
' Loopo sulle 4 connessioni per cercarne 1 libera
Do Until ((blnTrovato = True) Or (intIndice > 4))
If tcpServer(intIndice).State = sckClosed Then
tcpServer(intIndice).Accept requestID
‘ Questa Accept scatena l’evento Connect sul client
blnTrovato = True
Else
intIndice = intIndice + 1
End If
Loop
End If
End Sub
Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strRicevuta As String 'l'intera stringa ricevuta
' I componenti della comunicazione client/server
' strComandoPacchetto + lngDimensionePacchetto + strDatiPacchetto,
' nel caso di comunicazioni tra client e server
' in entrambe le direzioni
' strDatiPacchetto, se il client sta inviando i dati che compongono una tabella
Dim strComandoPacchetto As String
Dim lngDimensionePacchetto As Long
Dim strDatiPacchetto As String
On Error GoTo GestErrore
tcpServer(Index).GetData strRicevuta
strComandoPacchetto = Left(strRicevuta, g_int_DIMENSIONE_COMANDO)
strDatiPacchetto = RTrim(Right(strRicevuta, g_int_DIMENSIONE_DATI))
lngDimensionePacchetto = Val(Mid(strRicevuta, g_int_DIMENSIONE_COMANDO + 1, _
g_int_DIMENSIONE_NUMERO))
Select Case strComandoPacchetto
Case g_str_PKT_CMD_CONN_START Then
StrUserID = strDatiPacchetto
' l’applicazione (dopo TCP!) riconosce l’utente
' e gli conferma “Benvenuto”
ComponiComando Index, g_str_PKT_CMD_CONN_CONF, 0, ""
Case g_str_PKT_CMD_CONN_END
' l’utente si è disconnesso dalla mia applicazione PRIMA che da TCP
Case g_str_PKT_CMD_CONN_CONF
' il server INVIA questo messaggio, perciò non deve gestirne la ricezione
Case g_str_PKT_CMD_TRX_START
' il client sta per trasmettermi un file, il cui nome è in strDatiPacchetto
Open strDatiPacchetto For Binary As Index
' il server dice “Ho ricevuto il file x per un totale
' di 0 Bytes”; il client lo interpreta come: “Ok, trasmetti!”
ComponiComando Index, g_str_PKT_CMD_TRX_CONF, 0, m_strNomeTabella
Case g_str_PKT_CMD_TRX_CONF
Select Case lngDimensionePacchetto
Case 0 ' Bisogna inviare il file
Invia tcpServer(Index), m_strNomeFileDati
Case m_lngBytesAttesi
' Il file è arrivato correttamente
' Nella mia applicazione, passo alla tabella successiva
' (ho un elenco nel registry)
Case Else ' Occorre dire al client di riinviare il file
ComponiComando Index, g_str_PKT_CMD_TRX_START, m_lngBytesAttesi,_
m_strNomeFileDati
End Select
Case g_str_PKT_CMD_TRX_END
' Import nel database dei dati ricevuti dall’agente
ImportaFilesXML m_strUserID(Index)
' Export dei dati da inviare all’agente
EsportaFilesXML m_strUserID(Index)
' trasmissione dei dati elaborati
m_lngBytesRicevuti = 0
m_lngBytesAttesi = FileLen(m_strNomeFileDati)
ComponiComando Index, g_str_PKT_CMD_TRX_START, m_lngBytesAttesi, _
m_strNomeFileDati
Case Else ' trattasi dei dati veri e propri
Put Index, , strDatiPacchetto
m_lngBytesRicevuti = m_lngBytesRicevuti + Len(strDatiPacchetto)
If m_lngBytesAttesi = m_lngBytesRicevuti Then
Close Index
ComponiComando Index, g_str_PKT_CMD_TRX_CONF, m_lngBytesRicevuti,_
m_strNomeTabella
End If
End Select
Exit Sub
GestErrore:
ScriviSuLog g_strNomeFileLog, Index, _
"tcpServer_DataArrival error " & Err.Number & vbCrLf & Err.Source, 0
End Sub
In caso di errori viene scatenato l’evento Error; nella mia realtà non uso però una MsgBox, perché l’applicazione è NON presidiata e rischierei, bensì una routine ScriviSuLog(strNomeFileLog, strUtente, Number, Description, etc)
Private Sub tcpServer_Error(Index As Integer, ByVal Number As Integer, _
Description As String, ByVal Scode As Long, ByVal Source As String, _
ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "tcpServer_Error: " & CStr(Number) & vbCrLf & Description
End Sub
La Close chiude la singola connessione; ad esempio, se l'agente che sta utilizzando la connessione n°3 si scollega, questo evento verrà attivato dal metodo Close del Client; sul server Index varrà ... 3!
Private Sub tcpServer_Close(Index As Integer)
If tcpServer(Index).State <> sckClosed Then
tcpServer(Index).Close
End If
End Sub
Private Sub InviaStringa(Index As Integer, Comando As String, Dimensione As Long, _
Dati As String)
' Comando, Dimensione e Dati sono miei parametri per costruirmi la
' stringa che "viaggia" tra i due programmi che risulta
' composta da Comando (10 char) + Dimensione (14 char) + Dati (1000 char)
tcpServer(Index).SendData Comando & Space(g_int_DIMENSIONE_COMANDO - Len(Comando)) & _
Format(Dimensione, g_str_PKT_NUMBER_MASK) & _
Space(g_int_DIMENSIONE_HEADER - Len(Comando) - Len(g_str_PKT_NUMBER_MASK)) & _
Dati & Space(g_int_DIMENSIONE_DATI - Len(Dati))
' La tcpServer(Index).SendData scatena l'evento DataArrival sul client
End Sub
Private Sub Form_Load()
tcpServer(0).LocalPort = 1001
tcpServer(0).Listen 'il Server "ascolta" la porta impostata sopra
For intIndice = 1 To 4
Load tcpServer(intIndice) ' creo la nuova istanza
tcpServer(intIndice).LocalPort = 0 ' TASSATIVO punto e basta
Next
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim intIndice As Integer
For intIndice = 1 To 4
Unload tcpServer(intIndice)
Next
End Sub
boh....
comunque ringrazio anticipatamente anche xegallo... il codice è molto breve!!!
e grazie anche per hostname!
PS: con winsock, si inviano anche file e/o comandi????
THANKS
voglio semplicemente poter mandare dalla mia postazione, in questa rete, messaggi ad altri computer, tipo msgbox, poi, sarebbe molto interessante, poter inviare file e poter dare comandi ad altri computer del tipo: shell ect...
Permessi di invio
Rispondi quotando