JWT

WEB TMS WEB Core
1

I have a question what do I wrong?.

I have XDataWebClient component in datamodule unit and when I try set OnRequest like this:

DataModuleSC.XDataWebClient.OnRequest:=procedure(Request: TXDataClientRequest)
  begin
    Request.Request.Headers.SetValue('Authorization','Bearer '+vToken);
  end;

I get an error:
[Error]: procedural type modifier "reference to" mismatch

3

You should do something like this:

procedure TForm1.DoRequest(Request: TXDataClientRequest);
begin
  Request.Request.Headers.SetValue('Authorization','Bearer '+vToken);
end;

procedure TForm1.WebFormCreate(Sender: TObject);
begin
  DataModuleSC.XDataWebClient.OnRequest := DoRequest;
end;
4

Ok ... I though that I can use anonymous method for this ... get token set request bearer and all ... but in yours solution I have to store locally token after login and set bearer.