Ciao a tutti, ho questo problema:
il mio pda, trasmette via socket al server una stringa formata in questo modo: username|password
Ovviamente username e password sono due campi di testo sul programma del mio palmare.
Il risultato è che ottengo solo la prima lettera di username:
posto il codice del cleint x SendData
codice:
Private Sub Command1_Click()
If Len(txtuser) > 0 And Len(txtpswd) > 0 Then
'MsgBox (txtuser)
'WinSock1.SendData ("@")
WinSock1.SendData txtuser.Text & "|" & txtpswd.Text
Else
MsgBox ("Controlla tutti i campi da inviare")
End If
End Sub
e questo il code del server
codice:
Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
'MsgBox ("sono nella parte decisiva")
sckServer(intMax).GetData user_pda, vbString ' Copia i dati del Buffer in entrata nella variabile Data e svuota il Buffer
'sckServer(intMax).PeekData user_pda, vbString
If Not Trim(user_pda) = "@" Then
user_rem = user_rem & user_pda
'FormTest.Show
End If
'FormTest.Textuser.Text = FormTest.Textuser.Text & user_rem
'MsgBox (user_rem)
FormTest.Show
End Sub
ecco dove da il problema:
codice:
Private Sub Form_Load()
Textuser.Text = user_pda
spl = Split(Textuser.Text, "|")
user = spl(0)
pswd = spl(1)
Set conn = DataEnvironment1.Connection1
conn.Open
...
su pswd = spl(1) da errore perchè come dicevo prima non passa tutta la stringa ma solo la prima lettera dell'username.
dove sbaglio ?
grazie 1000