Why this.edtEmail is undefined?

[cappe]

Why with this code:

{$mode objfpc}

uses
  browserapp, JS, Classes, SysUtils, Web, fpjson, fpjsonjs, fprpccodegen;

type

  { TMyApplication }

  TMyApplication = class(TBrowserApplication)
    edtEmail: TJSHTMLInputElement;
    edtPassword : TJSHTMLInputElement;
    btnLogin : TJSHTMLButtonElement;
    procedure doRun; override;
  private
    procedure BindElements;
    procedure doLoginClick(aEvent: TJSEvent);
    procedure doServerLogin(const aUser, aPassword: String);
  end;

procedure TMyApplication.doRun;

begin
  BindElements;
  btnLogin.AddEventListener('click',@DoLoginCLick);
  Terminate;
end;

procedure TMyApplication.BindElements;
begin
  edtEmail:=TJSHTMLInputElement(GetHTMLElement('edtEmaill'));
  edtPassword:=TJSHTMLInputElement(GetHTMLElement('edtPassword'));
  btnLogin:=TJSHTMLButtonElement(GetHTMLElement('btnLogin'));
end;

procedure TMyApplication.doLoginClick(aEvent: TJSEvent);
begin
  window.alert(edtEmail.value);
  DoServerLogin(edtEmail.value,edtPassword.value);
end;

procedure TMyApplication.doServerLogin(const aUser, aPassword: String);
begin
  window.alert('Logging in with user: '+aUser);
  // to be implemented.
end;


Why does doLoginClick give me the following error? A seems correct.

Uncaught TypeError: this.edtEmail is undefined
    doLoginClick client.lpr:50
    cb rtl.js:256
    DoRun client.lpr:29
    Run custapp.pas:206
    $main client.lpr:66
    run rtl.js:141

[lainz]

Code: Pascal  [Select][+][-]

1. 'edtEmaill'

It has double L in the end

[cappe]

Code: Pascal  [Select][+][-]

1. 'edtEmaill'

It has double L in the end

That's not the problem, I have attached the project, I try with pas2js 2.2.0 I can't get it to work.

The strange thing is that inside the BindElements works, edtEmail works correctly, while in doLoginClick it gives me "Uncaught TypeError: this.edtEmail is undefined"

[440bx]

@cappe,

your opening post would be much easier to read if you used code tags to format the code.

[PierceNg]

That's not the problem, I have attached the project, I try with pas2js 2.2.0 I can't get it to work.

The strange thing is that inside the BindElements works, edtEmail works correctly, while in doLoginClick it gives me "Uncaught TypeError: this.edtEmail is undefined"

"It works on my computer"^TM with pas2js 2.2.1. The login box is displayed, the alert modal pops up, and browser console shows no relevant error.

[yus]

Remove Application.Free;

Code: Pascal  [Select][+][-]

1. ...
2. var
3.   Application : TMyApplication;
4.  
5. begin
6.   Application:=TMyApplication.Create(nil);
7.   Application.Initialize;
8.   Application.Run;
9. //  Application.Free;
10. end.