uniGUI学习之运行第三方JavaScript代码的两种方法JS(42)

要在uniGUI里引用JavaScript代码

---

 1】直接引用运行

// UniSession在uniGUIApplication单元
UniSession.AddJS('alert(unigui调用了JS方法)');

---

html与delphi间交互代码

[ClientEvents操作]
Js存取Edit,Memo组件值getValue,setValue
    MainForm.Edit1.setValue(“ABCDE”); //把值设定给Edit1
    Ext.getCmp( MainForm.Edit1.id ).setValue(值); //把值设定给Edit1


     MainForm.Edit1.getValue(); //取Edit1的值
    Ext.getCmp( MainForm.Edit1.id ).getValue() );
    

Js存取Label
    MainForm.Label1.setText(值); //设定
    Ext.getCmp( MainForm.Label1.id ).setText(值);
    Ext.getCmp( MainForm.Label1.id ).getWidth(); //取宽度
    var a=document.getElementByIdx_x( MainForm.Label1.id ). innerText; //取值
    var a=Ext.getCmp( MainForm.Label1.id ).text;  //取值
 
MainForm.UniButton4.getId(); //取Unigui控件id
MainForm.UniButton4.id; //取Unigui控件id

[UniURLFrame之使用]
UniLoginForm1.UniURLFrame1.iframe.contentWindow.document.getElementByIdx_x('container').
innerHTML='';
UniLoginForm1.UniURLFrame1.iframe.contentWindow.oldPoint = null;
top.document.getElementByIdx_x(top.MainForm1.BT_del.getId()).click();
top.MainForm.UniEdit1;

你在UniURLFrame中可以直接用top.form.控件
这是extjs封装过的

top.ajaxRequest(top.MainForm.UniURLFrame1,'TestEvent',null);
这样的服务端的UniURLFrame1的OnAjaxEvent就会触发

所以得一个结论
在UniURLFrame使用extjs的东西要加top.
控件如top.MainForm.UniEdit1
函数如top.ajaxRequest
多参考demo中ajax的范例

在js中界面上所有組件都當成html裡來控制

1、控制按鈕事件

js code如下
document.getElementById(MainForm.UniButton4.getId()).click(); //模擬按鈕事件

extjs code如下

MainForm.UniButton4.fireEvent("click", MainForm.UniButton4); //模擬按鈕事件

在delphi里代码

UniSession.AddJS('MainForm.UniButton4.fireEvent("click", MainForm.UniButton4);');

2、給edit賦值，extjs code如下

MainForm.UniEdit1.setValue("1");

在delphi里代码

UniSession.AddJS('MainForm.UniEdit1.setValue("1"); ');

procedure TMainForm.UniBitBtn1Click(Sender: TObject);
begin
  UniSession.AddJS('function addFunc01(p1,p2) {'+
                    '  return p1+p2; '+
                    '} ');//添加函数addFunc01
  UniSession.AddJS('alert(addFunc01(3,5));');//调用函数addFunc01
end;

 JavaScript代码只能用/*  */注释，不能用 //注释， 

UniSession.AddJS('function addFunc01(p1,p2) {'+
                    '  return p1-p2; '+
                    '} /*JavaScript里的注释*/');//JavaScript代码只能用/*  */注释，不能用 //注释，
UniSession.AddJS('alert(addFunc01(3,5));');//调用函数addFunc01 

---

2】从.js文件中引用。这样只有第一次 编译 UniGui有用，而改写JavaScript脚本 不再产生效果，浏览器 可能 缓存 第一次 JS调用。跟 浏览器有关。

      a]双击ServerModule单元的” CustomFiles”属性添加JS库文件路径，然后在界面里面执行代码。

      b].js文件要放在相对于Project1.exe的相对目录路径 下

 

 c]myFunction.js代码

function addFunc02(p1,p2)
{
return p1+p2;
}

d]执行JavaScripts

procedure TMainForm.UniBitBtn2Click(Sender: TObject);
begin
  UniSession.AddJS('alert(addFunc02(3,5));');//调用函数addFunc02
end;