>>How can I pass multiple values to a win32api from Visual FoxPro?
>
>You must build a char string that will contain the data (the fields in a structure are always in a contigous memory space, so this is why you can use a char string.)
>
>>Basically I need to fill this structure prior of calling the bind function.
>>
>> struct sockaddr {
>> u_short sa_family;
>> char sa_data[14];
>> };
>
>Unfortunately, you cannot use this structure directly from VFP (because it contains a pointer (sa_data is a pointer to char, in fact)). The string you must build must have 6 bytes:
>
>- the first 2 bytes: the sa_family in binary format
>- the next 4 bytes: a pointer to a string that will contain sa_data
>
>You must use an third-party product (as my Pointers Class that you can download from the Files section) that adds pointer features to VFP, in order to send data to this function.
>
>If you use my Pointers Class:
>
>lnsa_family = ... && Your value
>lcsa_data = ... && Your value, max 14 chars
>*-- Instantiate a Pointers control object
>SET CLASSLIB TO POINTERS ADDITIVE
>loPointers=CREATEOBJECT('Pointers')
>RELEASE CLASSLIB POINTERS
>*-- Convert the sa_family field to binary format on 2 bytes
>lcsa_family = loPointers.NumberToWordString(lnsa_family)
>*-- Get a pointer to sa_data string
>lcpsa_data = loPointers.GetPointer(lcsa_data, "STRUCTURE")
>*-- Build the "structure"
>lcSockAddr = lcsa_family + lcpsa_data
>
>lcSockAddr is the value that you must pass by reference to the bind function as the 2nd param.
>
>Hope I was clear, :)
>Vlad
>
>> int bind (
>> SOCKET s,
>> const struct sockaddr FAR * addr,
>> int namelen
>> );
>>
>>Thanks in advance for your help.

Thanks for your help, but I'm still hitting a wall.
I getting this error "Address not available from local machine".
I probably left something out. The code is below. Any help you
can provide will be greatly appreciated.


#define AF_INET 2 && internetwork: UDP, TCP, etc.
#define SOCK_STREAM 1 && stream socket */

DECLARE INTEGER WSAStartup IN wsock32 INTEGER wVersionRequested, INTEGER @lpWSAData
DECLARE INTEGER socket IN wsock32 INTEGER lnaf, INTEGER lntype, INTEGER protocol
DECLARE INTEGER closesocket IN wsock32 INTEGER socketnum
DECLARE INTEGER bind IN wsock32 INTEGER socketnum, STRING @LPaddr, INTEGER namelen
DECLARE INTEGER listen IN wsock32 INTEGER s, INTEGER backlog
DECLARE INTEGER WSAGetLastError IN wsock32
local x,lnwVersionRequested,lclpWSAData,LPaddr,namelen

lclpWSAData = 0
namelen = 31
lnwVersionRequested = 2

&& struct sockaddr_in{
&& short sin_family;
&& unsigned short sin_port;
&& struct in_addr sin_addr;
&& char sin_zero[8];
&&};


lnsa_family = AF_INET
lnport = 5302
lcsa_data = "129.110.200.92"
lcpadding = SPACE(8)


*-- Create the Pointers Class object
SET CLASSLIB TO POINTERS ADDITIVE
loPointersObject = CREATEOBJECT("Pointers")
RELEASE CLASSLIB POINTERS

lcsa_family = loPointersObject.converter.NumberToWordString(lnsa_family)
lcport = loPointersObject.converter.NumberToWordString(lnport)
lcpsa_data = loPointersObject.GetPointer(lcsa_data,"STRUCTURE")

LPaddr = lcsa_family +lcport+lcpsa_data+lcpadding

x = WSAStartup(lnwVersionRequested,@lclpWSAData)
? "WSAStartup",x
IF (x = 0)
x = socket (AF_INET,SOCK_STREAM,0)
d = WSAGetLastError()
? "Socket",x
s = bind (x,@LPaddr,namelen)
? "bind",s
d = WSAGetLastError()
? "ERROR",d
v = listen(x,1)
? "Listen",v
d = WSAGetLastError()
? "ERROR",d
y = closesocket(x)
? "CloseSocket",y

ENDIF