Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Ho scritto in questo modo, nn mi dà alcun errore ma lo stesso nn mi abilita il tasto del server
CLIENT
Dim Abilita As String
Winsock4.Connect
If Winsock4.State = sckConnected Then
Winsock4.SendData "Abilita"
End If
End Sub
SERVER
Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
Dim Abilita As String
If Winsock4.GetData <> "Abilita" Then
cmdInvioDati.value = True
End Sub
Scusa se te lo dico, ma dovresti seguire un bel manuale, ti mancano cose base e addirittura cose a cui si potrebbe andare a intuzione le hai sbagliate...si direbbe che programmi da 2 minuti fa...
cmq:
Testo quotato
Postato originariamente da giusy_m86:
Ho scritto in questo modo, nn mi dà alcun errore ma lo stesso nn mi abilita il tasto del server
CLIENT
Dim Abilita As String Winsock4.Connect
If Winsock4.State = sckConnected Then
Winsock4.SendData "Abilita"
End If
End Sub
la stringa in grassetto non serve a niente poteva servire solo se avevi fatto tipo:
Codice sorgente - presumibilmente Visual Basic 6
dim Abilita as string
Abilita = "Abilita"
[...]
winsock1.senddata Abilita (<- la variabile)
cmq puoi lasciare come hai scritto tu levando semplcemente la riga in grassetto...
Testo quotato
SERVER
Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
Dim Abilita As String dim data as string
Winsock4.GetData
If Winsock4.GetData <> "Abilita" Then
cmdInvioDati.value = True
End Sub
Dove sbaglio?
Anche qui c'è quella variabile inutile, poi c'è una parte in corsivo che ho aggiunto che serve per la ricezione...
poi ti ho messo in evidenza "<>" perchè significa diverso quindi tu dici:
se la stringa ricevuta è diversa da "Abilita" allora:
abilita il command1
io penso che volevi dire se la stringa ricevuta è uguale ad "Abilita"...
quindi metti al posto di "<>" l'uguale: "="
Ultima modifica effettuata da GrG il 29/07/2008 alle 15:55
Ho scritto in questo modo, nn mi dà alcun errore ma lo stesso nn mi abilita il tasto del server
CLIENT
Dim Abilita As String
Winsock4.Connect
If Winsock4.State = sckConnected Then
Winsock4.SendData "Abilita"
End If
End Sub
SERVER
Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
Dim Abilita As String
If Winsock4.GetData <> "Abilita" Then
cmdInvioDati.value = True
End Sub
Dove sbaglio?
il metodo getdata vuole un parametro in input, non puoi fare il controllo su winsock.getdata <>"Abilita" ma dovresti fare
Codice sorgente - presumibilmente VB.NET
dim abilita asstring
winsock4.getdata abilita 'passo la variabile come parametro
if abilita ="Abilita"then
'abilita il tasto
command1.enabled=true
endif
facendo invece
Codice sorgente - presumibilmente Delphi
if winsock4.getdata <> "Abilita" then
'...
end if
in questo modo stai facendo un controllo sul valore di ritorno del metodo getdata (che credo non ne abbia) inoltre dovresti avere un errore poichè la funzione si aspetta un parametro in input.
Ultima modifica effettuata da Overflow il 29/07/2008 alle 16:13
Supponendo che il codice vada bene...la funzione che mi abilta un comanado è questa: command1.value=true?