remotemodel.pas

絮语2007视频聊天软件源程序.仅供参考

unit remotemodel;

interface

uses SysUtils,windows,model;

type
  tremotemodel=class(Tmodel)
    private
      procedure request_remote(params:string);
      procedure refuse_remote(params:string);
    public
      procedure process(params:string);override;
    end;

implementation
uses shareunit,constunt,udpcores,structureunt,richunt;

//------------------------------------------------------------------------------
//  请求remote
//------------------------------------------------------------------------------
procedure tremotemodel.request_remote(params:string);
var firendid:string;
begin
firendid:=getparamitem(params,'md5name');
if udpcore.user.checkuser(firendid) then
    begin
    expandmemo.Add(params);
    postmessage(main_hwnd,refresh_status,xy_remote_starting,0);
    end;
end;

//------------------------------------------------------------------------------
//  拒绝remote
//------------------------------------------------------------------------------
procedure tremotemodel.refuse_remote(params:string);
var msg:string;
begin
postmessage(remote_hwnd,refresh_status,xy_form_close,0);
makeparamsex(msg,'msgid',xy_showadmsgform);
makeparamsex(msg,'msgtext','用户 '+getparamitem(params,'uname')+' 拒绝了您的远程协助邀请!');
makeparamsex(msg,'autoclose',false);
expandmemo.add(msg);
postmessage(main_hwnd,refresh_status,xy_showadmsgform,0);
end;

//------------------------------------------------------------------------------
//  处理remote有关的消息
//------------------------------------------------------------------------------
procedure tremotemodel.process(params:string);
var funid:string;
begin
funid:=getparamitem(params,'funid');
case strtointdef(funid,xy_unknow) of
    xy_request:request_remote(params);
    xy_refuseing:refuse_remote(params);
    xy_unknow:logmemo.add('unknow:'+params);
  end;
end;

end.