关于多媒体定时器的使用:timeSetEvent() 参数如何配 TimeProc()如何声明

[IT-司马青衫]

我在Delphi6中使用它们
use mmsystem;

procedure TSocketFrm.MMxRateCntTimer(uTimeID,uMessage:UINT; dwUser, dw1, dw2:DWORD)stdcall;

form2
var
timerid:integer;

Form2 buttion click()
timerid:=timeSetEvnet(1000,10,SocketFrm.MMxRateCntTimer,0,TIME_PERIODIC);

ERROR:
Incompatible types:'regular procedure and method pointer'

[hansome]

此错误是因为SocketFrm.MMXRateCntTimer不匹配
你必须把回传函数定义在SocketFrm之外
为一般函数
而不是SocketFrm的成员函数

use mmsystem;

procedure MMxRateCntTimer(uTimeID,uMessage:UINT; dwUser, dw1, dw2:DWORD)stdcall;

form2
var
timerid:integer;

Form2 buttion click()
timerid:=timeSetEvnet(1000,10,MMxRateCntTimer,0,TIME_PERIODIC);

[IT-司马青衫]

我的函数必须在SocketFrm单元中
其它单元使用它

[hansome]

我的意思是你不要把回传函数
当成TSocketFrm的成员函数就行
比如，

type
TSocketFrm = class(TForm)
private
...
public
...
end;

procedure MMxRateCntTimer(uTimeID,uMessage:UINT; dwUser, dw1, dw2:DWORD)stdcall;

var
SocketFrm: TSocketFrm;

implementation

procedure MMxRateCntTimer(uTimeID,uMessage:UINT; dwUser, dw1, dw2:DWORD)stdcall; //注意，这个stdcall也是必不可少的
begin
...
end;

[shinesi]

use mmsystem;

procedure MMxRateCntTimer(uTimeID,uMessage:UINT; dwUser, dw1, dw2:DWORD)stdcall;
begin
TSocketFrm frm = ( dwUser as TSocketFrm );// 没试，不知这样转行不
frm.//这样就可以访问TSocketFrm的成员了

end;

form2
var
timerid:integer;

Form2 buttion click()
timerid:=timeSetEvnet(1000,10,MMxRateCntTimer,(DWORD)self,TIME_PERIODIC); //(DWORD)self 这里把TSocketFrm作为参数传进去

[IT-司马青衫]

TSocketFrm frm = ( dwUser as TSocketFrm );// 没试，不知这样转行不
frm.//这样就可以访问TSocketFrm的成员了

好像不行啊