Building an IRC Client

The Say() procedure enables you to send a message either to the channel or to another user:

procedure TForm1.Button2Click(Sender: TObject);

begin

idIRC1.Say(edit3.text, Memo2.Text);

Memo1.Lines.Add(IdIRC1.Nickname + ': '+Memo2.Text);

Memo2.Lines.Clear;

end;

With the following code you just display the message from the administrator:

procedure TForm1.IdIRC1AdminInfoReceived(ASender: TIdContext;

  AAdminInfo: TStrings);

var

  i:integer;

begin

for i:= 0 to AAdminInfo.Count-1 do begin

memo1.lines.add(AAdminInfo.Strings[i]);

end;

end;

Notice that the message is in a TStrings object. This requires us to loop through the object and then display the information contained within it in a memo.

procedure TForm1.IdIRC1Connect(Sender: TObject);

begin

Memo1.Lines.Add('Connection ok'); //this just confirms that we
are connected

end;

procedure TForm1.IdIRC1Status(ASender: TObject; const AStatus:
TIdStatus;

  const AStatusText: String);

begin

memo1.Lines.Add(AStatusText);

end;

The status procedure keeps us up to date on what the client is doing.

procedure TForm1.IdIRC1Join(ASender: TIdContext; ANickname,
AHost,

  AChannel: String);

begin

Memo1.Lines.Add('Join :' +AChannel+'NickName '+ANickName+' Host
'+AHost);

end;

This event is fired when a new user joins a channel. How much information you want about a user is up to you, but you can get the user's host name, the channel that the user joined and the user's nickname. I just added it all to the memo.

procedure TForm1.Memo2KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

var

i : integer;

begin

if Key = VK_RETURN then

begin

idIRC1.Say(edit3.text, Memo2.Text);

Memo1.Lines.Add(IdIRC1.Nickname + ': '+Memo2.Text);

Memo2.Lines.Clear;

end;

end;