iggcommontype.pas

来自「通信控件」· PAS 代码 · 共 59 行

unit IGgCommonType;

interface

uses
  Windows;

const
  MAX_I_NAMEID     = 256;
  MAX_I_ATTRIBUTE  = (1024*128);

type

  TX = (Agb=1, Ssa=2, AgbSsa=3, Hts=4, Sth=8, Stus=16);

  TIDescribeH = record
    ID      : DWORD;
    NameID  : array[0..MAX_I_NAMEID-1] of Char;
    InfoSize: Integer;
    //szAttribute ...
  end;
  PIDescribeH = ^TIDescribeH;

  TIDescribe = record
    ID      : DWORD;
    NameID  : array[0..MAX_I_NAMEID-1] of Char;
    InfoSize: Integer;
    Info    : Pointer;
  end;
  PIDescribe = ^TIDescribe;

  TIRegRoute = record
    dwLocalIP  : DWORD;
    dwLoginIP  : DWORD;
    wLocalPort : WORD;
    wLoginPort : WORD;
    iReserved  : array[0..2] of Integer;
  end;
  PIRegRoute = TIRegRoute;

  //可用通信路径
  TRoute = record
    AttachID: Integer;
    RouteIP: Integer;
    LoginIP: Integer;
    LocalIP: Integer;
    RoutePort: Word;
    LoginPort: Word;
    LocalPort: Word;
    Revert: WORD;
    //SendRoute: Byte;
    //RecvRoute: Byte;
  end;
  PRoute = ^TRoute;

implementation

end.