![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TIDIRC
Pazitron_Brain © (2006-05-01 19:25:00)Скажите, как с помощью этого компонента (входит в состав Indy) вывести в Memo сообщения ChanServ'а?
Керт (2006-05-19 10:05:00) [1]idIRC1.Say('#channel','some text');
Например:
procedure TForm1.idIRC1Part(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel);
begin
Form1.IRC1.Say('#fantasy',string(AUser.Nick)+' вышел.');
end;
Это чтобы другие поняли )
Pazitron_Brain (2006-05-02 15:05:00) [2]Все, научился.
Pazitron_Brain (2006-05-02 13:56:00) [3]А как отправить сообщение на канал?
VirEx (2006-05-01 21:44:00) [4]системные сообщения:
procedure TForm1.IdIRC1System(Sender: TObject; AUser: TIdIRCUser;
ACmdCode: Integer; ACommand, AContent: String);
begin
Memo1.Lines.Add(AContent);
end;
Pazitron_Brain (2006-05-01 19:31:00) [5]И как можно отправить сообщение на канал?
Пишу irc.say(edit1.text); а он пишет: Not enough actual parameters