Hi Veli, try that:
Veli BOZATLI schrieb:
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;* * ------------------------------------------------------------------------ ------------------------------------------------------------------------------ Crystal Reports - New Free Runtime and 30 Day TrialCheck 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
------------------------------------------------------------------------------ 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
