谁帮我把这段VC代码转成D啊. 我自己弄了三天都弄不好. 呼. 谢谢各位. ( 积分: 100 )

如题.
//回调函数的集合类

class IHikClientAdviseSink
{
public:
/******************************************************************
在Setup时被调用,获取总的播放长度.nLength为总的播放长度,以1/64秒为单位
*/
virtual int OnPosLength( unsigned long nLength ) = 0;

/******************************************************************
在Setup后被调用,表示URL已经被成功打开,sucess为1表示成功,0表示失败
*/
virtual int OnPresentationOpened(int success) = 0;

/************************************************************************
在Player被停止销毁后调用
*/
virtual int OnPresentationClosed() = 0;

/************************************************************************
未使用
*/
virtual int OnPreSeek( unsigned long uOldTime, unsigned long uNewTime ) = 0;

/************************************************************************
未使用
*/
virtual int OnPostSeek( unsigned long uOldTime, unsigned long uNewTime ) = 0;

/************************************************************************
未使用
*/
virtual int OnStop() = 0;

/************************************************************************
在Pause时被调用，uTime目前都是0
*/
virtual int OnPause( unsigned long uTime ) = 0;

/************************************************************************
在开始播放时调用，uTime目前都是0
*/
virtual int OnBegin( unsigned long uTime ) = 0;

/************************************************************************
在随机播放时调用，uTime目前都是0
*/
virtual int OnRandomBegin( unsigned long uTime ) = 0;

/************************************************************************
在Setup前调用，pszHost表示正在连接的服务器
*/
virtual int OnContacting( const char* pszHost ) = 0;

/************************************************************************
在服务器端返回出错信息是调用， pError中为出错信息内容
*/
virtual int OnPutErrorMsg( const char* pError ) = 0;

/************************************************************************
未使用
*/
virtual int OnBuffering( unsigned int uFlag, unsigned short uPercentComplete ) = 0;

virtual int OnChangeRate(int flag)=0;

virtual int OnDisconnect()=0;
};

反正就是自己弄一个函数类. 怪. 就是都弄不好. 只要在这里请教一下大家了. 麻烦大家就会vc的帮小弟看一下. 谢谢了.

[] 失望. 既然没有人会么.. 唉.

IHikClientAdviseSink = class
public
function OnPosLength(nLength WORD):integer; virtual; abstract;
function OnPresentationOpened(success: integer):integer; virtual; abstract;
function OnPresentationClosed:integer; virtual; abstract;
function OnPreSeek(uOldTime, uNewTime: DWORD ):integer; virtual; abstract;
function OnPostSeek(uOldTime, uNewTime: DWORD ):integer; virtual; abstract;
function OnStop:integer; virtual; abstract;
function OnPause(uTime: DWORD ):integer; virtual; abstract;
function OnBegin(uTime: DWORD ):integer; virtual; abstract;
function OnRandomBegin(uTime: DWORD ):integer; virtual; abstract;
function OnContacting( const pszHost: PCHAR ):integer; virtual; abstract;
function OnPutErrorMsg( const pError: PCHAR ):integer; virtual; abstract;
function OnBuffering(uFlag: DWORD; uPercentComplete: WORD ):integer; virtual; abstract;
function OnChangeRate(flag: integer):integer; virtual; abstract;
function OnDisconnect:integer; virtual; abstract;
end;

不晓得你这个类有什么用，还不如做个Dll

谢谢啊. 呵呵.