Neunis IRC-Bot - Neue Version!

[Neuni]

So, da ja letztens hier auch das Thema IRC-Bot war, hab ich mal einen kleinen gecodet.
Bis jetzt kann er auf Kommandos die im Chat eingegeben werden mit Text antworten. Was er bei welchem Kommando sagt, steht in der commands.irc
Hierbei müssen alle Kommandos mit # anfangen, damit der Bot diese als Kommandos erkennt. (<-- Kann man aber auch im Source umstellen )

Andere Sachen (Wetter auslesen oder so) Kann man ja einfach noch hinzufügen, indem man je nach Kommando nicht aus der Textdatei die Antwort holt, sondern einen Code ausführt.

Soo, nu will ich nicht weiter nerven. Probierts einfach aus Viel Spass!

EDIT: Ich nap hab vergessen den Source anzuhängen

Neue Version! Siehe unten.

[Spessi]

Warum gleich ne DLL? Man könnte auch direkt auf den Server zugreifen. Man müsste eben nur guckn, auf welche Seite ein mIRC-Script zugreift und das dann in Delphi umschreiben. Weiß nicht, wieso ihr da DLLs verwenden wollt, es sei denn, es gibt schon Fertig-DLLs.

[Neuni]

Hmm...also mit den DLLS, das ist ja schon n bissl kompliziert. Gehts nicht einfacher?

[Neuni]

So, ich hab nun die nächste, neue, Version fertig.
Das ist neu:
- Diverse Fehler behoben
- XP-Style
- Code vereinfacht
- Web-Plugins möglich!!

Zu den Web-Plugins:
Alle Commands in der commands.irc sind folgendermaßen aufgebaut:
#befehl|Antwort|typ

#befehl ist der Befehl, auf den reagiert wird.
Antwort ist die Antwort, die gesendet wird.
Typ:
Ist als Typ "plugin" angegeben (ohne ""), dann wird die Adresse aufgerufen, die bei Antwort angegeben ist.
Beispiel:
#plugintest|http://kempie.de/irc.php|plugin

Nun wird die Datei irc.php auf kempie.de aufgerufen. Das Kommando wird per $_GET an das PHP-Script übergeben.
Im PHP-Script kann man das Command dann mit $_GET['command'] abrufen. Im Beispiel wäre das dann "plugintest".
Ist was anderes als "plugin" angegeben (z.B. "0" oder "text"), dann wird die Antwort direkt gesendet.

Ich habe fertig.

[pas]

tolles programm, nur welche komponenten braucht man alles um es kompilieren zu können? die indy-komponenten hab ich. ich hab delphi 7 personal. sry bin anfänger.

[og_schmid]

Yep, welche Kompos??

grüße

ulli

[mandawar]

Also ich habe Delphi 7 Enterprise und dazu Indy10 Components, aber ich bekomme folgende Fehlermeldungen, bei denen sich nich sofort erschließt, was nicht richtig läuft:
"Field Form1.irc does not have any corresponding component. Remove the Declaration?"
"Field Form1.IdHTTP1 does not have any corresponding component. Remove the Declaration?"

Build
[Error] Unit1.pas(41): Undeclared identifier: 'TIdIRCUser'
[Error] Unit1.pas(42): Undeclared identifier: 'TIdIRCChannel'
[Error] Unit1.pas(124): Undeclared identifier: 'Nick'
[Error] Unit1.pas(125): Undeclared identifier: 'AltNick'
[Error] Unit1.pas(167): ')' expected but identifier 'Nick' found
[Error] Unit1.pas(167): 'END' expected but ')' found
[Error] Unit1.pas(169): ';' expected but 'IF' found
[Error] Unit1.pas(171): '.' expected but 'ELSE' found
[Error] Unit1.pas(173): Undeclared identifier: 'cmdcheck'
[Error] Unit1.pas(173): Undeclared identifier: 'content'
[Warning] Unit1.pas(176): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(180): Undeclared identifier: 'position'
[Error] Unit1.pas(180): Incompatible types
[Error] Unit1.pas(180): '(' expected but ')' found
[Error] Unit1.pas(182): Missing operator or semicolon
[Warning] Unit1.pas(182): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(186): Undeclared identifier: 'iLine'
[Error] Unit1.pas(186): Not enough actual parameters
[Error] Unit1.pas(196): Missing operator or semicolon
[Error] Unit1.pas(200): Undeclared identifier: 'ausgabe'
[Error] Unit1.pas(200): Undeclared identifier: 'idhttp1'
[Error] Unit1.pas(200): Missing operator or semicolon
[Error] Unit1.pas(200): Incompatible types
[Error] Unit1.pas(200): ')' expected but ',' found
[Error] Unit1.pas(200): Incompatible types
[Error] Unit1.pas(204): Undeclared identifier: 'irc'
[Error] Unit1.pas(204): Missing operator or semicolon
[Error] Unit1.pas(204): 'END' expected but ')' found
[Warning] Unit1.pas(213): Text after final 'END.' - ignored by compiler
[Error] Unit1.pas(43): Unsatisfied forward or external declaration: 'TForm1.ircUserMode'
[Error] Unit1.pas(44): Unsatisfied forward or external declaration: 'TForm1.ircReceive'
[Fatal Error] Project2.dpr(6): Could not compile used unit 'Unit1.pas'


Ich denk ma, wenn die ersten beiden Fehler behoben sind könnte es sogar klappen und die restlichen Fehler kläören sich dann wie von selbst.
Hat jemand ne Idee? Wär mir sehr lieb
MfG Mandawar