Send data from Delphi to web client

[Jose Nilton Pace]

PHP Code:

;procedure TIWForm1.IWAppFormRender(Sender: TObject);
begin
   Self.JavaScript.Add( 'var w_v_l = ["2018/01","2018/02"]' );
end; 


HTML/JavaScript

PHP Code:

var config_v = {
    type: 'line',
    labels: w_v_l  <=== 


IWTemplateProcessorHTML

PHP Code:

procedure TIWForm1.IWTemplateProcessorHTMLUnknownTag(const AName: string; var VValue: string);
begin
   //AName in your HTML {%myDataTableData%}
   if AName = 'myDataTableData' then
      VValue := 'record, record2, record3, etc';
end;