Как называть функции Javascript используя Дельфи?

Привет я сделал себе маленький браузер, у которого будет следующий внешний вид:

introducir la descripción de la imagen aquí

Код - следующий:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel3: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Web: TWebBrowser;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button5Click(Sender: TObject);
begin
  Web.GoBack;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Web.GoForward;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Web.GoHome;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Web.Navigate(Edit1.Text);  
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Web.Refresh;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Caption := 'WEB BROWSER' + Web.LocationName;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Label1.Caption := 'WEB BROWSER' + Web.LocationURL;
end;

end.

Но сейчас, когда я хочу он состоит в том, чтобы призывать к функции javascript с этого html примера, что использование, которое является следующим:

<html>
  <head>
    <title>ExecScript example</title>
    <script type="text/javascript">
    <!--
      function SetFont(fontname) {
        document.body.style.fontFamily = fontname;
      }
    // -->
    </script>
  </head>
  <body>
    <h1>Test Document</h1>
    <p>Select a font above to change the font displayed in this document</p>
  </body>
</html>

Я вижу много примеров из-за Интернета, но они слишком сложные для меня. То, что я хочу, состоит в том, чтобы, когда я посещаю мой delphi, он позвонил в la funcion javascript что SetFont и что, когда он назовет ее, был, по крайней мере, способен менять фон страницы.

Пример того, что я пробую:

Шрифт

Но жизненный важно, что он это приспособил к примеру, предложенному для того, чтобы использовать переменную, чтобы сохранять функцию javascript html и потом выполнять ее используя HTMLWindow.execScript.

6
задан 10.07.2017, 01:32
0 ответов