Event Socket.Ready (gb.net)

Event Ready ( )

Questo eventi viene generato dopo che una connessione è stata stabilita con successo.

La proprietà Status cambierà il proprio valore in Net.Connected.

Questo esempio controlla quale porta può essere aperta sull'host locale entro un intervallo assegnato. Se il socket può connettersi allora l'evento Ready verrà generato. Se il socket non può essere aperto allora lo Status sarà impostato con un codice di errore avente valore minore di zero. Mentre si connette il valore della proprietà Status sarà maggiore di zero.

Examples

PUBLIC Connection AS NEW Socket AS "SocketClient"

PUBLIC SUB ButtonScan_Click()
  DIM portNumber AS Integer
  FOR portNumber = 1 TO 3000
    Connection.Connect("localhost", portNumber)
    ' Wait until the socket is closed
    ' or an error is found
    REPEAT
      WAIT 0.01
    UNTIL Connection.Status <= Net.Inactive
    IF Connection.Status = Net.HostNotFound THEN
      PRINT "Host not found"
      ' No point in scanning if we can not find the host
      BREAK
    END IF
  NEXT
END

PUBLIC SUB SocketClient_Ready()
  PRINT "Port " & Connection.Port & " open on " & Connection.Host
  CLOSE #Connection
END

Normalmente, ed ovviamente, non dovreste chiudere un socket durante un evento Ready!