Index

# NetConnect

## Formato

netconnect NombredeServidor, NúmerodePuerto
netconnect ( NombredeServidor, NúmerodePuerto )
netconnect NúmerodeSocket, NombredeServidor, NúmerodePuerto
netconnect ( NúmerodeSocket, NombredeServidor, NúmerodePuerto )

## Descripción

Abre una conexión de red (cliente) con un servidor. La dirección IP o el nombre del host del servidor se especifica en el argumento NombredeServidor, y el número de puerto de rede en el argumento NúmerodePuerto. Si no se indica un NúmerodeSocket se utilizara el número cero (0).

## Ejemplo

Abra dos instancias de BASIC-256 en un mismo equipo. Pegue el código "servidor" en una y el código "cliente" en el otro. Ejecute en primer lugar el servidor y después el cliente. Puede verse como los mensajes son enviados de un lado a otro entre los dos procesos.

### Código Servidor

    # get a message and send back success
    print "wait for connection on " + netaddress()
    netlisten 9997
    print "got connection"
    do
       while not netdata
          pause .1
          print ".";
       end while
       n$ = netread
       print n$
       netwrite "I got '" + n$ + "'."
    until n$ = "end"
    netclose

mostrará (donde xxx.xxx.xxx.xxx es la dirección IPv4 de su equipo):

    wait for connection on xxx.xxx.xxx.xxx
    got connection
    .1 Hi There
    ....2 Hi There
    ........3 Hi There
    ..........4 Hi There
    .....5 Hi There
    .......6 Hi There
    ....7 Hi There
    ..........8 Hi There
    ....9 Hi There
    .....10 Hi There
    .end

### Código cliente

    # el usuario debe teclear un mensaje y enviarlo al servidor
    input "enter message?", m$
    netconnect "127.0.0.1", 9997
    for t = 1 to 10
       pause rand
       netwrite t + " " + m$
       print netread
    next t
    netwrite "end"
    print netread
    netclose

mostrara:

    enter message?Hi There
    I got '1 Hi There'.
    I got '2 Hi There'.
    I got '3 Hi There'.
    I got '4 Hi There'.
    I got '5 Hi There'.
    I got '6 Hi There'.
    I got '7 Hi There'.
    I got '8 Hi There'.
    I got '9 Hi There'.
    I got '10 Hi There'.
    I got 'end'.

## Ver también

NetAddress, NetClose, NetData, NetListen, NetRead, NetWrite

## Disponible desde la versión

0.9.6.31