How to Get JS function result?

[huayan889]

How to Get JS function ADD(10,2) result?

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  Script.text:=
  'function add(x,y) {'+
  ' return x+y;' +
  '}';

showmessageN(add(10,2));//display result= 12
end;

[Sherzod]

4 minutes ago, huayan889 said:

showmessageN(add(10,2));//display result= 12

Hello,

For what purpose, sorry?

[huayan889]

Just now, Sherzod said:

Hello,

For what purpose, sorry?

get  add function(js code) result

[Sherzod]

1 minute ago, huayan889 said:

get  add function(js code) result

I understood you, but you won't just use the addition function, will you?  

[huayan889]

Just now, Sherzod said:

I understood you, but you won't just use the addition function, will you?  

I want to call JS's encryption algorithm and return the result of encryption or decryption

[Sherzod]

3 minutes ago, huayan889 said:

I want to call JS's encryption algorithm and return the result of encryption or decryption

Well, something like we did in your post.

 

[huayan889]

Just now, Sherzod said:

Well, something like we did in your post.

 

It's OK to assign a value to the control, but now I want to return the result to the specified variable

[huayan889]

15 minutes ago, huayan889 said:

It's OK to assign a value to the control, but now I want to return the result to the specified variable

Something like this,Delphi Code call js MD5 function,  Can it be realized?

UniQuery1.SQL.Text := 'select * from ss_customer_info where (customer_id=' + chr(39) +
    UniEdit1.Text + chr(39) + ') and  (admin_id =' + chr(39) + admin_id.Text + chr(39) +
    ') and  (admin_pass=' + chr(39) + MD5(fromCode(FpKey)) + chr(39) + ')';
  UniQuery1.Open;
 

[Sherzod]

Which version of Delphi are you using?

[Sherzod]

You can use it like this:

Uses ... IdHash, IdHashMessageDigest;

with TIdHashMessageDigest5.Create do
try
  MD5HashStr :=  HashStringAsHex(edPass.Text);
finally
  Free;
end;

 

[huayan889]

6 minutes ago, Sherzod said:

You can use it like this:

Uses ... IdHash, IdHashMessageDigest;

with TIdHashMessageDigest5.Create do
try
  MD5HashStr :=  HashStringAsHex(edPass.Text);
finally
  Free;
end;

 

MD5 is just an example, I need to use other encryption algorithms

[irigsoft]

.

[huayan889]

I mean, is there any way to call JS function in Delphi code to return the result.

[Sherzod]

Just now, huayan889 said:

I mean, is there any way to call JS function in Delphi code to return the result.

Well, the algorithm is this:

JS fn call (client side, use ajaxRequest to send data to server) -> Handling OnAjaxEvent (server side) 

[huayan889]

5 minutes ago, Sherzod said:

Well, the algorithm is this:

JS fn call (client side, use ajaxRequest to send data to server) -> Handling OnAjaxEvent (server side) 

Thank.

[dmzn]

procedure TfFormFilterHistory.UniButton1Click(Sender: TObject);
var nStr: string;
begin
  nStr := 'var t1=%s.getEditorBody().outerText;'+ //1.call function 
          'ajaxRequest(%s.form, ''getHTMLtext'', [''t1=''+t1]);';  //2.send result to server
  nStr := Format(nStr, [Memo1.JSName, self.Name]);

  UniSession.SendResponse(nStr);
  UniSession.Synchronize; // MainModule.EnableSynchronousOperations=true,here is important
  ShowMessageN(FText); //show result
end;

procedure TfFormFilterHistory.UniFormAjaxEvent(Sender: TComponent;
  EventName: string; Params: TUniStrings);
begin
 if EventName='getHTMLtext' then
   begin
    FText:=Params.Values['t1'];  //3.receive result
   end;
end;