Oppure

Loading
16/04/07 15:22
xreme
Postato originariamente da 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

ma per i file piccoli il close quando lo fai
aaa
16/04/07 15:45
xreme
ma scusa, i codici postati sono per il senddata, ma per il getdata?
aaa
16/04/07 16:14
xreme
ma non vedo nessuna differenza, comunque il problema è sempre lo stesso, ovvero in ricezione non in trasmissione.
aaa
17/04/07 12:42
P4p3r0g4
Open destinazione For Binary As #1
Put #1, , stringa
Close #1
Ultima modifica effettuata da P4p3r0g4 17/04/07 12:44
aaa
17/04/07 14:28
xreme
Postato originariamente da P4p3r0g4:

Open destinazione For Binary As #1
Put #1, , stringa
Close #1

ciao,
allora ancora non ho provato ma credo che così non vada, in quanto tu fai il close, ma se i pacchetti che ricevo sono più di uno lui al primo pacchetto di 8 kb lo chiude! 8-|
aaa
17/04/07 14:33
xreme
confermo quanto detto sopra
aaa
17/04/07 19:19
c.ronaldo
Se non hai ancora risolto c'è una dettagliatissima guida su:

[url]

vbsimple.net/cliserv/…

[/url]:k:
aaa
18/04/07 12:25
P4p3r0g4
open devi inserirlo all'inizio, put alla ricezione e end al tuo controllo nel timer.
in pratica la differenza è che tu scrivi in byte e io in stringhe.
aaa