etransportirc.pas

.net 方面的开发说明资料。

// ========================================================
// eTransport IRC Protocol
//
// Design and implementation by:
// - Floris van den Berg
// ========================================================

unit eTransportIRC;

interface

  // ========================================================
  // Defined protocol CLSIDs
  // ========================================================

const
  CLSID_IRC_PROTOCOL : TGUID = '{e255b27a-7587-49f5-bb07-d10d341dce49}';

type
  IRC_PROTOCOL = (
    IRC_RAW = 0,
    IRC_NOTICEAUTH,
    IRC_STATUS_MESSAGE,
    IRC_CHANNEL_TOPIC,
    IRC_NICK_ENTRY,
    IRC_JOIN,
    IRC_PART,
    IRC_QUIT,
    IRC_PRIVMSG,
    IRC_MESSAGE,
    IRC_PING,
    IRC_CMD_USER,
    IRC_CMD_NICK,
    IRC_CMD_PASS,
    IRC_CMD_PONG,
    IRC_CMD_JOIN,
    IRC_CMD_PRIVMSG
  );

  // --------------------------------------------------------

  PIRCUser = ^IRCUser;
  IRCUser = packed record
    username : PChar;
    hostname : PChar;
    servername : PChar;
    realname : PChar;
  end;

  PIRCStatusMessage = ^IRCStatusMessage;
  IRCStatusMessage = packed record
    server : array[0..63] of char;
    message : array[0..511] of char;
  end;

  PIRCReply = ^IRCReply;
  IRCReply = packed record
    nickserver : array[0..63] of char;
    command : array[0..31] of char;
    trailing : array[0..31] of char;
    middle : array[0..127] of char;
  end;

  PIRCChannelTopic = ^IRCChannelTopic;
  IRCChannelTopic = packed record
    server : array[0..63] of char;
    channel : array[0..63] of char;
    topic : array[0..255] of char;
  end;

  PIRCPrivateMessage = ^IRCPrivateMessage;
  IRCPrivateMessage = packed record
    target : PChar;
    message : PChar;
  end;

  PIRCReplyPrivateMsg = ^IRCReplyPrivateMsg;
  IRCReplyPrivateMsg = packed record
    channel : array[0..63] of char;
    nick : array[0..15] of char;
    mask : array[0..63] of char;
    message : array[0..511] of char;
  end;

  PIRCNick = ^IRCNick;
  IRCNick = packed record
    nick : array[0..15] of char;
    mask : array[0..63] of char;
    channel : array[0..63] of char;
  end;

implementation

end.