Thank you SO much. I really appreciate it.
- Martin E.
On Fri, Oct 17, 2008 at 7:37 AM, Wilfried Mestdagh <[EMAIL PROTECTED]>wrote:
> Hello Martin,
>
> Here is a small example:
>
> procedure TFoo.FUDPDataAvailable(Sender: TObject; Error: word);
> var
> Buffer: array [0..1023] of char;
> Len: integer;
> Src: TSockAddrIn;
> SrcLen: integer;
> begin
> SrcLen := SizeOf(Src);
> Len := TWSocket(Sender).ReceiveFrom(@Buffer, SizeOf(Buffer), Src,
> SrcLen);
> if Len < 0 then
> Exit;
> Buffer[Len] := #0;
>
> {$ifdef DEBUG}
> WriteLn('UDP packet received from ', inet_ntoa(Src.sin_addr));
> WriteLn('Data ', Buffer);
>
> ---
> Rgds, Wilfried [TeamICS]
> http://www.overbyte.be/eng/overbyte/teamics.html
> http://www.mestdagh.biz
>
> Friday, October 17, 2008, 04:47, Xealot wrote:
>
> > Hello!
>
> > I would like to know if its possible to get the address that a UDP packet
> > comes from.
>
> > I am making an application that will send multiple packets to different
> > hosts using SendTo and I will be receiving replies from them.
>
> > I have no power to change the protocol, so I need to know if its possible
> to
> > find out the address each packet arrived from.
>
> > Currently, I use bytesread := sock.Receive(@data, SizeOf(data)); to
> receive
> > the data.
>
> > where sock is a TWSocket object. sock.Addr will not work here.. :(
>
> > Thanks for taking your time,
>
> > - Martin E.
>
> --
> To unsubscribe or change your settings for TWSocket mailing list
> please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
> Visit our website at http://www.overbyte.be
>
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
