delphi ScriptGate 调用JS

最新推荐文章于 2024-07-11 20:05:45 发布

转载最新推荐文章于 2024-07-11 20:05:45 发布 · 316 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/chenmfly/p/8558301.html

文章标签：

#javascript #操作系统 #移动开发 #ViewUI

本文介绍了一种在FireMonkey中使用TWebBrowser组件时，简化JavaScript与Delphi互相调用的方法。通过ScriptGate库，可以轻松实现JavaScript调用Delphi函数及获取返回值等功能，适用于Windows, macOS, Android, iOS等多个平台。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在 FireMonkey 使用 TWebBrowser 调用 Javascript函数并获取返回值以及 JavaScript 中调 Delphi 的函数/过程，普遍都在使用老掉牙的URL重定的方法，还要改 FMX 的源码，相当繁琐。

现在使用 ScriptGate 可轻易解决这个问题，ScriptGate  支持 Windows, macOS, Android, iOS，非常好用，强烈推荐。

项目地址：https://bitbucket.org/freeonterminate/scriptgate

 用法如下：

HTML / JavaScript：

Call Delphi procedure

;

Delphi：
procedure TForm1.FormCreate(Sender: TObject);
begin
// Binding ScriptGate to WebBrowser and setting the scheme delphi
// The scheme is also specified on the JavaScript side
// Same as file :, JavaScript: etc.
ScriptGate := TScriptGate.Create(Self, WebBrowser1, 'delphi');
end;

// Call helloJS () JavaScript.
// You can also retrieve the return value using an anonymous function.
procedure TForm1.Button1Click(Sender: TObject);
begin
FScriptGate.CallScript(
'helloJS()',
procedure(const iResult: String)
begin
ShowMessage(iResult); // Show return value
end
);
end;

// Execute arbitrary JavaScript
// You can also retrieve the return value using an anonymous function.
procedure TForm1.Button1Click(Sender: TObject);
begin
FScriptGate.Eval(
'document.getElementsByTagName("html")[0].outerHTML',
procedure(const iResult: String)
begin
ShowMessage(iResult); // Show return value
end
);
end;

// It is a method published in JavaScript and is called from JavaScript.
procedure TForm1.HelloDelphi;
begin
ShowMessage('Hello, Delphi!');
end;

转载于:https://www.cnblogs.com/chenmfly/p/8558301.html