pas2js/demo/errorhandler/errordemo.lpr

program errordemo;

{$mode objfpc}

uses
  BrowserConsole, JS, Classes, SysUtils, Web;

Type

  { TErrorApp }

  TErrorApp = class
    function DoRaise(aEvent : TJSMouseEvent) : boolean;
    function DoHook(aEvent : TJSMouseEvent) : boolean;
    Procedure DoRaiseJS;
    Procedure DoRaiseJSError;
    Procedure DoPascalException(O : TObject);
    Procedure DoJSException(O : TJSObject);
  private
    procedure Run;
  end;

function TErrorApp.DoRaise(aEvent : TJSMouseEvent) : boolean;

begin
  Result:=False;
  raise exception.Create('A exception');
end;

function TErrorApp.DoHook(aEvent : TJSMouseEvent) : boolean;

begin
  Result:=False;
  HookUncaughtExceptions;
end;

Procedure TErrorApp.DoPascalException(O : TObject);

begin
  Writeln('O :',O.ClassName);
  if O is Exception then
    Writeln('Exception class message : ',Exception(O).Message);
end;

Procedure TErrorApp.DoJSException(O : TJSObject);
begin
  writeln('Javascript exception: ',O.toString);
  if O is TJSError then
    Writeln('Error message : ',TJSError(O).Message);
end;

Procedure TErrorApp.DoRaiseJS; assembler;
asm
  throw new Object();
end;

Procedure TErrorApp.DoRaiseJSError; assembler;
asm
  var e = new Error();
  e.message="My error message";
  throw e;
end;

Procedure TErrorApp.Run;

begin
  // This will only work for the main program if you have set showUncaughtExceptions before rtl.run();
  TJSHtmlButtonElement(Document.getElementById('btnhook')).OnClick:=@DoHook;
  // These will not be caught (yet)
  TJSHtmlButtonElement(Document.getElementById('btn')).OnClick:=@DoRaise;
  // Uncomment this to set default exception handlers
  // HookUncaughtExceptions;

  //  Uncomment these to set special exception handlers
  //  SetOnUnCaughtExceptionHandler(@DoPascalException);
    SetOnUnCaughtExceptionHandler(@DoJSException);

  // Various ways to raise an exception.
  // DoRaiseJS;
  // DoRaiseJSError;

  DoRaise(Nil);
end;

begin
   With TErrorApp.Create do
     Run;
end.