在 Delphi 中調用 JavaScript(1) – 回複 “fancy” 的問題

問題來源: http://www.cnblogs.com/del/archive/2008/07/30/1256669.html#1272732

源碼下載: http://files.cnblogs.com/del/Dephi-JavaScript.rar

本例測試用的 Html 檔案(包含三個要測試的 Js 函數):

<title></title>

本例:

代碼檔案:

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, OleCtrls, SHDocVw;type  TForm1 = class(TForm)    WebBrowser1: TWebBrowser;    Button1: TButton;    Button2: TButton;    Button3: TButton;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var  HtmlPath: string;begin  WebBrowser1.Left := -WebBrowser1.Width; {隱藏 WebBrowser1}  HtmlPath := ExtractFilePath(ParamStr(0)) + 'Test.htm';  WebBrowser1.Navigate(HtmlPath);end;procedure TForm1.Button1Click(Sender: TObject);var  str: Variant;begin  str := WebBrowser1.OleObject.document.parentWindow.JsStr2('12345');  ShowMessage(str);end;procedure TForm1.Button2Click(Sender: TObject);var  num: Variant;begin  num := WebBrowser1.OleObject.document.parentWindow.JsNum2(4);  ShowMessage(num);end;procedure TForm1.Button3Click(Sender: TObject);begin  WebBrowser1.OleObject.document.parentWindow.JsMsg('ABC');  {也可以這樣:}  WebBrowser1.OleObject.document.parentWindow.execScript('JsMsg("ABCDEFG")', 'JavaScript');end;end.

表單檔案:

object Form1: TForm1  Left = 0  Top = 0  Caption = 'Form1'  ClientHeight = 167  ClientWidth = 280  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'Tahoma'  Font.Style = []  OldCreateOrder = False  Position = poDesktopCenter  OnCreate = FormCreate  PixelsPerInch = 96  TextHeight = 13  object WebBrowser1: TWebBrowser    Left = 64    Top = 48    Width = 154    Height = 97    TabOrder = 0    ControlData = {      4C000000EB0F0000060A00000000000000000000000000000000000000000000      000000004C000000000000000000000001000000E0D057007335CF11AE690800      2B2E126208000000000000004C0000000114020000000000C000000000000046      8000000000000000000000000000000000000000000000000000000000000000      00000000000000000100000000000000000000000000000000000000}  end  object Button1: TButton    Left = 104    Top = 40    Width = 75    Height = 25    Caption = 'Button1'    TabOrder = 1    OnClick = Button1Click  end  object Button2: TButton    Left = 104    Top = 81    Width = 75    Height = 25    Caption = 'Button2'    TabOrder = 2    OnClick = Button2Click  end  object Button3: TButton    Left = 104    Top = 120    Width = 75    Height = 25    Caption = 'Button3'    TabOrder = 3    OnClick = Button3Click  endend