www.pudn.com > 200589952618.rar > MYTYPE.PAS

unit mytype; 
 
interface 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent, IdTCPServer, 
  DB, ADODB; 
 
type 
  Drawbox = array[0..9, 0..19] of Byte; 
{ 
定义命令型变量用于与客户端传送命令。 
command是发送的命令，p1...p3是命令的参数（选用）； 
} 
  Rcommandtext = record 
    command: integer; 
    num: integer; 
  end; 
 
{用户信息类型} 
  Ruserdata = record 
    username: string[20]; 
    passwd: string[20]; 
    email: string[30]; 
    face: integer; 
    IP: string[15]; 
    post: integer; 
    lastsendtime: Tdatetime; 
    whatdoing: integer; 
    Rbg: Drawbox; 
    Rfg: Drawbox; 
    AThread: TIdPeerThread 
  end; 
 
{聊天信息数据类型} 
  Rtextdata = record 
    fromwho: string[20]; 
    towho: string[20]; 
    Text: string[100]; 
    size: integer; 
    color: Tcolor; 
  end; 
implementation 
 
uses myconst; 
 
end.