Delphi 编写Activex控件如何传出字符串(300)

qqjm · 2009-10-18

调用的页面<html><head></head><object classid="clsid:F1B2B6A4-687A-4EA2-B34B-19713D248B50" width="100" height="100" border="2" id="SD"></object><script language="VBscript">Function read() dim port,factory, password, data port="5" factory = "A" password = "000000" MsgBox("开始读卡") SD.Read_Card port,factory,password, data MsgBox("数据:" + data)End Function</script><input type="button" value="读卡" onclick="read()"></body></html>Read_Card 有4个参数，都是字符串类型，数据通过data返回。 port,factory,password这三个参数我定义为BSTR [in] data 定义为 BSTR * [out]自己写的程序调用是没有问题的，输入输出都正确，但是用VBScript JavaScript调用就出错是不是我的参数类型定义有问题，参数应该如何定义？

wql · 2009-10-18

最好把类型读定义好了:MsgBox("开始读卡")data="*****" 告诉解释器 data是字符串SD.Read_Card port,factory,password, data

qqjm · 2009-10-19

不是这个问题。我用VB、C＃做了同样的ActiveX控件，并且都是这样调用的，没有问题。但是用Delphi做的就不行。VBscript执行的时候出错，提示类型不匹配，JavaScript没有获取返回值。我用C＃做了一个程序调用这个ActiveX控件，是可以正确获得数据。

Supermay · 2009-10-19

delphi的String类有点特别,跨语言的,你就PChar或Array of char代替String吧

xianjun · 2009-10-19

没试过用传出参数[

]但直接用函数返回是没有问题的。

wql · 2009-10-19

知道你的意思了,Delphi传入和返回传入是预留返回的字符空间，Data="012345678901234567890123456789" 30个字符空间Delphi函数需要返回的串，例如tmstms:=tms+#0#0;
// 注意加2个#0 Data:=PChar(TmS);//Data 为函数申明: PChar;

ArJianzeng · 2009-10-20

是不是你調用端定義的變量類型與方法中參數的類型不一致的問題?

dingbaosheng · 2009-10-20

不就是个输出参数嘛,定义成WideString就好.

qqjm · 2009-10-20

问题初步解决，现次证明，自己测试比问人是要快的。使用VARIANT *这种类型可以在VBScript和JavaScript取得数据。不知道有没有其它方法？

qqjm · 2009-10-22

看来也没有什么其它方法了！谢谢各位

qiujiwei8 · 2009-12-25

var readcard=window.document.getElementById("SD");
//通过ID获取OCX对象readcard.Read_Card port,factory,password);
//通过获取的对象调用OCX方法

Delphi 编写Activex控件如何传出字符串(300)

qqjm

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

qqjm

Unregistered / Unconfirmed

Supermay

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

ArJianzeng

Unregistered / Unconfirmed

dingbaosheng

Unregistered / Unconfirmed

qqjm

Unregistered / Unconfirmed

qqjm

Unregistered / Unconfirmed

qiujiwei8

Unregistered / Unconfirmed

Similar threads