Delphi调用COM-CSDN论坛

CSDN论坛 > Delphi > VCL组件开发及应用

Delphi调用COM [问题点数：20分，结帖人zpskm]

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅带孔压感纸(连续纸)打印 ⋅Delphi调用COM ⋅DELPHI调用COM的问题 更多帖子 关注私信空间博客 zpskm 本版专家分：0 结帖率 100%: 各位大侠:

我用.net2003做了一ActiveX控件,里面有下面接口:
HRESULT   GetFyData([out]   VARIANT*   data,[out,retval]   BOOL*IsSucceed);

在Delphi6里导入后变成了下面的形式:
function GetFyData(out Data: OleVariant): Integer; safecall;

传过来的数据其实是一BYTE型数组,请问如何从Data:   OleVariant中提取出来。

第二个问题:
HRESULT GetFyDataString([out, retval] BSTR* szData);

在DELPHI里对应接口function GetFyDataString:  WideString; safecall;

但是调用时,WideString返回为空,并且调试时,在GetFyDataString处会提示 inaccessible value

请问要怎么做,才能返回数据啊.

请大家帮忙啊，急死我了。
谢谢！！！

0 2008-01-21 14:06:59

回复数 3 只看楼主引用举报楼主

⋅求一较高难度的SQL语句：实现Update两个Select搭配的查询结果 ⋅SQLServer中Image类型数据导入MySQL ⋅程序员健身养生 更多帖子 关注私信空间博客 gjw310 本版专家分：2849: 不懂，帮顶，学习

0 2008-01-22 13:25:27

只看TA 引用举报 #1 得分 0

⋅bbs.csdn.net无法访问 ⋅收藏的我感兴趣的论坛没有了 ⋅新年，散分 更多帖子 关注私信空间博客 珍惜生命远离CPP 本版专家分：7029 进士 2008年总版技术专家分年内排行榜第五 铜牌 2007年6月总版技术专家分月排行榜第三 红花 2007年6月 VC/MFC大版内专家分月排行榜第一 黄花 2008年5月 C/C++大版内专家分月排行榜第二 2008年3月 C/C++大版内专家分月排行榜第二 2007年10月 C/C++大版内专家分月排行榜第二 2007年9月 C/C++大版内专家分月排行榜第二 2007年6月 C/C++大版内专家分月排行榜第二 2007年5月 C/C++大版内专家分月排行榜第二



p_var:OleVariant;

c:array[0..254]of byte;







 writeln( VarArrayDimCount( p_var ) );



  for i:=VarArrayLowBound( p_var , 1 ) to VarArrayHighBound( p_var , 1 ) do

    begin

      c[i] := p_var[i];

    end;

0 2008-01-22 17:25:46

只看TA 引用举报 #2 得分 10

⋅bbs.csdn.net无法访问 ⋅收藏的我感兴趣的论坛没有了 ⋅新年，散分 更多帖子 关注私信空间博客 珍惜生命远离CPP 本版专家分：7029 进士 2008年总版技术专家分年内排行榜第五 铜牌 2007年6月总版技术专家分月排行榜第三 红花 2007年6月 VC/MFC大版内专家分月排行榜第一 黄花 2008年5月 C/C++大版内专家分月排行榜第二 2008年3月 C/C++大版内专家分月排行榜第二 2007年10月 C/C++大版内专家分月排行榜第二 2007年9月 C/C++大版内专家分月排行榜第二 2007年6月 C/C++大版内专家分月排行榜第二 2007年5月 C/C++大版内专家分月排行榜第二: 第二个问题我觉得应该是控件的问题,先想办法确定控件没有问题.

0 2008-01-22 17:26:18

只看TA 引用举报 #3 得分 10

收藏帖子