Please see my other message also.

What's the declaration for the in_addr structure?

Vlad

>>>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