Delphi 6 中的PChar与JavaScript的类型转换??? ( 积分: 50 )

  • 主题发起人 主题发起人 sunnysheng
  • 开始时间 开始时间
S

sunnysheng

Unregistered / Unconfirmed
GUEST, unregistred user!
我用D6写了一个ocx控件,里面的函数用到了PCar的类型,要在网页中用JavaScript的函数调用。但就是传不到JavaScript的函数中去。以下是代码:
D6:
function TActiveFormX.sy(Track: Integer
Data:PChar): Integer;
var
Retv:Integer;
RData:array [0..300] of Char;
begin
Retv:= InitComm('1,9600,n,8,1');//打开串口;
Retv:= RCard(2,RData)

StrCopy(Data,Rdata)

Result:= Retv;
end;

JavaScript:
function ReadCardCT(){
var Data = "";
var Retv = 0;
Retv = SJE.sy(2,Data);
alert("Data为:"+Data);
}

尝试了好多类型就是转不过来,但是把Data作为函数返回值却是可以的。是不是JavaScript的函数中不能用变量参数来转递啊???
请教各位高手!!!
 
我用D6写了一个ocx控件,里面的函数用到了PCar的类型,要在网页中用JavaScript的函数调用。但就是传不到JavaScript的函数中去。以下是代码:
D6:
function TActiveFormX.sy(Track: Integer
Data:PChar): Integer;
var
Retv:Integer;
RData:array [0..300] of Char;
begin
Retv:= InitComm('1,9600,n,8,1');//打开串口;
Retv:= RCard(2,RData)

StrCopy(Data,Rdata)

Result:= Retv;
end;

JavaScript:
function ReadCardCT(){
var Data = "";
var Retv = 0;
Retv = SJE.sy(2,Data);
alert("Data为:"+Data);
}

尝试了好多类型就是转不过来,但是把Data作为函数返回值却是可以的。是不是JavaScript的函数中不能用变量参数来转递啊???
请教各位高手!!!
 
用OLEVARIANT类型来传递吧
 
用OLEVARIANT类型来传递吧
也不行啊,还是传不过去啊!郁闷!!!
 
后退
顶部