[fpc-pascal] How to close TInetServer without except?

[Zaher Dirkey]

On Sat, May 4, 2013 at 8:47 AM, silvioprog <silvioprog at gmail.com> wrote:

> repeat
>>   if Socket.CanRead(timeout) then
>>     begin
>>     insock:=Socket.Accept;
>>     if insock<>-1 then
>>       //start working with insock
>>     else
>>       //deal with error
>>     end;
>> until ThreadTerminated;
>>
>> Ludo
>
>
> Thank you!
>

​If you success, tell us, i must fix my sockets too :)​



-- 
I am using last revision of Lazarus, FPC 2.6 on Windows XP SP3

Best Regards
Zaher Dirkey
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20130504/134c9c54/attachment.html>