addfirendunt.pas

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

unit addfirendunt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, xpButton, StdCtrls, ComCtrls,constunt;

type
  Taddfirendfrm = class(TForm)
    Bevel1: TBevel;
    xpButton1: TxpButton;
    xpButton2: TxpButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    RichEdit1: TRichEdit;
    Label6: TLabel;
    procedure xpButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure process_custom_message(var msg:tmessage);message refresh_status;
    procedure initfrom;
    { Private declarations }
  public
    params:string;
    { Public declarations }
  end;

implementation
uses richunt,shareunit,udpcores,structureunt;
{$R *.DFM}

//------------------------------------------------------------------------------
// 自定义消息
//------------------------------------------------------------------------------
procedure Taddfirendfrm.process_custom_message(var msg:tmessage);
begin
case msg.WParam of
  xy_form_close:close;
  end;
end;

procedure Taddfirendfrm.initfrom;
begin
label1.caption:='确定要添加 '+getparamitem(params,'uname')+' 为好友吗?';
label2.caption:='帐号:'+getparamitem(params,'userid');
label3.caption:='IP:'+getparamitem(params,'fromip');
label4.caption:='职务:'+getparamitem(params,'business');
label5.caption:='部门:'+getparamitem(params,'dept');
end;

procedure Taddfirendfrm.FormShow(Sender: TObject);
begin
initrichedit(richedit1);
richedit1.text:='请求加为好友';
initfrom;
end;

procedure Taddfirendfrm.xpButton2Click(Sender: TObject);
begin
close;
end;

procedure Taddfirendfrm.xpButton1Click(Sender: TObject);
var tmp:userinfo;
    msg:string;
begin
if richedit1.text<>'' then
   begin
   tmp:=udpcore.user.getuserinfoex(0);
   makeparamsex(msg,'msgid',xy_user);
   makeparamsex(msg,'funid',xy_search);
   makeparamsex(msg,'operation',xy_adding);
   makeparamsex(msg,'md5name',tmp.md5name);
   makeparamsex(msg,'userid',tmp.userid);
   makeparamsex(msg,'uname',tmp.uname);
   makeparamsex(msg,'tel',tmp.tel);
   makeparamsex(msg,'dept',tmp.dept);
   makeparamsex(msg,'business',tmp.business);
   makeparamsex(msg,'messageex',richedit1.text);
   udpcore.sendtoip(getparamitem(params,'fromip'),msg);
   close;
   end else showmessage('验证信息不能为空!');
end;

procedure Taddfirendfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
delhwnd(handle);
Action:=cafree;
Taddfirendfrm(self):=nil;
end;

procedure Taddfirendfrm.FormPaint(Sender: TObject);
begin
udpcore.formonpaint(self);
end;

procedure Taddfirendfrm.FormCreate(Sender: TObject);
begin
addhwnd(handle);
udpcore.changeLayered(handle);
end;

end.