Hello,

I'm trying to stop a HTTP server via request. My code is:

http://pastebin.com/503S2Nin (or demo in attached)

But it returns:

"Could not accept a client connection on socket: -1; error 10004"

And generates leaks, but, If I comment this line:

//    App.Threaded := True;

It works fine.

How do I stop the socket before finishing my application?

Thank you!

silvioprog wrote

How do I stop the socket before finishing my application?

I've been unsuccessful with that myself, and mentioned it to Michael van Canneyt. I tried everything I could thing of, and nothing worked. I was using Windows. I haven't tested under Linux or FreeBSD yet.

In the mean time I switched my app to using Synapse's HTTP Server instead of the Free Pascal one. With Synapse and Indy components I can stop the HTTP Server without problems.

Regards,
Graeme

I am working on it.

Michael.

Michael Van Canneyt wrote

I am working on it.

Thanks Michael.

btw: The fcl-web (and all your guidance) has worked wonders with my client side CGI application. The organisation of code and application flow is so much better. Thanks again for all your patience and help.

G.

2013/9/24 Graeme Geldenhuys

I'm using Windows too.

In TcpIpComp (https://github.com/silvioprog/tcpipcomp) I had to add a property to indicate that the program was ending. This fixed the problem.

2013/9/24 Michael Van Canneyt

Thanks you Michael, I'll wait for this fix. (y)

2013/9/24 Graeme Geldenhuys

Before fcl-web with Brook framework I used PHP with Slim framework, now I rarely use PHP.

Thanks again guys! (y)

I had a look at

http://bugs.freepascal.org/view.php?id=24810

And applied the patches there, with some extra modifications.

I tested, and the server can now reliably be stopped without problems both in threaded or non threaded mode, from inside or outside a request.

Michael.

2013/9/25 Michael Van Canneyt

I need to test it, I'm waiting for the Lazarus team to update the snapshots (ftp://freepascal.dfmk.hu/pub/lazarus/snapshots) ...

Perhaps it's time to start using SVN to get up to date Lazarus and FPC?

You can do it manually...
<advertisement>
...or do it the simple way using fpcup - including a complete stand alone install of FPC+Lazuars, even Brook framework, if you want to ;) </advertisement>

2013/9/26 Reinier Olislagers

Thank you Reinier, I'll try your solution too! :)

2013/9/25 Michael Van Canneyt

Worked like a charm. Thank you very much Michael! (y)

What does (y) mean ?

Michael.

Thumbs up.