客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
1、新建 如下图
点击OK 依然点击OK 出现了如上图的节面，就像窗体一样。 然后 你就想干什么干什么。
这个做好之后， 这个是我设计的窗体。 然后 就添加 外部可以调用的接口了。 如果你不想让外部调用 就 可以直接像平时用Delphi一样，该干什么干什么。
代码
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;
以上过程就把 接口写完了。接下来，配置环境然后来调试。
出现如下节面
然后如下填写
点击OK 如果你的代码没有写错 就直接通过了
然后
设置启动参数 就可以运行了。 当然是允许了。 然后就出现
这个时候 你就要修改html代码了 <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
class
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>
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论