Dim Var_App As String
Dim Cod_Pos_Baia1(100) As String
Dim BufferTrackBaia1() As Byte
WinsockRead.RemoteHost = "192.168.100.102"
WinsockRead.RemotePort = 2001
WinsockRead.Connect
ReDim BufferTrackBaia1(0 To 19)
i = 0
For i = 0 To 19
Call LeggiDati(WinsockRead, 50, (i * 20), 20, BufferTrackBaia1, Risultato)
If Risultato Then
Trk_Baia1(i) = Chr(BufferTrackBaia1(0)) + Chr(BufferTrackBaia1(1)) + Chr(BufferTrackBaia1(2)))
End If
Next i
La funzione LeggiDati non dovrebbe aver problemi visto che in altre parti del programma funzione, molto probabilmente c'è sbagliato il modo in cui apro la connessione.
Ciao Grazie
Ultima modifica effettuata da 8jack il 11/07/2008 alle 8:57 |