rieccomi...con i miei problemi.
allora diciamo che mezzo problema l'ho risolto...anche se, nn è ancora quello che volgio!!!
con questo codice riesco ad iviare 2 strighe ed a riceverle perfettamente nelle 2 textbox separate...ma se ne volgio inviare 3 o anora di + sto di nuovo punto e accapo, in quanto le strighe mi arrivano tutte mischiate e unite...
ecco il codice:
CLIENT
Private Sub cmdInvia_Click()
'INVIA I DATI SULLA SOCKET E CHIUDE LA CONNESSIONE
Dim Invia As String
Dim Invia2 As String
Invia = txtImp96.Text
If Winsock2.State = sckConnected Then
Winsock2.SendData Invia
DoEvents
Invia2 = txtImp91.Text
Winsock2.SendData Invia2
DoEvents
Winsock2.Close
End If
End Sub
SERVER
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
'LEGGE I DATI IN ARRIVO E LI VISUALIZZA
Dim ricevuto As String
Winsock2.GetData ricevuto
txtImp91.Text = ricevuto
DoEvents
txtImp96.Text = ricevuto
DoEvents
Winsock2.Close
End Sub
come posso fare per inviare un'ulteriore striga?
|