TNetwork.GetAdapterInfo(Info)

Extern "win32"
   Function ioctl_:Int(Socket:Int, Command:Int, Arguments:Byte Ptr)..
   = "ioctlsocket@12"
   Function WSAGetLastError:Int()="WSAGetLastError@0"
   Function selectex_:Int(ReadCount:Int, ReadSockets:Int Ptr,..
   WriteCount:Int, WriteSockets:Int Ptr, ExceptCount:Int,..
   ExceptSockets:Int Ptr, Milliseconds:Int) = "select_"
End Extern

 


Function TCPConnect:Int(t:TTcpStream,timeout:Int=1000) 'timeout in ms

   Const FIONBIO = $8004667E
   Const WSAEWOULDBLOCK = 10035
   Const AF_INET=2
   Const SOCKET_ERROR=-1
   Local Address:Int

   If t.Socket = SOCKET_ERROR Then Return False

   Address = htonl_(t.RemoteIP)

   Local option:Int=1
   
   'call ioctlsocket, set socket nonblocking
   ioctl_(t.socket, FIONBIO, Varptr(option))
   
   'connect
   connect_(t.Socket, Varptr(Address), AF_INET, 4, t.RemotePort)

   'expecting WSAWOULDBLOCK here
   If WSAGetLastError()<>WSAEWOULDBLOCK Then Return False
   
   Local result:Int,x:Int=t.socket

     '...have a cup of tea
   result=selectex_(0, Null, 1, Varptr(x), 0, Null, timeout)
            
   If result=0 Then Return False 'timed out                  

   option=0
   ioctl_(t.socket, FIONBIO, Varptr(option)) 'set socket back to normal mode

   Return True

   
End Function

/home/btbn/Programme/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:29: warning: implicit declaration of function ‘ioctl’
/home/btbn/Programme/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:31: warning: implicit declaration of function ‘close’

#include <unistd.h>
#include <sys/ioctl.h>

Building Modules
Compiling:bsd.c
In file included from /Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:2:
/usr/include/net/if.h:259: error: field 'ifru_addr' has incomplete type
/usr/include/net/if.h:260: error: field 'ifru_dstaddr' has incomplete type
/usr/include/net/if.h:261: error: field 'ifru_broadaddr' has incomplete type
/usr/include/net/if.h:298: error: field 'ifra_addr' has incomplete type
/usr/include/net/if.h:299: error: field 'ifra_broadaddr' has incomplete type
/usr/include/net/if.h:300: error: field 'ifra_mask' has incomplete type
/usr/include/net/if.h:374: error: field 'addr' has incomplete type
/usr/include/net/if.h:375: error: field 'dstaddr' has incomplete type
/Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c: In function 'GetNetworkAdapter':
/Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:47: error: 'SIOCGIFHWADDR' undeclared (first use in this function)
/Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:47: error: (Each undeclared identifier is reported only once
/Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:47: error: for each function it appears in.)
/Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:48: error: 'struct ifreq' has no member named 'ifr_hwaddr'
/Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:50: error: 'struct ifreq' has no member named 'ifr_netmask'
/Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:50: error: 'struct ifreq' has no member named 'ifr_netmask'
/Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:50: error: 'struct ifreq' has no member named 'ifr_netmask'
/Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:50: error: 'struct ifreq' has no member named 'ifr_netmask'
/Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:50: error: 'struct ifreq' has no member named 'ifr_netmask'
/Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c:50: error: 'struct ifreq' has no member named 'ifr_netmask'
Build Error: failed to compile /Applications/BlitzMax/mod/vertex.mod/bnetex.mod/bsd.c
Process complete

#include <net/if.h>
#include <sys/socket.h>

#include <sys/socket.h>
#include <net/if.h>

ioctl(Socket, SIOCGIFHWADDR, pInterface);

#include <string.h>
#include <sys/sockio.h>
#include <sys/socket.h>
#include <netinet/in.h>

