delphi与javascript互通

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;

}

 

转载于:https://www.cnblogs.com/blogpro/p/11452572.html