請教各位大大:

小弟在 VC 寫了一個 COM 給 Delphi 的AP 使用, 如下

// VC

// com.h

typedef struct _tag_SYSCALLBACK_PROPERTIES
{
int (*GetBitsImage)(BYTE bChannelNo);
} tag_SYSCALLBACK_PROPERTIES, *ptag_SYSCALLBACK_PROPERTIES;

// com.cpp

STDMETHODIMP CI_COM::_Initial(ULONG pbsyscbprops)
{
tag_SYSCALLBACK_PROPERTIES *psyscbprops = (tag_SYSCALLBACK_PROPERTIES *)pbsyscbprops;
psyscbprops->GetBitsImage(1);
}

// Delphi
type
_tag_SYSCALLBACK_PROPERTIES = record
GetBitsImage: function(bChannelNo: BYTE;): Integer;
end {_tag_SYSCALLBACK_PROPERTIES};
tag_SYSCALLBACK_PROPERTIES = _tag_SYSCALLBACK_PROPERTIES;
ptag_SYSCALLBACK_PROPERTIES = ^_tag_SYSCALLBACK_PROPERTIES;

function GetBitsImage(bChannelNo: BYTE;): Integer;
begin
Result := 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
pAvc_scb_props: ptagAVC_SYSCALLBACK_PROPERTIES;

begin
CoInitialize(nil);

CoCreateInstance(CLASS_CIAVC_COM,
nil,
CLSCTX_INPROC_SERVER,
IID_IIAVC_COM,
m_CI);

p_scb_props := @m_scb_props;
p_scb_props.GetBitsImage := GetBitsImage;
m_CI._Initial(DWORD(p_scb_props));

end;

請問進入 function GetBitsImage(bChannelNo: BYTE;) 時,

為何 bChannelNo 不是1呢? 我傳遞其他變數, 指標 等都不會出錯.

唯獨 function pointer 裡面的參數會錯.

謝謝~