delphi TMS WEB core 从JS调用pascal函数

本文整理自网络，侵删。

 
// this is a Pascal method
procedure MyPascalProc(s: string);
begin
  ShowMessage(s);
end;

procedure TForm1.WebButton1Click(Sender: TObject);
begin
  asm
    // this is pure Javascript code
    $impl.MyPascalProc("test");
  end;
end;



procedure TForm.MyTest;
var
  a: integer;
begin
   a := 42;
   asm
      alert('this is my JavaScript call ' +a);
   end;
end;
 

相关阅读 >>

elphi中取出字符串中指定位置的几个字符

Delphi中判断是否是64位操作系统

adoquery 实现获取数据库所有表名

Delphi拷贝整个目录(包括子目录)

Delphi 消息实现窗口最小化，最大化，关闭(Delphi)

Delphi 利用vclzip实现分卷压缩

Delphi 解决idtcpclient和idtcpserver通信中文乱码问题

Delphi fmx 绘制非常精确的 时分秒针

Delphi winapi: getwindowthreadprocessid - 获取指定窗口的进程 id 或线程 id

Delphi判断ip地址是否正确

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

转载请注明出处：木庄网络博客 » delphi TMS WEB core 从JS调用pascal函数