FiveTech Software tech support forums

Code: Select all

Const MAX_IP = 5

Type IPINFO
    dwAddr As Long   ' IP address
    dwIndex As Long '  interface index
    dwMask As Long ' subnet mask
    dwBCastAddr As Long ' broadcast address
    dwReasmSize  As Long ' assembly size
    unused1 As Integer ' not currently used
    unused2 As Integer '; not currently used
End Type

Type MIB_IPADDRTABLE
    dEntrys As Long   'number of entries in the table
    mIPInfo(MAX_IP) As IPINFO  'array of IP address entries
End Type

Type IP_Array
    mBuffer As MIB_IPADDRTABLE
    BufferLen As Long
End Type

Code: Select all

#define MAX_IP 5
STRUCT IPINFO
    MEMBER dwAddr      AS LONG // IP address
    MEMBER dwIndex     AS LONG // interface index
    MEMBER dwMask      AS LONG // subnet mask
    MEMBER dwBCastAddr AS LONG // broadcast address
    MEMBER dwReasmSize AS LONG // assembly size
    MEMBER unused1     As WORD // not currently used
    MEMBER unused2     AS WORD // not currently used
ENDSTRUCT

Code: Select all

#include "FiveWin.Ch"
#include "CStruct.ch" 

typedef struct _IP_ADDR_STRING {;
  LONG Next;
  CHAR IpAddress[16];
  CHAR IpMask[16];
  LONG  Context;
} IP_ADDR_STRING, *PIP_ADDR_STRING;

FUNCTION main()
public AddrStr:=(struct IP_ADDR_STRING)
.../...
return nil

Code: Select all

#include "FiveWin.ch"
#include "struct.ch"
#include "exstruc.ch"

function Main()

STRUCT sockaddr
  MEMBER s_family AS _INT
  MEMBER s_port   AS _INT
  MEMBER s_addr   AS LONG
  MEMBER s_zero   AS STRING LEN 8
ENDSTRUCT

sockaddr:s_family:=AF_INET
sockaddr:s_addr  :=inet_addr(m_IpSet)
sockaddr:s_port  :=htons(m_PortSet)
sockaddr:s_zero  :=replicate(chr(0),8)
cTemp:=sockaddr:cBuffer
sendto(SocketNum,Texto,len(Texto),MSG_DONTROUTE,@cTemp,sockaddr_size)
sockaddr:cBuffer:=cTemp

.../...
return nil

Code: Select all

WSAStartup
WSACleanup
closesocket
socket
setsockopt
getsockopt
htonl
htons
bind
inet_addr
WSAAsyncSelect
recv
recvfrom
send
sendto
WSAGetLastError

Code: Select all

DLL32 FUNCTION WSAStartup(n AS LONG, pStruct AS LPSTR) AS LONG PASCAL FROM "WSAStartup" LIB "wsock32.dll"
DLL32 FUNCTION WSACleanup() AS LONG PASCAL FROM "WSACleanup" LIB "wsock32.dll"
DLL32 FUNCTION closesocket(af AS LONG) AS WORD PASCAL FROM "closesocket" LIB "wsock32.dll"
DLL32 FUNCTION MemCopy(dest AS LPSTR, src AS LPSTR, cb AS LONG ) AS VOID PASCAL FROM "RtlMoveMemory" LIB "Kernel32.dll"
DLL32 FUNCTION socket(af AS LONG, s_type AS LONG, protocol AS LONG ) AS LONG PASCAL FROM "socket" LIB "wsock32.dll"
DLL32 FUNCTION setsockopt(s AS LONG,level AS LONG,optname AS LONG,optval AS LPSTR,optlen AS LONG) AS LONG PASCAL FROM "setsockopt" LIB "wsock32.dll"
DLL32 FUNCTION getsockopt(s AS LONG,level AS LONG,optname AS LONG,optval AS LPSTR,optlen AS LONG) AS LONG PASCAL FROM "getsockopt" LIB "wsock32.dll"
DLL32 FUNCTION htonl(hostlong AS LONG) AS LONG PASCAL FROM "htonl" LIB "wsock32.dll"
DLL32 FUNCTION htons(hostshort AS LONG) AS WORD PASCAL FROM "htons" LIB "wsock32.dll"
DLL32 FUNCTION bind(s AS LONG, pStruct AS LPSTR,namelen AS LONG) AS LONG PASCAL FROM "bind" LIB "wsock32.dll"
DLL32 FUNCTION inet_addr(cp AS STRING) AS LONG PASCAL FROM "inet_addr" LIB "wsock32.dll"
DLL32 FUNCTION WSAAsyncSelect(s AS LONG, hWnd AS LONG, wMsg AS LONG, lEvent AS LONG) AS LONG PASCAL FROM "WSAAsyncSelect" LIB "wsock32.dll"
DLL32 FUNCTION recv(s AS LONG, Buf AS LPSTR, buflen AS LONG, flags AS LONG) AS LONG PASCAL FROM "recv" LIB "wsock32.dll"
DLL32 FUNCTION recvfrom(s AS LONG, Buf AS LPSTR, buflen AS LONG, flags AS LONG,  addr As sockaddr, i AS LONG) AS LONG PASCAL FROM "recvfrom" LIB "wsock32.dll"
DLL32 FUNCTION send(s AS LONG, Buf AS LPSTR, buflen AS LONG, flags AS LONG) AS LONG PASCAL FROM "send" LIB "wsock32.dll"
DLL32 FUNCTION sendto(s AS LONG, Buf AS LPSTR, buflen AS LONG, flags AS LONG, addr AS LPSTR, i AS LONG) AS LONG PASCAL FROM "sendto" LIB "wsock32.dll"
DLL32 FUNCTION WSAGetLastError() AS LONG PASCAL FROM "WSAGetLastError" LIB "wsock32.dll"

Code: Select all

#include "FiveWin.Ch"
FUNCTION main()
public cIPhost:="127.0.0.1",;
       cIPmulticast:="224.10.10.10",;
       cIPbroadcast:="192.10.10.255",;
       nPuertoUDP:=1800,;
       pSocket:=0,nSentBytes:=0,;
       cBufferMulticast:="HOLA SOY UNA TRAMA MULTICAST",;
       cBufferBroadticast:="HOLA SOY UNA TRAMA BROADCAST"
*--- Envia trama MULTIcast
INetInit()
pSocket:=INetDGramBind(nPuertoUDP,cIPhost,.F.,cIPmulticast)
nSentBytes:=INetDGramSend(pSocket,cIPmulticast,nPuertoUDP,cBufferMulticast,len(cBufferMulticast))
INetClose(pSocket)
INetCleanup()
*--- Envia trama BROADcast
INetInit()
pSocket:=InetDGram(.T.)
nSentBytes:=INetDGramSend(pSocket,cIPbroadcast,nPuertoUDP,cBufferBroadticast,len(cBufferBroadticast))
INetClose(pSocket)
INetCleanup()
*---
return nil