如何在Delphi中使用TidIRC接收消息？

Question

到目前为止，我有以下代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
FIRC.Host:= '192.168.1.48';
FIRC.Port := 61289;
FIRC.Username:= 'test';
FIRC.Nickname:= 'Test';
FIRC.RealName:= 'TEst';
FIRC.Connect;
FIRC.Join('#Test');
end;

它会很好地连接，但我在谷歌上找不到如何在频道上实际收到消息。怎么办？

Answer 1

TIdIRC有OnPrivateMessage和OnNotice个事件（包括许多其他事件）。