Re: [twsocket] TWSocket sending UDP

2006-01-21 Thread Francois PIETTE
And you have to call connect only once if you use SendTo later.
--
[EMAIL PROTECTED]
http://www.overbyte.be

- Original Message - 
From: "Wilfried Mestdagh" <[EMAIL PROTECTED]>
To: "ICS support mailing" 
Sent: Saturday, January 21, 2006 10:18 AM
Subject: Re: [twsocket] TWSocket sending UDP


> Hello Shane,
>
> You need to call Connect. However you do not have to wait and you can
> call SendTo immediatly after calling Connect.
>
> ---
> Rgds, Wilfried [TeamICS]
> http://www.overbyte.be/eng/overbyte/teamics.html
> http://www.mestdagh.biz
>
> Saturday, January 21, 2006, 05:08, Shane Mitchell wrote:
>
>> Hey.
>
>> I'm trying to use TWSocket to send UDP messages to many different
>> hosts.  I want to create the TWSocket dynamically, and I don't want to
>> have to use Connect/Close every time I send a UDP message.  I thought
>> I could use the SendTo() procedure to do this, but I have had no
>> success.  This is my test code to send one UDP message to myself (it
>> doesn't work):
>
>> procedure Test();
>> var
>>   DestAddr: TSockAddr;
>>   Data: string;
>> begin
>>   SocketOut := TWSocket.Create(nil); // create the socket
>>   SocketOut.Proto := 'udp'; // set it to use UDP (shouldnt really need 
>> this)
>>   ZeroMemory(@DestAddr, SizeOf(DestAddr)); // clear the address
>>   DestAddr.sin_family := AF_INET; // we have to use AF_INET
>>   DestAddr.sin_port := 600; // set the port to 600
>>   DestAddr.sin_addr.S_addr := WSocket_inet_addr('127.0.0.1'); // point to 
>> self
>>   Data := 'Hello world'; // the message we want to send
>>   SocketOut.SendTo(DestAddr, SizeOf(DestAddr), @Data[1], Length(Data)); 
>> // send
>>   // nb: SocketOut is freed later
>> end;
>
>> Could anyone point out to me what I'm doing wrong.  :)
>
>> Thanks
>> - Shane
>
> -- 
> To unsubscribe or change your settings for TWSocket mailing list
> please goto http://www.elists.org/mailman/listinfo/twsocket
> Visit our website at http://www.overbyte.be 

-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be


Re: [twsocket] TWSocket sending UDP

2006-01-21 Thread Wilfried Mestdagh
Hello Shane,

You need to call Connect. However you do not have to wait and you can
call SendTo immediatly after calling Connect.

---
Rgds, Wilfried [TeamICS]
http://www.overbyte.be/eng/overbyte/teamics.html
http://www.mestdagh.biz

Saturday, January 21, 2006, 05:08, Shane Mitchell wrote:

> Hey.

> I'm trying to use TWSocket to send UDP messages to many different
> hosts.  I want to create the TWSocket dynamically, and I don't want to
> have to use Connect/Close every time I send a UDP message.  I thought
> I could use the SendTo() procedure to do this, but I have had no
> success.  This is my test code to send one UDP message to myself (it
> doesn't work):

> procedure Test();
> var
>   DestAddr: TSockAddr;
>   Data: string;
> begin
>   SocketOut := TWSocket.Create(nil); // create the socket
>   SocketOut.Proto := 'udp'; // set it to use UDP (shouldnt really need this)
>   ZeroMemory(@DestAddr, SizeOf(DestAddr)); // clear the address
>   DestAddr.sin_family := AF_INET; // we have to use AF_INET
>   DestAddr.sin_port := 600; // set the port to 600
>   DestAddr.sin_addr.S_addr := WSocket_inet_addr('127.0.0.1'); // point to self
>   Data := 'Hello world'; // the message we want to send
>   SocketOut.SendTo(DestAddr, SizeOf(DestAddr), @Data[1], Length(Data)); // 
> send
>   // nb: SocketOut is freed later
> end;

> Could anyone point out to me what I'm doing wrong.  :)

> Thanks
> - Shane

-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be