VC语言改Delphi

VC语言
CPLAYER_API LONG  __stdcall MP4_ClientStart(PCLIENT_VIDEOINFO pClientinfo,void(CALLBACK *ReadDataCallBack)(DWORD nPort,UCHAR *pPacketBuffer,DWORD nPacketSize));

解决方案 »

  1.   

    LONG  __stdcall MP4_ClientStart(PCLIENT_VIDEOINFO pClientinfo,void(CALLBACK *ReadDataCallBack)(DWORD nPort,UCHAR *pPacketBuffer,DWORD nPacketSize));
    好象是个回调函数,PCLIENT_VIDEOINFO 的类型需要定义,ReadDataCallBack也不清楚它的定义...
      

  2.   

    TReadDataCallBack = procedure (nPort: DWORD; pPacketBuffer pcha; nPacketSize: DWORD);
    function MP4_ClientStart(pClientinfo: PCLIENT_VIDEOINFO; ReadDataCallBack: TReadDataCallBack) stdcall;
      

  3.   

    LONG  __stdcall MP4_ClientStart(PCLIENT_VIDEOINFO pClientinfo,void(CALLBACK *ReadDataCallBack)(DWORD nPort,UCHAR *pPacketBuffer,DWORD nPacketSize));type TReadData = procedure (Port: DWORD; PacketBuffer: Pointer; PacketSize: DWORD); stdcall;function MP4_ClientStart(Clientinfo: PCLIENT_VIDEOINFO; ReadDataCallBack: TReadData): LONG; stdcall;