文档章节

在 Delphi 中调用 JavaScript(1) - 回复 "fancy" 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 384
阅读 5
收藏 0
问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1256669.html#1272732

源码下载: http://files.cnblogs.com/del/Dephi-JavaScript.rar

本例测试用的 Html 文件(包含三个要测试的 Js 函数):
<html> <head> <title></title> <SCRIPT LANGUAGE=javascript> <!-- //重复字符串的函数 function JsStr2(str) { return str + str; } //计算一个数的倍数的函数 function JsNum2(num) { return num + num; } //弹出信息框的函数 function JsMsg(msg) { alert(msg); } //--> </SCRIPT> </head> <body> </body> </html>

本例效果图:



代码文件:
unit Unit1;

interface

uses
  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
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/07/30/1256826.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
delphi 与 php 相关连的知识点总结.

为了维护xampps这项目, delphi还必须得会那么一点. 总不能碰到问题就问人吧, 感觉太不长进了. 经过几天的努力编写与学习, 以站在php角度来思考delphi, 感觉php强大的确是真理. 但delphi的理念...

Tuesday
2013/12/12
0
1
Android ---js与java的相互调用

android中的关键代码: webview.getSettings().setJavaScriptEnabled(true); webview.addJavascriptInterface(object,"name");//把Name="name"的对象添加到object中。object如果是this,就是......

lishisong
2012/11/13
0
0
JavaScript 对引擎、运行时、调用堆栈的概述理解

JavaScript 对引擎、运行时、调用堆栈的概述理解  随着JavaScript越来越流行,越来越多的团队广泛的把JavaScript应用到前端、后台、hybrid 应用、嵌入式等等领域。 这篇文章旨在深入挖掘Jav...

开元中国2015
2018/10/25
0
0
【书评】试读《JavaScript语言精髓与编程实践》大奖等你拿

为感谢开源中国社区网友对开源中国社区的一路支持,开源中国社区与电子工业出版社博文视点公司共同举办《JavaScript语言精髓与编程实践(第2版)》试读点评送书活动。 活动时间: 2012年5月24日...

博文视点
2012/05/24
4.7K
43
SyntaxHighlighter代码加色使用方法

SyntaxHighlighter是一款用于web页面的代码高亮着色工具,可以用来着色多种语言,能让你的代码在网页上以类似IDE编辑器里的样子高亮关键字,可以是HTML,CSS,Javascript,还可以是C,JAVA等编程...

Junn
2013/08/03
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Linux Wireshark普通用户启动使用方案

当系统安装好Wireshark后请正常启动是否可以进行正常使用,如果不行请参考下列指导 向系统添加一个用户组 sudo groupadd wireshark //如提示此组存在可跳过 将指定用户添加到这个组中 sudo...

CHONGCHEN
今天
1
0
CSS 选择器参考手册

CSS 选择器参考手册 选择器 描述 [attribute] 用于选取带有指定属性的元素。 [attribute=value] 用于选取带有指定属性和值的元素。 [attribute~=value] 用于选取属性值中包含指定词汇的元素。...

Jack088
今天
2
0
数据库篇一

数据库篇 第1章 数据库介绍 1.1 数据库概述  什么是数据库(DB:DataBase) 数据库就是存储数据的仓库,其本质是一个文件系统,数据按照特定的格式将数据存储起来,用户可以对数据库中的数据...

stars永恒
今天
4
0
Intellij IDEA中设置了jsp页面,但是在访问页面时却提示404

在Intellij IDEA中设置了spring boot的jsp页面,但是在访问时,却出现404,Not Found,经过查找资料后解决,步骤如下: 在Run/Debug Configurations面板中设置该程序的Working Directory选项...

uknow8692
昨天
4
0
day24:文档第五行增内容|每月1号压缩/etc/目录|过滤文本重复次数多的10个单词|人员分组|

1、在文本文档1.txt里第五行下面增加如下内容;两个方法; # This is a test file.# Test insert line into this file. 分析:给文档后增加内容,可以用sed 来搞定;也可以用while do done...

芬野de博客
昨天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部