请问一下这句语翻译成delphi怎么写
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)这句不会。

[解决办法]
type
CapPicFunCallBack = procedure(StockHandle: longint; pBuf: PChar; nSize, nWidth, nHeight, nStamp, nType, nReceaved: longint);

procedure MP4_ClientSetCapPicCallBack(StockHandle: longint; CallBack: CapPicFunCallBack); stdcall; external '??????.dll ';

[解决办法]
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;