>Please see my other message also.
That was the first thing I tried and it did not work.


>
>What's the declaration for the in_addr structure?
struct in_addr {
union {
struct{
unsigned char s_b1,
s_b2,
s_b3,
s_b4;
} S_un_b;
struct {
unsigned short s_w1,
s_w2;
} S_un_w;
unsigned long S_addr;
} S_un;
};

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