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

[silvioprog]

2013/5/6 Zaher Dirkey <parmaja at gmail.com>

> On Mon, May 6, 2013 at 9:10 PM, Ludo Brands <ludo.brands at free.fr> wrote:
>
>> Watch out for Synchronize(@DoReceive) in a recv loop. That is going to
>> drag down your performance considerably.
>>
>
> Maybe you do need to call synh, leave it to the user to add it in his
> event, or make it as an option.
>

But it already implemented friend, eg:


  if VSynchronized then
    Synchronize(@DoClientReceive)
  else
    DoClientReceive;


Please see all code here: https://bitbucket.org/silvioprog/tcpipcomp/src


> For that i hate using components as GUI components, no events in my
> classes.
>

There you can see two examples: console (client/server); gui
(client/server).

-- 
Silvio Clécio
My public projects - github.com/silvioprog
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20130506/19a20c5d/attachment.html>