请问一下这句语翻译成delphi怎么写

Question

BOOL __stdcall MP4_ClientSetCapPicCallBack(LONG StockHandle, void (CALLBACK* CapPicFun)(long StockHandle, char * pBuf, long nSize, long nWidth, long nHeight, long nStamp, long nType, long nReceaved));
这句话翻译成delphi是怎么写呢，主要我在CALLBACK* CapPicFun)(long StockHandle, char * pBuf, long nSize, long nWidth, long nHeight, long nStamp, long nType, long nReceaved)这句不会。

Answer 1

type
  CapPicFunCallBack = procedure(StockHandle: longint;  pBuf: PChar;  nSize, nWidth, nHeight, nStamp, nType, nReceaved: longint);
  
procedure MP4_ClientSetCapPicCallBack(StockHandle: longint;  CallBack: CapPicFunCallBack);  stdcall;  external '??????.dll';

Answer 2

void (CALLBACK* CapPicFun)(long StockHandle, char * pBuf, long nSize, long nWidth, long nHeight, long nStamp, long nType, long nReceaved)是个回调函数
void __stdcall Callback(long StockHandle, char * pBuf, long nSize, long nWidth, long nHeight, long nStamp, long nType, long nReceaved);
你会吧PASCAL:
type
   TCallBack = procedure(... 自已攺long StockHandle, char * pBuf, long nSize, long nWidth, long nHeight, long nStamp, long nType, long nReceaved...);stdcall;//stdcall不能少
function MP4_ClientSetCapPicCallBack(StockHandle:DWord;CallBack: TCallBack);stdcall;