Delphi 调用 C++ 回调函数

来源：互联网发布：淘宝三钻店铺转让编辑：程序博客网时间：2024/06/05 10:38

//输入函数声明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;

0 0