本例效果圖:
?

?

?

代碼文件:

---

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Edit1: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); 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.

轉載于:https://blog.51cto.com/rosehacker/450215

總結

以上是生活随笔為你收集整理的在 Delphi 中调用 JavaScript(二)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。