解决方案 »
- 请问delphi可以创建不规则Frame吗?
- 向大家请问关于sql语句的分组问题
- 怎么才能在canvas中画没有用填充色填充的矩形?(也就是只画出矩形的边框,而不在边框里填充颜色)
- 请教:我有两个Excel,怎么把第一个Excel中的Sheet复制到第二个Sheet中去。
- 请用过 Indy 组件的朋友帮忙
- 提问时别总给10分、20分的,没分的过来。
- 分不够再给,高手们帮我看看这个问题,明天要去公司了,还是没有解决,救命啊(trackbar)!!!
- 请问使用ISAPI写web服务器应用程序,怎么实现多人同时访问啊?
- 三层结构,对视图的修改无法提交?
- SQL除零怎么办?
- 请问怎么自己画出treeview节点图片的边框
- delphi 如何在android下取得IP地址
delphi run菜单下 unregister activex server 再 register actvex server
当然你用cmd命令 ocx卸载 注册也是可以的还有你用js调用ocx方法 test() 没有参数一定要带()的
delphi的函数代码:
function TPayOcx.Test: WideString;
begin
Result := '9999';
end;
Js这样的
<HTML>
<HEAD>
<TITLE>My Web Ocx</TITLE> <OBJECT id=PayOcxXControl1 CLASSID=CLSID:C26F5528-37DC-4CA5-B222-C035D1D8E2F1 WIDTH=0 HEIGHT=0 HSPACE=0
VSPACE=0 codebase=http://DK-PC/PayOcxXControl1.ocx#version=1,0,0,1>
</OBJECT>
<script type="text/javascript"> function sayHello()
{
alert("¿ªÊ¼");
<!-- »ñÈ¡OCX¶ÔÏóÓ¦Óà -->
var t = document.getElementById("PayOcxXControl1");
<!-- µ÷ÓÃOCX·½·¨ ´òÓ¡"Hello Pcitc!" -->
//t.testShow("Hello Pcitc!");
var testData = "6508FC2DEFC11011000005000232550050SH70 0132E3B7EB11E16B92751F7BD0CC7AF2022A";
var ss = '';
var iRst = ''; <!-- µ÷ÓÃOCX·½·¨ ¸øÖ§¸¶×é¼þServer·¢ËͲâÊÔÃüÁî -->
var ret = t.Test();
alert("WEB t.paycomponent ret = "+ret);
}
</script> </HEAD>
<BODY>
<P>
<input type="button" value="²âÊÔOCX" onclick=sayHello() />
<P>
</BODY>
</HTML>我现在还是怀疑delphi的OCX有问题,因为我封装的另外一个OCX怎么都调都可以?
哥们还有其他的方法吗
js调用部分 没什么好说的。你的test函数是怎么添加,你确定完全是用type libray添加的,而你只是在begin end之间写了实现部分。没有办法的话 可以给我发下测试工程 看一眼便知。
加我Q :240192273