Andrea89 (Normal User)
Pro
 
Messaggi: 91
Iscritto: 05/01/2007
|
Salve ragazzi,
conoscete un modo per spedire più file con il winsock? oppure addirittura una cartella?
E qual è il codice per ricevere i file ?  aiutatemi plz 
Ultima modifica effettuata da Andrea89 il 06/01/2007 alle 11:10 |
|
|
()
Newbie
Messaggi:
Iscritto:
|
prova a usare il .senddata...
|
|
|
Andrea89 (Normal User)
Pro
Messaggi: 91
Iscritto: 05/01/2007
|
Si,fino ad ora ho usato il .senddata per inviare stringhe prese da una richtextbox..ora il
problema è questo,devo inviare piu stringhe da piu richtextbox..ho provato con piu senddata ma poi il server ne riceve sempre una..l'ultima..quindi avevo pensato di salvare tutte le stringhe in un file e poi inviarlo..però non conosco il codice per inviare e ricevere file..
Cioè
Open file as ....... ecc ecc
non mi é tanto chiaro..
aiutatemi pls..
Grazie a tutti
|
|
|
()
Newbie
Messaggi:
Iscritto:
|
Codice sorgente - presumibilmente Visual Basic 6 |
Prova a metterlo dopo ogni comando. In questo modo il server/client avrà tutto il tempo di ricevere i dati.
Es:
If testo.Text = "comando" Then
Winsock.SendData testo
Call Sleep(2000)
End If
Ultima modifica effettuata da il 08/01/2007 alle 17:28 |
|
|
Andrea89 (Normal User)
Pro
Messaggi: 91
Iscritto: 05/01/2007
|
Scusami ancora,ma quando inserisco il codice
Codice sorgente - presumibilmente Visual Basic 6 |
e poi avvio il programma,mi dice
"Sub o Function non definita"
il CALL serve per richiamare una sub routine..
quindi immagino che devo crearla 
ma come? 
scusami tanto ma nn sono molto pratico
|
|
|
()
Newbie
Messaggi:
Iscritto:
|
Codice sorgente - presumibilmente VB.NET |
Private Declare Function Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long) As Long
|
chiedo perdono, me l'ero dimenticata 
|
|
|
Andrea89 (Normal User)
Pro
Messaggi: 91
Iscritto: 05/01/2007
|
grazie mille
provo subito
|
|
|
Andrea89 (Normal User)
Pro
Messaggi: 91
Iscritto: 05/01/2007
|
comunque niente..non va..
questo è il codice inserito
---Client--
Codice sorgente - presumibilmente VB.NET |
Private Sub Command3_Click() dim invia as string invia= text1.text winsock.senddata invia call sleep(2000) invia= text2.text winsock.senddata invia call sleep(2000) end sub
|
---Server---
Codice sorgente - presumibilmente VB.NET |
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) dim ricevuto as string winsock.getdata ricevuto text1.text = ricevuto call sleep(2000) winsock.getdata ricevuto text1.text = ricevuto call sleep(2000) end sub
|
Cosa c'è di sbagliato? |
|
|
()
Newbie
Messaggi:
Iscritto:
|
prova a fare così :
--Client--
Codice sorgente - presumibilmente VB.NET |
Private Sub Command3_Click() if text1.text = "" then else winsock.senddata text1 call sleep(2000) end if if text2.text = "" then else winsock.senddata text2 call sleep(2000) end if end sub
|
--Server--
Codice sorgente - presumibilmente VB.NET |
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) dim Data as string winsock.getdata Data if Data = "comando" then msgbox "text1.text riuscito",vbokonly, "prova1" end if if Data = "comando2" then msgbox "text2.text riuscito",vbokonly, "prova2" msgbox "PROVA RIUSCITA",vbokonly,"ben fatto" end if end sub
|
|
|
|
| 
