10/07/08 13:04
8jack
Ciao a tutti, ho un problema con una connesione mediante socket.
Allora mi spiego.
In una Form ho messo un oggetto di tipo Winsock chiamato WinsockRead e nelle proprietà gli ho inserito RemoteHost: 192.168.100.102 e come RemotePort 2001.
Ora come faccio a fare la connessione vera e propria?
Ho utilizzato il comando:
WinsonkRead.Connect
Ma la connessione mi rimane in Stato 6 quindi sckConnecting, come faccio a portarmi nello Stato 7 e quindi sckConnected?
Spero di essermi spiegato perchè sono alle prime armi con VB6 e non penso di avervi fatto capire il problema...
Grazie a tutti
aaa
10/07/08 13:14
gantonio
Perche' non segui un libro introduttivo su VB6?
E perche' inizi dalla programmazione di rete se non hai gia' esperienza con il linguaggio e con i socket (in particolare winsock)?
Scusa, ma chiedere come mettere le tegole ad una casa senza nemmeno avere costruito le fondamenta, non puo' avere una risposta sensata ...
aaa
10/07/08 13:35
8jack
Hai ragione, ma purtroppo per lavoro mi hanno cacciato in questa situazione e non ho ne manuali ne niente, solo un esempio di un programma già fatto e ora mi trovo in questa situazione...
L'unica cosa che volevo sapere è come mai quando faccio la connessione mediante winsock.Connect mi metto nello stato 6 e non riesco a portarmi nello stato 7
Ultima modifica effettuata da 8jack 10/07/08 14:56
aaa
10/07/08 21:30
gantonio
Lascia perdere lo stato ... posta il codice che hai scritto ...
aaa
11/07/08 6:49
8jack
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 11/07/08 6:57
aaa
11/07/08 7:22
gantonio
Dopo la
WinsockRead.Connect
Do While WinsockRead.State <> sckConnected
DoEvents
Loop
aaa
11/07/08 7:37
8jack
Purtroppo anche inserendo il Do While rimando sempre nel loop perchè la connessione mi rimane sempre in sckConnecting e non mi va in sckConnected.
aaa
11/07/08 7:57
gantonio
Allora hai un problema con il server ...
Quale codice usi per il server?
Hai provato a connetterti con il server con TELNET ?
aaa
