Ho una app per Android che invia dei dati che possono essere sia delle stringhe (ca 50 byte) che dei dati binari (ca 3 MB, sono dei documenti PDF).
Il mio codice VB6 utilizza il componente winsock per ricevere (con il wifi ed un IP statico) questi dati sul PC ; provengono da un tablet Android.
Mentre non c'e' problema per la ricezione dei dati stringa quelli binari sono ricevuti a blocchi di 8192 byte per cui mi e' impossibile assemblarli in un unico file PDF.
Ecco uno spezzone che c'e' nella sub wsClients_DataArrival(Index As Integer, ByVal bytesTotal As Long)
codice:
Dim data(5000000) As Byte
wsClients(Index).GetData data, vbByte
Dim i As Integer
If bytesTotal < 100 Then
For i = 0 To bytesTotal - 1
Ric = Ric & Chr$(data(i))
Next i
Debug.Print Ric '--- la ricezione della stringa � OK
Else
'--- il dato binario invece .....
F = FreeFile
Open App.Path & "\aaaaaa.pdf" For Binary Access Write As #F
Put #F, , data()
Close #F
End If
Si puo' risolvere questo problema ? E come ?
Grazie per l'attenzione.