mediamodel.pas

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

unit mediamodel;

interface

uses SysUtils,windows,model;

type
  tmediamodel=class(Tmodel)
    private
      procedure request_media(params:string);
    public
      procedure process(params:string);override;
    end;

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

//------------------------------------------------------------------------------
//  请求语音视频
//------------------------------------------------------------------------------
procedure tmediamodel.request_media(params:string);
var firendid:string;
begin
firendid:=getparamitem(params,'firendid');
if udpcore.user.checkuser(firendid) then
    begin
    expandmemo.Add(params);
    postmessage(main_hwnd,refresh_status,xy_media_starting,0);
    end;
end;


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

end.