tidIRC. помогите разобраться

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
psix
Сообщения: 52
Зарегистрирован: 29 июл 2004, 13:53
Откуда: Россия, Москва
Контактная информация:

15 окт 2004, 18:29

дельфовый компонент tidIRC.(закладка indy clients)
есть 2 функции:
procedure TIdIRC.Say(ATarget, AMsg: String);
begin
Raw(Format('PRIVMSG %s :%s', [ATarget, AMsg])); {Do not Localize}
end;
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;
функция say отсылает приватное сообщение AMsg юзеру ATarget.
как послать сообщение ВСЕМ ЮЗЕРАМ?
Sloot
Сообщения: 1
Зарегистрирован: 21 июн 2007, 02:48

21 июн 2007, 02:50

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