structureunt.pas

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

unit structureunt;

interface

type
//------------------------------------------------------------------------------
// 用户信息
//------------------------------------------------------------------------------
  userinfo=record
   md5name:string[32];
   userid:string[16];     //帐号
   pwd:string[32];        //密码
   uname:string[16];      //昵称
   tel:string[16];        //电话
   business:string[16];   //职务
   dept:string[16];       //部门
   mytext:string[200];    //简介
   //---------------------------------------------------------------------------
   groupid:string[16];    //本地分组帐号
   gname:string[16];      //分组昵称
   md5pic:string[34];    //图象md5
   status:Shortint;           //状态
   checkup:Shortint;          //验证状态
   //---------------------------------------------------------------------------
   localip:string[15];
   //---------------------------------------------------------------------------
   nullity:boolean;      //是否已删除
   dlghwnd:Longword;     //聊天窗口 hwnd
   hishwnd:longword;     //历史记录窗口 hwnd
   dx:Smallint;          //历史记录窗口 left
   dy:Smallint;          //历史记录窗口 top
   dw:smallint;          //历史记录窗口 width
   end;

//------------------------------------------------------------------------------
// 聊天记录
//------------------------------------------------------------------------------
  pchatrec=record
    md5code:string[32];
    firendid:string[32];
    msgtext:array[0..1967] of char;
    readok:boolean;
    sendok:boolean;
    nullity:boolean;
    msgtime:Tdatetime;
    end;

//------------------------------------------------------------------------------
// 图片
//------------------------------------------------------------------------------
  tpicinfo=record
    md5:string[34];       //md5唯一标识符
    filename:string;      //文件名称..
    end;
//------------------------------------------------------------------------------
// 插件
//------------------------------------------------------------------------------
 Tpluginfo=record
    PlugInName,
    ServerExeName,
    ServerParam,
    ClientExeName,
    ClientParam:string;
    end;
//------------------------------------------------------------------------------
// 定时消息
//------------------------------------------------------------------------------
 Ttaskinfo=record
    md5code:string[34];
    firendid:string[34];
    tasktype:Boolean;
    msgtext:array[0..4095] of char;
    nullity:boolean;
    msgtime:Tdatetime;
    end;

//------------------------------------------------------------------------------
// 文件传输时的结构
//------------------------------------------------------------------------------
  Tdatapack=record
   msgid:Word;
   curpos,
   compos:Longword;
  end;

//------------------------------------------------------------------------------
// 请求下载图片文件序列结构
//------------------------------------------------------------------------------
  Tdownpicinfo=record
   md5code:string[32]; 
   picmd5:string[34];
   firendid:string[32];
   status:boolean;
   nullity:boolean;
   end;

//------------------------------------------------------------------------------
// handle 结构
//------------------------------------------------------------------------------
  Thwndinfo=record
   hd:Longword;
   nullity:boolean;
   end;

implementation
end.