> > procedure TEthListener.Execute;
> > begin
> > with UDPSock do
> > begin
> > CreateSocket;
> > SetLinger(True, 10);
> > Bind('0.0.0.0', UDPPort);
> > repeat
> > if Terminated then Break;
> > if CanRead(100) then
> > if LastError = 0 then begin
> > * IP := GetRemoteSinIP;*
> > end;
> > until CheckOK = True;
> > end;
> > end;*
... and remove lines:
CreateSocket (it is not neccessary, socket is created automaticly
when not exists)
SetLinger (it is for TCP socket only)
:-)
--
Lukas Gebauer.
E-mail: [email protected]
http://synapse.ararat.cz/ - Ararat Synapse - TCP/IP Lib.
------------------------------------------------------------------------------
Crystal Reports - New Free Runtime and 30 Day Trial
Check out the new simplified licensing option that enables
unlimited royalty-free distribution of the report engine
for externally facing server and web deployment.
http://p.sf.net/sfu/businessobjects
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
