Scenario:
Windows 10, 64 bit Lazarus 2.2.2, 64 bit Freepascal 3.2.2
Sample 14 - Interfaced based services
In Project14ServerHttp.dpr
Change the method 'Add' by inserting an exception:
function TServiceCalculator.Add(n1, n2: integer): integer;
begin
result := n1+n2;
raise Exception.Create('Test'); // <<< insert this exception
end;
In browser type:
http://localhost:8888/root/calculator/add?n1=1&n2=2
The first execution is ok, the exception is showed correctly
but execute again... the server goes down with the message... >>> Fatal error, External Exception: ?
Scenario: Windows 10, 64 bit Lazarus 2.2.2, 64 bit Freepascal 3.2.2 Sample 14 - Interfaced based services
In Project14ServerHttp.dpr Change the method 'Add' by inserting an exception: function TServiceCalculator.Add(n1, n2: integer): integer; begin result := n1+n2; raise Exception.Create('Test'); // <<< insert this exception end;
In browser type: http://localhost:8888/root/calculator/add?n1=1&n2=2 The first execution is ok, the exception is showed correctly but execute again... the server goes down with the message... >>> Fatal error, External Exception: ?