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
// At his point : How can I find the remote IP address
end;
until CheckOK = True;
end;
end;*
*
------------------------------------------------------------------------------
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
