unit Types;
interface

const
// константы статуса
// (если единица в старшем разряде, 
// то наш IP-адрес будет скрыт от другого клиента)
 STATE_ONLINE     =$10020000;
 STATE_AWAY       =$10020001;
 STATE_DND        =$10020013;
 STATE_INVISIBLE  =$10020100;
 STATE_OCCUPIED   =$10020011;
 STATE_FREEFORCHAT=$10020020;
 STATE_N_A        =$10020005;
 
// константы статуса для внутненнего использования
// (индексы для картинок и др.)
 online           = 0;
 freeforchat      = 1;
 invisible        = 2;
 occupied         = 3;
 dnd              = 4;
 away             = 5;
 na               = 6;
 etc              = 7;
 offline          = 8;
 simply_icq       = 9;
 mes              = 10;
 empty            = 11;

 // типы сообщений
 TYPE_MSG         =$01; 
 TYPE_CHAT        =$02;
 TYPE_FILE        =$03;
 TYPE_URL         =$04;
 TYPE_AUTH_REQ    =$06;
 TYPE_AUTH_DEN    =$07;
 TYPE_AUTH_GIV    =$08;
 TYPE_ADDED       =$0C;
 TYPE_WEBPAGER    =$0D;
 TYPE_EXPRESS     =$0E;
 TYPE_CONTACT     =$13;
 TYPE_CONTACT_REG =$1A;

 PACKET_DATA_SIZE = 4096;
type
   IParray = array[0..3] of byte;
   PByteArray = ^TByteArray;
   TByteArray = array[0..PACKET_DATA_SIZE-1] of byte;
   PCharArray = ^TCharArray;
   TCharArray = array[0..PACKET_DATA_SIZE-1] of char;
   PWORD = ^word;
   PLONG = ^longint;
   PBYTE = ^byte;

// FLAP-заголовок 
type PFLAP_HDR = ^FLAP_HDR;
     FLAP_HDR = packed record
       Sign : byte;
       ChID : byte;
       SEQ  : word;
       Len  : word;
     end;

// SNAC-заголовок
type PSNAC_HDR = ^SNAC_HDR;
     SNAC_HDR = packed record
       FamilyID  : word;
       SubTypeID : word;
       Flags     : array[0..1] of byte;
       RequestID : longint;
     end;

// полный FLAP-пакет 
// при чтении с TCP-socketa сюда укладываем FLAP-заголовок и сами ДАННЫЕ.
// Из таких записей формируется связной список (см. поле Next)
type PFLAP_Item = ^FLAP_Item;
     FLAP_Item = packed record
       FLAP : FLAP_HDR;
       DATA : PByteArray;
       Next : PFLAP_Item;
     end;

// Пакет, который поступает в обработчик.
// Помимо самого FLAP-пакета в нем хранятся вспомогательные поля
// Cursor - текущая позиция чтения/записи
// Length - общая длина FLAP-заголовка и FLAP-данных
// Вариантная часть - для более осмысленного доступа к пакету
type
   PPack = ^Pack;
   Pack = packed record
      cursor : word;
      length : word;
      case integer of
        0: (DATA:array[0..PACKET_DATA_SIZE-1] of byte);
        1: (FLAP : FLAP_HDR;
            FLAP_BODY:array[0..PACKET_DATA_SIZE-1] of byte);
        2: (Sign,ChID:byte; SEQ,Len:word);
        3: (fix:FLAP_HDR;
            SNAC:SNAC_HDR;
            SNAC_BODY:array[0..PACKET_DATA_SIZE-1] of byte);
    end;
   implementation

end.