|
@@ -637,8 +637,6 @@ begin
|
|
except
|
|
except
|
|
// Do not let errors in user code escape.
|
|
// Do not let errors in user code escape.
|
|
end
|
|
end
|
|
- else
|
|
|
|
- Writeln('Unhandled exception : ',E.ClassName,' : ',E.Message);
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
function TFPCustomHttpServer.GetActive: Boolean;
|
|
function TFPCustomHttpServer.GetActive: Boolean;
|