首页 > 其他 > 详细

Delphi 做ActiveX的详细过程

时间:2014-03-22 05:55:02      阅读:400      评论:0      收藏:0      [点我收藏+]

1、新建

bubuko.com,布布扣

如下图

 

bubuko.com,布布扣

点击OK

bubuko.com,布布扣

依然点击OK

bubuko.com,布布扣

出现了如上图的节面,就像窗体一样。

然后 你就想干什么干什么。

 

这个做好之后,

这个是我设计的窗体。

bubuko.com,布布扣

然后 就添加 外部可以调用的接口了。

如果你不想让外部调用 就 可以直接像平时用Delphi一样,该干什么干什么。

 

 

bubuko.com,布布扣代码
procedure Set_SnapBuffer(Value: Integer); safecall;
procedure Set_Visible(Value: WordBool); safecall;
procedure MessageShow(Value:WideString);safecall;{这个是我自己添加的}
public
{ Public declarations }
procedure Initialize; override;
end;

implementation

 

 

然后在下面 写上

 

1 procedure TActiveFormX.MessageShow(value:WideString);
2  begin
3 Application.MessageBox(PChar(edit1.Text), 提示, MB_OK);
4  end;

 

以上过程就把 接口写完了。接下来,配置环境然后来调试。

 

bubuko.com,布布扣

 

出现如下节面

 

bubuko.com,布布扣

然后如下填写

bubuko.com,布布扣

 

点击OK

bubuko.com,布布扣

如果你的代码没有写错 就直接通过了

 

然后

 

bubuko.com,布布扣

设置启动参数

bubuko.com,布布扣

就可以运行了。

bubuko.com,布布扣

当然是允许了。

然后就出现

 

bubuko.com,布布扣

 

这个时候 你就要修改html代码了

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
<HTML>
<H1> Delphi 7 ActiveX Test Page </H1><p>
You should see your Delphi 7 forms or controls embedded in the form below.
<HR><center><P>
<OBJECT
      classid="clsid:C4BB6130-AE39-4EDB-98E1-BBAC3089496D"
      codebase="http://localhost/ActiveFormProj1.ocx#version=1,0,0,0"
      width=350
      height=250
      align=center
      hspace=0
      vspace=0
      ID=jsShow//这个是我添加的
>
</OBJECT>
<script>
jsShow.MessageShow("");//本来不需要参数的,设计失误啊!
</script>
</HTML>

 

 

 

Delphi 做ActiveX的详细过程,布布扣,bubuko.com

Delphi 做ActiveX的详细过程

原文:http://www.cnblogs.com/LearningC/p/1894748.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!