?? etransportirc.pas
字號:
// ========================================================
// 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -