//输入函数声明
extern "C" __declspec(dllexport) int SetRecNotifyProc( void (*TempRecProForPub)(TICanFrame *TempFrame),char *BusName);
//实现
int SetRecNotifyProc( void (*TempRecProForPub)(TICanFrame *TempFrame),char *BusName)
{
for (int bus=0;bus<UseCanBusArrey->Count;bus++)
{
TCANBUS* tempBusint=(TCANBUS*)UseCanBusArrey->Items[bus];
if (AnsiString(tempBusint->BusName)==AnsiString(BusName))
{
tempBusint->RecProForPub=TempRecProForPub;
}
}
}
//回调函数指针声明
void(*RecProForPub) (TICanFrame *TempFrame);
实现
if (RecProForPub!=NULL)
{
RecProForPub(TempFrame);
}
Delphi 部分 静态调用
type
TempRecProForPub= procedure(var tempframe:TICanFrame); cdecl;
var
function SetRecNotifyProc(RecProForPub :TempRecProForPub;BusName:PChar): Integer; cdecl; external 'SdcsPub.dll'name '_SetRecNotifyProc';
procedure TFormDevInfo.FormCreate(Sender: TObject);
var BDsNameChar:array[0..100] of char;
var BusName:array[0..100] of char;
useip:string ;
useBusName:string ;
i:Integer;
begin
useip:='192.168.3.233';
useBusName:='XAYF';
StrCopy(@(BDsNameChar[0]),PChar(useip));
StrCopy(@(BusName[0]),PChar(useBusName));
// InitTest(i);
InitCanbus(@BDsNameChar[0],9908,9909,@BusName[0]);
SetRecNotifyProc(UseRecProForPub,BusName);
// ListViewDeviceInfo.Items.Clear;
// CreateDeiviceInfo();
end;