delphi TMS WEB core 嵌入JS代码

本文整理自网络，侵删。

 
procedure TForm1.WebButton1Click(Sender: TObject);
begin
asm
    if (1>0) {
      alert("hello");
    }
 end;
 end;


//取得JS返回值
var
  s: string;
begin
  asm
     s = myJavaScriptProc();
  end;
end;
 

相关阅读 >>

Delphi数据库实现从最后一条记录向上查询至首记录

Delphi windows 下用 Delphi 代码杀死进程，或者杀死自己

Delphi getforegroundwindow 与 getactivewindow 的区别

Delphi-改进获取文件md5 hash方法

Delphi 纯window系统api实现的ssl客户端

Delphi 基础学习 字符串去掉回车符

Delphi opendialog1文件过滤类型

Delphi 动态调整打印机纸张大小

Delphi vclzip实现分卷压缩

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi TMS WEB core 嵌入JS代码