retun value from JS to local variable

[wkotze]

Hi Guys,

how can i get the value from a script back into a local variable

procedure blabla;
var x1 :  string;
begin

UniSession.AddJS(' var x = "unigui" ; ');

// i want js x returned into  variablex1

thank you

 

[Sherzod]

19 minutes ago, wkotze said:

how can i get the value from a script back into a local variable

Hello,

Using ajaxRequest

[wkotze]

sorry Sherzod, can you please provide some code as in simple example i've used

thank you!!

 

[Sherzod]

There are many examples on the forum, use the search.

Your case is not clear, please clarify, we will try to give an example.

[wkotze]

sorry Sherzod, examples not clear.

i am trying to display both the server time and the local time to thuser

procedure TMainmForm.lbltimeClick(Sender: TObject);
var servertime,devicetime : string;
begin
...

  servertime  := formatdatetime('hh:mm:ss',now)

// javascript call to put local time into 'jsdatestr'
// UniSession.AddJS(' var ldate = new Date(); var jsdatestr  = ldate.toLocaleTimeString("EN-us").substring(0,8); ');  <-- is UniSession.AddJS event the correct  call ?

  devicetime :=  ???  <--- i need jsdatestr  from JS above here

  uniGUIDialogs.ShowMessageN( 'server time is ' +  servertime + ', your local time is ' + devicetime )

...
end  

 

[Sherzod]

5 minutes ago, wkotze said:

uniGUIDialogs.ShowMessageN( 'server time is ' +  servertime + ', your local time is ' + devicetime )

Okay. I will try.

[Sherzod]

As I understood you want this on button click.

[wkotze]

yes

 

[Sherzod]

13 minutes ago, wkotze said:

yes

1. UniButton1.ClientEvents.ExtEvents ->

function click(sender, e, eOpts)
{
    ajaxRequest(sender, 'getLocalTime', ['time='+new Date().toLocaleTimeString()]);
}

2. UniButton1.OnAjaxEvent ->

procedure TMainForm.UniButton1AjaxEvent(Sender: TComponent; EventName: string;
  Params: TUniStrings);
begin
  if EventName = 'getLocalTime' then
  begin
    (Sender as TUniButton).CustomAttribs.Values['clienttime'] := Params.Values['time'];
  end;

end;

3. UniButton1.OnClick ->

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  ShowMessage((Sender as TUniButton).CustomAttribs.Values['clienttime'])
  
end;

 

[wkotze]

thank you, very helpfull!!