PDA

Просмотр полной версии : tidIRC. помогите разобраться



psix
15.10.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
21.06.2007, 02:50
ATarget присвой имя канала, и всё будет работать.