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;
 

相关阅读 >>

Delphi idftp连接

Delphi中判断一个字符的位置在字符串开头或者末尾

Delphi 用 gdi+ 给图片添加花边的例子

sqlite报错database is locked的解决办法

Delphi 的tjpegimage跟image区别

Delphi xe 程序瘦身.编译后exe最低90kb

Delphi获取程序自身路径的函数

Delphi winapi: getwindowtext - 获取窗口标题

Delphi百度网盘真实地址解析

Delphi分割字符串的函数--extractstrings

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

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