Chinaunix首页 | 论坛 | 博客
  • 博客访问: 9087344
  • 博文数量: 1732
  • 博客积分: 12961
  • 博客等级: 上将
  • 技术积分: 19830
  • 用 户 组: 普通用户
  • 注册时间: 2009-01-09 11:25
个人简介

偷得浮生半桶水(半日闲), 好记性不如抄下来(烂笔头). 信息爆炸的时代, 学习是一项持续的工作.

文章分类

全部博文(1732)

文章存档

2023年(26)

2022年(112)

2021年(217)

2020年(157)

2019年(192)

2018年(81)

2017年(78)

2016年(70)

2015年(52)

2014年(40)

2013年(51)

2012年(85)

2011年(45)

2010年(231)

2009年(287)

分类: WINDOWS

2010-07-18 16:56:12

javascript中调用delphi函数

  

以下是test.htm页的内容
首先定义一个插件对象
 



//此函数打开activexform窗体并为activeform的属性赋值
function loadUploader(){
 if(window.ActiveXObject){
  try{
  document.getElementById("Mapupload").picname='20060531';  //为对象赋值
  document.getElementById("Mapupload").open();   //调用对象的open方法
  }
  catch(e){
  }
 }
 else{
 }
}





function InsertHTML()
{
 var UrlStr = document.getElementById("MapUpload").Content;
 alert(UrlStr);
}
 

定义对象的OnInsertHTML事件为activeform的OninsertHTML事件,并触发页面的inserthtml方法
        EVENT="OnInsertHTML()" 
        LANGUAGE="JScript">
    
   InsertHTML();

 
delphi中仅需在_TLB中声明OninsertHTML事件,Open方法,content属性即可
 
procedure TFeSendFrmX.open;
begin
  hnd := self.handle;
  FrmUpLoad := TFrmUpLoad.Create(self);
  with FrmUpload do
  begin
    ShowModal;
    Destroy;
  end;
end;
procedure TFeSendFrmX.ShowContent;
begin
  FEvents.OnInsertHTML;
end;
function TFeSendFrmX.Get_Content: WideString;
begin
  Result := FrmUpLoad.Code;
end;
阅读(3198) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~