Per fare una prova di comunicazione dal server al client ho creato un tasto sul server dove con una "InputBox" inserisco una stringa e la invio al client con una "SendData":
Nella "DataArrival" del client ho inserito una istruzione "GetData" per prendere la stringa in input e poi la metto in un campo "Text" in modo da avere riscontro visivo:Private Sub Command2_Click()
Dim testo_prova As String
testo_prova = InputBox("Inserire il testo di prova")
Server.SendData (testo_prova)
End Sub
Private Sub Client_DataArrival(ByVal bytesTotal As Long)
Dim testo_server As String
Client.GetData (testo_server)
Text1.Text = testo_server
End Sub
Una volta lanciati client e server li connetto (la connessione da esito positivo), premo il tasto per inserire il testo, inserisco, premo "Ok" e teoricamente il client dovrebbe ricevere i dati, ma così non è.
La connessione avviene con il server in attesa "Server.Listen" e il client che si connette "Client.Connect". Non capisco l'errore, la comunicazione sembra monodirezionale, che sia sbagliato qualche settaggio del Winsock?
Rispondi quotando