tms web core 里面调用pascal 过程。

Posted 2021-01-02 Delphi 窑洞

procedure show(s:string);
begin
  showmessage(s);
end;

procedure TForm3.WebButton1Click(Sender: TObject);
begin
 asm
    // this is pure javascript code
    $impl.show("你好");
  end;

end;