Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Programming
»
Networking and Web Programming
»
How to terminate a THttpAplication?
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
Failed to connect to a si...
by
MarkMLl
[
Today
at 10:16:12 pm]
Why free pascal suppress ...
by
dseligo
[
Today
at 10:09:34 pm]
What's up with PtcCrt's d...
by
TBMan
[
Today
at 10:07:17 pm]
FPC can't link screen_dem...
by
marcov
[
Today
at 09:22:40 pm]
Treeview: full-width back...
by
d7_2_laz
[
Today
at 09:11:10 pm]
Transparent animation
by
majolika
[
Today
at 08:22:22 pm]
Read Excel file with fpsp...
by
zeljko
[
Today
at 08:17:38 pm]
Error assembling some lab...
by
Fred vS
[
Today
at 08:11:17 pm]
Drawing with psInsidefram...
by
wp
[
Today
at 08:05:48 pm]
Scrollbox, scrollbar Back...
by
dsiders
[
Today
at 07:32:48 pm]
Deal or no Deal graphic
by
TRon
[
Today
at 07:27:51 pm]
MQTT made easier...
by
cdbc
[
Today
at 07:10:17 pm]
zeoslib av on transactio...
by
jksmithiii
[
Today
at 07:07:16 pm]
A basic windows program s...
by
TBMan
[
Today
at 05:44:37 pm]
IBSQL - CheckClosed
by
sydenis
[
Today
at 05:41:42 pm]
Is there a way to emphasi...
by
cdbc
[
Today
at 04:17:43 pm]
RTL: export/import WriteL...
by
paule32
[
Today
at 04:15:30 pm]
read keys from windows ko...
by
marcov
[
Today
at 03:49:22 pm]
my programs crash
by
jamie
[
Today
at 01:22:58 pm]
Custom self drawn compone...
by
cdbc
[
Today
at 12:50:10 pm]
IsNan
by
robert rozee
[
Today
at 12:07:43 pm]
Reading and writing AVIF ...
by
Boleeman
[
Today
at 12:01:52 pm]
Reading FLIF images in La...
by
Boleeman
[
Today
at 11:58:25 am]
FLIF and FUIF Formats (Fr...
by
Boleeman
[
Today
at 11:42:17 am]
efficiency problem
by
photor
[
Today
at 11:33:05 am]
« previous
next »
Print
Pages: [
1
]
Author
Topic: How to terminate a THttpAplication? (Read 1128 times)
zen010101
Newbie
Posts: 5
How to terminate a THttpAplication?
«
on:
July 17, 2024, 07:54:44 pm »
My program wants to exit normally after Ctrl-C is pressed, but I haven't been able to accomplish this under FPC 3.22/3.3.1. The following is a sample program fragment from the official (...\fpcsrc\packages\fcl-web\examples\httpapp, I only added the code to respond to Ctrl-C)
Code: Pascal
[Select]
[+]
[-]
procedure
signalHandler
(
signum
:
cint
)
;
cdecl
;
begin
if
(
signum
=
SIGTERM
)
or
(
signum
=
SIGINT
)
then
begin
Writeln
(
'Exiting'
)
;
Application
.
Terminate
;
// can not quit the application
//Raise Exception.Create('EXIT THE APPLICATION'); // this can exit the THttpApplication normally, you will see 'Done' output to the console.
end
;
end
;
begin
// Register SignalHandler
fpSignal
(
SIGINT
,
@
signalHandler
)
;
.
.
.
Application
.
Initialize
;
Application
.
Port
:
=
StrTointDef
(
ParamStr
(
2
)
,
8384
)
;
Application
.
Title
:
=
'HTTP Demo application'
;
Application
.
Run
;
Writeln
(
'Done'
)
;
end
.
I noticed a bug report which was committed 4 years ago (
https://gitlab.com/freepascal.org/fpc/source/-/issues/36741#original-reporter-info-from-mantis-luca-olivlucareporter-name-luca-olivetti
), but until now it is still there too.
«
Last Edit: July 20, 2024, 07:59:52 pm by zen010101
»
Logged
PascalDragon
Hero Member
Posts: 5855
Compiler Developer
Re: How to terminate a THttpAplication?
«
Reply #1 on:
July 18, 2024, 09:31:03 pm »
Quote from: zen010101 on July 17, 2024, 07:54:44 pm
```pascal
[...]
```
The forum does not use Markdown, but BBCodes, in this case [code=pascal][/code].
Logged
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Programming
»
Networking and Web Programming
»
How to terminate a THttpAplication?
TinyPortal
© 2005-2018