Bonjour à tous, voilà, je suis en train de programmer un client IRC. Pour cela, j'utilise le composant IdIrc de indy 9.
J'ariive donc a me connecter a un serveur et a rejoindre un cannal, le probleme, ou plutot les problemes sont les suivants :
- Je voudrais afficher les réponses des serveurs et des cannaux dans un Tmemo, pour cela, j'utilise : memo1.lines.add(idirc1.readln) mais ça ne m'affiche qu'une ou 2 lignes de réponse alors que je devrais en avoir une vaingtaine...
- Je voudrais aussi mettre la liste des utilisateurs d'un cannal dans une Tlistbox et là encore je n'y arrive pas...
- Je n'arrive pas non plus a envoyer du texte sur le cannal
- Enfin, je n'arrive pas a recevoir le texte dans mon Tmemo (il doit falloir "surveiller" en permanence le serveur pour pouvoir recevoir les messages mais je ne sais pas comment faire)
Voila ^^ si vous avez une ou plusieurs réponses a mes questions, n'hésitez pas.
PS : j'ai deja cherché sur google et pas mal de forums, je n'ai rien trouvé...
J'utilise delphi 7.
@ + et merci d'avance

Pour envoyer du texte, si je me souviens bien, c'est ircclient.WriteLn('message');, mais... je suis loin d'en etre certain a 100%

Ensuite, pour surveiller le channel, ca doit avoir un rapport avec Intercept ou IOHandler (ou encore ReadTimeOut, mais je ne suis pas du tout un specialiste de l'IRC...)

Dreuteu

(oups dsl ... on peut pas éditer les messages ici?)

-> Je confirme que pour envoyer du texte c'est bien .WriteLn( Const AOut : String = ' ') qu'il faut utiliser

Dreuteu

ok merci d'avoir répondu dreuteu ;-)

pouvez vous me dire dans quel onglet de indy on le trouve svp ? parce qie je ne trouve pas :/

Salut, pour ce qui est la liste des utilisateurs dans le ListBox, voici la procedure:

Il faut Créer  TListBox (ici List) et TidIrc (ici Irc)

Procedure LaListe;
Var  Cannal:TidIrcChannel;
         nom:String;
         t:Integer;
Begin
  cannal:=Irc.Channels.Get('#'+LeCannal);
  if cannal.Names.Count<1 then exit;
  List.Clear;
  for t:=0 to cannal.Names.Count-1 do
  begin
    nom:=cannal.Names[t];
    if irc.IsOp(nom) =True then List.Items.Add('@'+nom) else
    if irc.IsVoice(nom) = True then List.Items.Add('+'+nom) else
    List.Items.Add(mm);
    end;
end;

J'ai fait un IRC client complet, si vous avez des questions écrivez-moi.

a+
Denis

je n'arrive pas à faire fonctionner la procédure pour défiir les @ et les + et encore moins les % et les &

avez vous une autre solution ?

en faisant List.Items.Add(nom) jai les users mais il est incapable de définir son "poste" sur le chan (op, voice ect ...)

bizard ...

Je crois que c'est un problème de Indy9, pas drole mais je crois qu'il faut créer ca propre procédure pour détecter les Ops et les voices...

Aussi il-y-a une erreur:

Mettre  List.Items.Add(nom); à la place de List.Items.Add(mm);


a+

en effet j'utilise indy 9 sur delphi 7 et donc la détection des @ + % & ne focntionne pas ?
dans ce cas est ce que quelqu'un pourrait m'aider pour créer ces procédure ? parce que j'avous que je suis un peu pperdu :/

merci quand même pour la correction de la fin j'avais quand même réussis à modifier :)

alors les poto ?

personne ne peut m'aider ?