delphi 装入 js

在Delphi中装入JavaScript可以通过多种方式实现，以下是一些常见的方法：

1、使用TWebBrowser控件

环境准备：确保开发环境中已安装Delphi，并创建一个新的VCL Forms Application项目。

添加控件：在表单上拖放一个TWebBrowser控件。

导航到包含JS的页面：使用TWebBrowser的Navigate方法导航到一个包含JavaScript代码的本地HTML文件或网络页面。

 WebBrowser1.Navigate('file:///C:/Path/To/Your/Page.html');

与JS交互：等待页面加载完成，然后通过TWebBrowser的Document属性访问页面的DOM，进而调用JavaScript函数或操作页面元素，可以使用Delphi的application.ProcessMessages方法来避免界面卡顿，同时等待页面加载，要调用页面中的一个名为myJsFunction的JavaScript函数，可以这样做：

 procedure TForm1.Button1Click(Sender: TObject);
    begin
      WebBrowser1.Navigate('file:///C:/Path/To/Your/Page.html');
      while WebBrowser1.ReadyState < READYSTATE_COMPLETE do
        Application.ProcessMessages;
      WebBrowser1.Document.parentWindow.execScript('myJsFunction();', 'JavaScript');
    end;

2、使用第三方组件如CEF4Delphi

环境准备：下载并安装CEF4Delphi组件，将其集成到Delphi开发环境中。

创建浏览器窗口：在表单上放置一个TCefSharpChromium或TCef3Component等CEF相关的浏览器控件。

加载页面并执行JS：使用浏览器控件的Load方法加载包含JavaScript的页面，然后通过控件提供的方法或属性来执行JavaScript代码。

 // 假设使用的是CEF3Component
    CEF3Component1.LoadURL('file:///C:/Path/To/Your/Page.html');
    CEF3Component1.Browser.MainFrame.ExecuteJavaScript('myJsFunction();', 'about:blank', 0);

3、使用ScriptControl组件（适用于早期Delphi版本）

环境准备：在Delphi项目中添加ScriptControl组件，需要先引用相关的COM对象库。

执行JS代码：使用ScriptControl的Eval方法来执行JavaScript代码。

 uses ComObj;
    procedure ExecScript(const Code, Lang, Func: string);
    var
      script: OleVariant;
    begin
      script := CreateOleObject('MSScriptControl.ScriptControl');
      script.Language := Lang;
      script.AddCode(Code);
      script.ExecuteStatement(Func);
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ExecScript('function myJsFunction(){alert("Hello from JS");}', 'JScript', 'myJsFunction()');
    end;

4、通过HTTP请求与后端JS服务交互

环境准备：如果JavaScript代码运行在后端服务器上，并且提供了相应的API接口，那么可以在Delphi中使用IdHTTP等组件来发送HTTP请求，与后端的JavaScript服务进行交互。

发送请求并处理响应：根据后端服务的要求，构建合适的HTTP请求，发送到服务器，并处理返回的响应数据，使用GET请求获取数据：

 uses IdHTTP, IdGlobal;
    procedure TForm1.Button1Click(Sender: TObject);
    var
      IdHTTP1: TIdHTTP;
      Response: string;
    begin
      IdHTTP1 := TIdHTTP.Create(nil);
      try
        Response := IdHTTP1.Get('http://yourserver.com/api/data');
        ShowMessage(Response);
      finally
        IdHTTP1.Free;
      end;
    end;

在Delphi中装入JavaScript有多种方法可供选择，开发者可以根据具体的需求和应用场景选择最适合的方法。