delphi 获取js数据

在Delphi中获取JavaScript数据，主要有以下几种方法：

1、使用TWebBrowser控件

基本步骤：

在Delphi的窗体上放置一个TWebBrowser控件，并确保已经引入了SHDocVw单元。

在需要调用JavaScript方法的事件中，使用WebBrowser的Document属性来获取当前网页的HTML文档对象，可以使用如下代码获取Document对象：var Doc:OleVariant;begin Doc:=WebBrowser1.Document;。

获取到Document对象后，可以使用Document的parentWindow属性来访问浏览器的window对象，进而执行JavaScript代码或获取JavaScript数据，要执行一个名为MB的JavaScript函数，可以使用以下代码：WebBrowser1.OleObject.document.parentWindow.execScript(' MB() ','Javascript');。

示例：假设网页中有一个JavaScript函数getData()，该函数返回一些数据，可以通过以下代码在Delphi中调用并获取返回值：

      var
        Result: OleVariant;
      begin
        Result := WebBrowser1.OleObject.document.parentWindow.execScript('getData()', 'JavaScript');
        // 现在Result变量中包含了JavaScript函数的返回值，可以根据需要进行进一步处理
      end;

2、使用TIdHTTP和正则表达式

基本步骤：

使用TIdHTTP组件发送HTTP请求获取包含JavaScript数据的网页内容，创建一个TIdHTTP对象，设置好URL等参数，然后使用Get方法获取网页内容。

分析网页内容，找到包含JavaScript数据的部分，这可能需要使用正则表达式或其他字符串处理技术，根据网页的具体结构和JavaScript数据的嵌入方式来确定如何提取。

示例：假设要获取一个网页中的某个JavaScript变量的值，该变量的定义形式为var myData = "some data";，可以使用以下代码：

      var
        IdHTTP: TIdHTTP;
        Content: string;
        RegEx: TPerlRegEx;
      begin
        IdHTTP := TIdHTTP.Create(nil);
        try
          Content := IdHTTP.Get('http://example.com');
          RegEx := TPerlRegEx.Create(nil);
          RegEx.RegEx := 'var myData = "(.?)";';
          if RegEx.Match(Content) then
          begin
            // 提取出myData的值
            ShowMessage(RegEx.Groups[1].Value);
          end;
        finally
          IdHTTP.Free;
          RegEx.Free;
        end;
      end;

3、结合第三方库

基本步骤：

有一些第三方的Delphi库可以帮助更方便地与JavaScript进行交互和获取数据，例如Awesomium等，这些库通常提供了更高级的接口和功能，但需要按照其文档进行安装和配置。

使用相应的库提供的方法和对象来实现与JavaScript的通信和数据获取，具体的使用方法会因不同的库而有所不同，可以参考相应库的官方文档和示例代码。

在实际应用中，选择哪种方法取决于具体的需求、网页的结构以及开发环境等因素，如果需要在Delphi应用程序中频繁地与网页中的JavaScript进行交互，使用TWebBrowser控件可能是一个比较方便的选择；如果只是偶尔获取一些简单的JavaScript数据，使用TIdHTTP和正则表达式可能更加直接和灵活。