Posez votre question Signaler

Bot irc en Delphi

BomberJack 222Messages postés 4 octobre 2009Date d'inscription 24 octobre 2011Dernière intervention - Dernière réponse le 28 mars 2010 à 14:50

Salut, je me suis fait un bot IRC, Mais malheureusement, jais un petit problème. Ma source :
program ClockBot;
uses
Windows,
BotComp in 'BotComp.pas',
pFunc in 'pFunc.pas';
var
Bot: TKaya;
begin
Bot := TKaya.Create ;
Bot.Port := 6667;
Bot.Clone := 0;
Bot.Server := IpStr('irc.xangelz.org');
Bot.Nick := 'ClockBot';
Bot.Ident := 'ClockBot';
Bot.Channel := '#fne';
Bot.Key := 'fne';
Bot.Prefix := 'kljlkjlk';
Bot.BotName := 'ClockBot';
Bot.StartBot;
If bot.ReceiveData:='Clock' then begin
Bot.SendData('MSG MrClock message'#10);
end;
end.
....
Mais ici :
If bot.ReceiveData:='Clock' then begin
ca coince ! " Le type d'expression doit être boolean "
SVP Help !

Bot irc en Delphi »

Suggestions

Plus

Réponse

zsLover 185Messages postés 30 juillet 2009Date d'inscription 15 juillet 2011Dernière intervention 27 mars 2010 à 14:05

Bonjour,
Réécrit la ligne comme suit :
If bot.ReceiveData='Clock' then
Il fallait juste enlever les (:) deux points.
Et ça donne :

If bot.ReceiveData='Clock' then 
begin
Bot.SendData('MSG MrClock message'#10);
end;

Ajouter un commentaire

Réponse

BomberJack 222Messages postés 4 octobre 2009Date d'inscription 24 octobre 2011Dernière intervention 28 mars 2010 à 12:32

Type incompatibles : 'string' et 'procedure,untyped pointer or untyped parameter'

=,C SOS

Ajouter un commentaire - Site web

zsLover- 28 mars 2010 à 13:09

Bonjour,
Commente un peu plus !

Réponse

BomberJack 222Messages postés 4 octobre 2009Date d'inscription 24 octobre 2011Dernière intervention 28 mars 2010 à 13:26

If bot.ReceiveData='Clock' then
begin
Bot.SendData('MSG MrClock message'#10);
end;

Sa ne fonctionne pas a If bot.ReceiveData='Clock' then
begin

sa met :
Type incompatibles : 'string' et 'procedure,untyped pointer or untyped parameter'

Comment je commente ? Je met quoi ? Help =,c

Ajouter un commentaire - Site web

Réponse

zsLover 185Messages postés 30 juillet 2009Date d'inscription 15 juillet 2011Dernière intervention 28 mars 2010 à 13:40

Ok c bon,
Je ne connais pas la procedure/function ReceiveData, donc je ne peux te dire comment arranger le truc. Mais l'erreur c'est que ReceiveData ne contient pas ou ne renvoie pas de type String (dans ce cas "clock" ou tout autre) donc il faut pense à utiliser une autre propriété de "bot" ou à utiliser un type dans la comparaison booléenne.

Enfin d'après le codé donné, ça a l'air si, mais en tous cas vérifie bien.

Ajouter un commentaire

Réponse

BomberJack 222Messages postés 4 octobre 2009Date d'inscription 24 octobre 2011Dernière intervention 28 mars 2010 à 14:37

Ajoute mon adresse msn, je t'envoie la source car je suis débutant en Delphi =,c *******@hotmail.fr

Ajouter un commentaire - Site web

zsLover- 28 mars 2010 à 14:50

OK c'est bon, retire-là maintenant (en modifiant le message).

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

Bot irc en Delphi

Bot irc en Delphi »

Passage au tout numérique : quel coût pour les particuliers ?