一个ActiveX的问题 ( 积分: 100 )

用Delphi写了个ActiveX控减，控件有个方法输入参数是OleVariant类型来接受流：
procedure TWfUrgeX.ShowWf(WfStream: OleVariant);
var AStream : TMemoryStream;
pointer;

begin
AStream := TMemoryStream.Create;

try
Chart.BeginUpdate;
Chart.Clear;
p := VarArrayLock(WfStream);
AStream.Write(p^, VarArrayHighBound(WfStream,1) + 1);
AStream.Position := 0;

Chart.LoadFromStream(AStream);

Chart.EndUpdate;
finally
VarArrayUnlock(WfStream);
AStream.Free;
end;

请问我这种传递流的方式是否正确，如何用JavaScript中调用这个方法，并把流传入

用Delphi写了个ActiveX控减，控件有个方法输入参数是OleVariant类型来接受流：
procedure TWfUrgeX.ShowWf(WfStream: OleVariant);
var AStream : TMemoryStream;
pointer;

begin
AStream := TMemoryStream.Create;

try
Chart.BeginUpdate;
Chart.Clear;
p := VarArrayLock(WfStream);
AStream.Write(p^, VarArrayHighBound(WfStream,1) + 1);
AStream.Position := 0;

Chart.LoadFromStream(AStream);

Chart.EndUpdate;
finally
VarArrayUnlock(WfStream);
AStream.Free;
end;

请问我这种传递流的方式是否正确，如何用JavaScript中调用这个方法，并把流传入

没有人知道吗，急呀！！！！

不懂，转几个帖子，js传stream没弄过，不知道可以不可以用ADODB.Stream的方式，在JS里面new ActivexObject("ADODB.Stream&quot

http://www.delphibbs.com/delphibbs/dispq.asp?LID=1217915
标题： COM的interface接口可没有stream阿， 只有BSTR之类， 怎么返回或接收 (100分)

http://www.delphibbs.com/delphibbs/dispq.asp?LID=1095858
标题： 巨简单的问题,却没有人知道,帮帮我啊 我有个MIDAS结构的,我想通过调用服务端的方法把某个文件传上去,关键是怎么把个文件流转换为VARIANT? (100分)

http://www.delphibbs.com/delphibbs/dispq.asp?LID=1002270
标题： 没搞头了，帖代码！（没有人理睬，可能吸引力不够，加100，通货膨胀就是这样造成的） (100分)

我还是不会在JavaScript中向ActiveX中传Stream,再给点建议吧！

http://www.2ccc.com/article.asp?articleid=2407
js流没具体弄过，没有好的建议，只有自己看怎么把new出来的ActivexObject里面的流赋值，然后通过上面这个链接的方式传进去看了