Developing.ru

ATarget присвой имя канала, и всё будет работать.

дельфовый компонент tidIRC.(закладка indy clients)
есть 2 функции:
[quote]
procedure TIdIRC.Say(ATarget, AMsg: String);
begin
Raw(Format('PRIVMSG %s :%s', [ATarget, AMsg])); {Do not Localize}
end;[/quote]

[quote]
procedure TIdIRC.Raw(ALine: String);
begin
{ Send the string directly to the server without processing. Line is
terminated by CR-LF pair. }
if Connected then
begin
WriteLn(Aline+#13#10);
if Assigned(FOnSend) then
begin
FOnSend(Self, ALine);
end;
end
else
begin
if Assigned(FOnError) then
begin
FOnError(Self, nil, '', RSIRCNotConnected); {Do not Localize}
end;
end;
end;[/quote]

функция say отсылает приватное сообщение AMsg юзеру ATarget.
как послать сообщение ВСЕМ ЮЗЕРАМ?