procedure PRocessCallReqMessage(var Msg: TMsg);message CALLREQ;是什么意思?const
CALLREQ = WM_USER + 20; //呼叫请求消息我主要是指procedure PRocessCallReqMessage(var Msg: TMsg);message CALLREQ;这样的写法代表的意义,我不会DELPHI但要想知道这个,谢谢了,急啊
CALLREQ = WM_USER + 20; //呼叫请求消息我主要是指procedure PRocessCallReqMessage(var Msg: TMsg);message CALLREQ;这样的写法代表的意义,我不会DELPHI但要想知道这个,谢谢了,急啊
当一个对象向这个类的实例发送消息CallReq(呼叫请求消息)之后,系统会自动调用这个函数。
也就是说,这个函数处理其他对象的呼叫请求,这么说你明白了吗?
不用管var Msg: TMsg这个参数吗?这个参数是怎样传递的?
我不知道用c#怎么实现:(
private
{ Private declarations }
bLoginStatus : boolean; //登录状态
bInit : boolean; //是否初始化成功
procedure PRocessCallReqMessage(var Msg: TMsg);message CALLREQ;
procedure TFrmMain.PRocessCallReqMessage(var Msg: TMsg);
var
SrcNum: pchar; //主叫
DestNum : pchar; //被叫
begin
if bsignout = true then exit; //呼叫请求
//获取呼叫号码
try
Getmem(SrcNum,50);
Getmem(DestNum,50);
GetSrcCaller(SrcNum);
GetDestCaller(DestNum);
M_SrcNum := SrcNum;
M_DestNum := DestNum;
finally
freemem(srcnum,50);
freemem(destnum,50);
end; if n39.Checked = false then
begin
//手动应答
if BeforeCall() =1 then exit; //发消息
refreshenabled('beforecall'); statusbar1.Panels[2].Text := '呼叫接入,来自'+M_SrcNum+'...';
statusbar1.Panels[1].Text := '当前状态:预占用'; if FileExists(ExtractFilePath(ParamStr(0)) + 'phone.wav') then
TRing.StartRing('phone.wav') ; //开始振铃
end
else
begin
//自动应答
if BeforeCall() = 1 then exit; //发消息 if AnswerCall() <> 0 then
statusbar1.Panels[2].Text := '应答失败';
end;
end;const
CALLREQ = WM_USER + 20; //呼叫请求消息