delphi与javascript互通
2024-08-29 23:34:26
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm}
uses ComObj;
{此函数需要 ComObj 单元的支持}
{参数 JsCode 是要执行的 Js 代码; 参数 JsVar 是要返回的变量}
function RunJs(const JsCode, JsVar: string): string;
var
script: OleVariant;
begin
try
script := CreateOleObject('ScriptControl');
script.Language := 'JavaScript';
script.ExecuteStatement(JsCode);
Result := script.Eval(JsVar);
except
Result := '';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := RunJs(Memo1.Text, 'str');
ShowMessage(s);
end; end.
http://www.360doc.com/content/11/1117/22/7887676_165336337.shtml
C++Builder 资料库CSIDL_DESKTOP; //桌面
CSIDL_DESKTOPDIRECTORY ; //桌面目录
http://blog.csdn.net/goodai007/article/details/6942841
http://blog.csdn.net/chiengod/article/details/309466
//sValidation=验证
//sCaption=功能名
//sHint=说明或介绍
//sCategory=类别名
//sLocaleID=本地ID
//sAppVerMin=版本
//sShortcutKey=快捷键
function main(i){
return i*i;
}
最新文章
- 多层级Spinner列表选项实时更新树形层级(选择城市)
- HDOJ/HDU 2551 竹青遍野(打表~)
- Apache Cloudstack Development 101 -- Data Access Layer
- Content-Type小解
- TypeScript入门-枚举、类型推论
- 【转载】汇编调试程序Debug使用
- 解决微信小程序的wx-charts插件tab切换时的显示会出现位置移动问题-tab切换时,图表显示错乱-实现滑动tab
- 检索 COM 类工厂中 CLSID 为 {00024500-0000-0000-C000-000000000046} 的组件时失 败,原因是出现以下错误: 80080005
- phpstorm自定义代码片段
- NYOJ 737:石子合并(一)(区间dp)
- 文件读取 FILE
- 【spfa】【动态规划】zoj3847 Collect Chars
- 洛谷P4716 【模板】最小树形图(朱刘算法)
- 2.4G电动车防盗方案 超低功耗单发器 SI24R2F
- HDU5669-Road
- NYOJ 1022 合纵连横 (并查集)
- py3.6+anaconda下安装opencv3
- Jenkins高速上手
- Eclipse中新建Maven Web项目报错:The superclass ";javax.servlet.http.HttpServlet"; was not found on the Java Build Path
- EasyDarwin Streaming Server对Task的调用方法