Delphi6与VC写的COM组件如何传递BYTE*类型数据

最新推荐文章于 2022-03-13 12:30:54 发布

Pipi0714

最新推荐文章于 2022-03-13 12:30:54 发布

阅读量3.1k

点赞数

分类专栏： vc/c++/sdk/delphi/C# 文章标签： delphi byte null n2 ui 通讯

本文链接：https://blog.csdn.net/Pipi0714/article/details/2909628

版权

vc/c++/sdk/delphi/C# 专栏收录该内容

141 篇文章 0 订阅

订阅专栏

Delphi6如何调用COM组件实现连接点的问题参照上一篇文章

今天刚刚又有了点收获赶紧写下来

Delphi6中通过SafeArray来与VC写的COM组件进行通讯。

vc端:

连接点_IDispConnectEvents增加一个方法相当于在Delphi6端增加一个事件

id(3), helpstring("method Result3")] HRESULT Result3([in] VARIANT vrData);

方法的代码如下:

HRESULT Fire_Result3( VARIANT vrData)
{
HRESULT hr = S_OK;
T * pThis = static_cast<T *>(this);
int cConnections = m_vec.GetSize();

for (int iConnection = 0; iConnection < cConnections; iConnection++)
{
   pThis->Lock();
   CComPtr<IUnknown> punkConnection = m_vec.GetAt(iConnection);
   pThis->Unlock();

IDispatch * pConnection = static_cast<IDispatch *>(punkConnection.p);

   if (pConnection)
   {
    CComVariant avarParams[1];
    avarParams[0] = vrData;
    CComVariant varResult;

    DISPPARAMS params = { avarParams, NULL, 1, 0 };
    hr = pConnection->Invoke(3, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &params, &varResult, NULL, NULL);
   }
}
return hr;
}

调用_IDispConnectEvents上述方法的IDispConnect组件的方法代码如下:

STDMETHODIMP CDispConnect::Add2(LONG n1, LONG n2)
{
VARIANT vt;
LONG lrst = n1 + n2;
BYTE b[16] = {1,2,3,4,5,6,7,8,9,0,11,12,13,14,15,0};
VariantInit(&vt);

SAFEARRAY *psa = NULL;
SAFEARRAYBOUND rgsabound[1];
rgsabound[0].lLbound = 0;
rgsabound[0].cElements = 10;

psa = SafeArrayCreate(VT_UI1,1,rgsabound);

for(long i = 0; i < 10; i++)
{
SafeArrayPutElement(psa,&i,&b[i]);
}

vt.vt = VT_ARRAY | VT_UI1;
vt.parray = psa;

Fire_Result3(vt);

SafeArrayDestroy(psa);
psa = NULL;

VariantClear(&vt);
return S_OK;
}

Delphi6端

procedure TForm1.DispConnect1Result3(Sender: TObject; vrData: OleVariant);
var
i : integer;
s : string;
begin
if VarIsNull(vrData) then
    i := -1
else if VarIsArray(vrData) then
begin
//   i := VarArrayHighBound(vrData, 1) + 1;
    s := '';
    for i := VarArrayLowBound(vrData,1) to VarArrayHighBound(vrData,1) do
    begin
        s := s + IntToHex(vrData[i],2); //vrData每个数据就是我们上面b数组的内容
    end;
end;
ShowMessage(s);
end;