22/07/08 13:23
giusy_m86
per poter inviare più stringhe come si fa?
es:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'LEGGE I DATI IN ARRIVO E LI VISUALIZZA
Dim imp96 As String
Winsock1.GetData imp96
txtImp96.Text = imp96
end sub
quando dichiaro altre stringhe nn arrivsnno, come devo fare?
aaa
22/07/08 14:10
Overflow
Devi essere più chiara nell'esporre il problema, non si capisce cosa c'è che non va. Comunque posta il codice con il quale invii le stringhe.
Ultima modifica effettuata da Overflow 22/07/08 14:10
aaa
22/07/08 14:20
giusy_m86
dal mio client voglio inviare alcune strighe al server...stavo fecendo una ricerca nel forum ed ho trovato questi esempi ma lo stesso nn funziona...
CLIENT:
Private Sub cmdInvia_Click()
'INVIA I DATI SULLA SOCKET E CHIUDE LA CONNESSIONE
Dim Invia As String
Invia = txtImp96.Text
If Winsock2.State = sckConnected Then
Winsock2.SendData Invia
Call Sleep(500)
Invia = txtImp91.Text
Winsock2.SendData Invia
Call Sleep(500)
End If
End Sub
SERVER:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'LEGGE I DATI IN ARRIVO E LI VISUALIZZA
Dim ricevuto As String
Winsock1.GetData ricevuto
txtImp96.Text = ricevuto
Call Sleep(500)
Winsock1.GetData ricevuto
txtImp91.Text = ricevuto
Call Sleep(500)
End Sub
perchè sul server ricevo solo la prima stringa?
Ultima modifica effettuata da giusy_m86 22/07/08 15:31
aaa
22/07/08 17:04
Overflow
sei sicura che ricevi solo la prima stringa? comunque nel client sostituisci sleep(500) con doevents.
aaa
23/07/08 13:07
gantonio
Non devi usare l'evento di ricezione dei dati per ricevere piu' volte ...
aaa
23/07/08 13:27
gantonio
Non c'e' un qualcosa da usare che non ti voglio dire ...
L'evento di ricezione va usato una sola volta per ricevere tutti i dati che arrivano ...
aaa
