16/04/07 14:50
P4p3r0g4
prova a inviare stringhe invece di byte e dimmi se funziona.
intanto io controllo la documentazione.
aaa
16/04/07 14:53
xreme
in che senso?
come stringa funziona, perchè ricevo il nome del file e la sua lunghezza, questi sono inviati è ricevuti come string
aaa
16/04/07 14:57
P4p3r0g4
tu attualmente stai inviandi il file tramite variabili byte.
io di solito uso stringhe x inviare informazioni (e file) tramite winsock.
mentre controllo x i byte guarda se usando stringhe l'invio funziona.
aaa
16/04/07 15:05
P4p3r0g4
ho trovato un progetto che avevo scaricato un invio da byte te lo posto
File è il percorso del file
rb è vettore(1 to 1) di variabili byte (faceva prima a non considerarlo come vettore ma de gustibus ..)
Open File For Binary As #1
Do While Not EOF(1)
Get #1, , rb(1)
Winsock1.SendData rb
ProgressBar1 = ProgressBar1 + 1
Loop
DoEvents
Close #1
aaa
16/04/07 15:10
P4p3r0g4
In stringhe?
data4 è string
conteggio è long
Open File For Binary As #1
data4 = Space(4000)
For conteggio = 0 To CLng(LOF(1) / 4000)
Get #1, conteggio * CLng(4000) + 1, data4
Wsk4.SendData data4
DoEvents
Next conteggio
Close #1
questo è pensato per file lunghi però per file piccoli basta anche
conteggio è integer
For conteggio = 0 To LOF(1) / 4000
Get #1, conteggio *4000 + 1, data4
Wsk4.SendData data4
DoEvents
Next conteggio
o ancora più piccoli
Get #1, , data4
Wsk4.SendData data4
DoEvents
aaa
16/04/07 15:19
xreme
adesso provo,
bebè permettendo, dopo la sua pappina ti aggiorno
aaa