#ifdef __APPLE__
# include <net/if.h>
# include <ifaddrs.h>
#include <net/if_dl.h>
#else
# include <linux/sockios.h>
#endif

#define MAX_INTERFACES 64

#define TRUE 1
#define FALSE 0

int GetNetworkAdapter(char *Device, char MAC[6], int *Address, int *Netmask, int *Broadcast)
{

   #ifdef __APPLE__
      struct ifaddrs *ifap = NULL, *tempIfAddr = NULL;
      void *tempAddrPtr = NULL;
      char addressOutputBuffer[INET6_ADDRSTRLEN];
      struct sockaddr_dl *sdl = NULL;
      
      if (!getifaddrs(&ifap))
         return FALSE;
      
      for(tempIfAddr = ifap; tempIfAddr != NULL; tempIfAddr = tempIfAddr->ifa_next)
      {
       // IPv4 only
         if (strncmp(tempIfAddr->ifa_name, "en", 2) == 0 && tempIfAddr->ifa_addr->sa_family == AF_INET)
         {
            tempAddrPtr = &((struct sockaddr_in *)tempIfAddr->ifa_addr)->sin_addr.s_addr;
               
            strcpy(Device, tempIfAddr->ifa_name);
            *Address = tempAddrPtr;
            
            if(tempIfAddr->ifa_netmask != NULL)
            {
               tempAddrPtr = &((struct sockaddr_in *)tempIfAddr->ifa_netmask)->sin_addr.s_addr;
               
               *Netmask = tempAddrPtr;
               *Broadcast = *Address | ~(*Netmask);
               freeifaddrs(ifap);
               return TRUE;
            }
            
            // get mac address
            sdl = (struct sockaddr_dl *)tempIfAddr->ifa_addr;
            if (sdl)
            {
               memcpy(MAC, LLADDR(sdl), sdl->sdl_alen);
            }
         }
    }
    freeifaddrs(ifap);
   #else
      int            Socket;
      struct ifreq  *pInterface;
      struct ifconf  Config;
      struct ifaddrs *ifap;
      char           Buffer[MAX_INTERFACES*sizeof(struct ifreq)];
      int            Count, I;
   
      Socket = socket(AF_INET, SOCK_DGRAM, 0);
      if(Socket == -1) return FALSE;
   
      Config.ifc_len = sizeof(Buffer);
      Config.ifc_buf = Buffer;
      if(ioctl(Socket, SIOCGIFCONF, &Config) != 0)
      {
         close(Socket);
         return FALSE;
      }
      
      
      Count = Config.ifc_len/sizeof(struct ifreq);
      pInterface = Config.ifc_req;
   
      for(I = 0; I < Count; I++)
      {
         if(pInterface->ifr_addr.sa_family == AF_INET &&
             strncmp(pInterface->ifr_name, "eth", 3) == 0)
         {
            strcpy(Device, pInterface->ifr_name);
            *Address = ntohl(((struct sockaddr_in *)&pInterface->ifr_addr)->sin_addr.s_addr);
            
            ioctl(Socket, SIOCGIFHWADDR, pInterface);
            memcpy(MAC, &pInterface->ifr_hwaddr.sa_data, 6);
            ioctl(Socket, SIOCGIFNETMASK, pInterface);
            *Netmask = ntohl(((struct sockaddr_in *)&pInterface->ifr_netmask)->sin_addr.s_addr);
            
            *Broadcast = *Address | ~(*Netmask);
   
            close(Socket);
            return TRUE;
         }
   
         pInterface++;
      }
      close(Socket);
   #endif

   
   return FALSE;
}

Import vertex.bnetex

Local data:Byte[] = [Byte(1)]
Local dataptr:Byte Ptr = data

Print TNetwork.Ping(TNetwork.getHostIP("http://www.google.de"),dataptr,1) 'www.google.de, google.de, etc.... nichts geht

Socket = socket_(AF_INET_, SOCK_RAW_, IPPROTO_ICMP)
If Socket = INVALID_SOCKET_ Then Return -1

ping google.de