IRC-Bot als Anfänger?

[ford42]

So habe ich die Frage nicht gemeint, meinte eher ob es für einen eher Anfänger zu schwer ist

[Towmuz]

Anfänger oder Fortgeschritten kann man schlecht definieren.

Lies dich doch ein bischen in das Thema ein (Googlesuche nach "IRC Bot", evtl. auch mit "Delphi" davor), fang an und dann frag hier wenn du nicht weiterkommst.

[ford42]

Danke.

Das sieht ganz schön ungewohnt aus: https://github.com/crutchy-/exec-irc...i/bot_data.pas

Das gibts nicht auch leichter oder?

[Towmuz]

Zitat von ford42:

Danke.

Das sieht ganz schön ungewohnt aus: https://github.com/crutchy-/exec-irc...i/bot_data.pas

Das gibts nicht auch leichter oder?

Joa, da hat sich jemand bissl Mühe gegeben

Ich glaub mit den Komponenten TIdIRC und TIdIRCServer von Indy (sind in deinem 10.2 Pro mit dabei),
kommst du erstmal schneller zu Ergebnissen.

Guckst du hier

[ford42]

Ok, danke dir!

Das sieht ja viel leichter aus

[KodeZwerg]

Zitat von ford42:

Das sieht ganz schön ungewohnt aus: https://github.com/crutchy-/exec-irc...i/bot_data.pas

Das ist ein php irc bot, das ist schon harter tobakko, aber gut zu sehen wie der die Api einsetzt anstelle fertig-Komponenten.

[ford42]

' Dann musst du noch zwei Ereignisse, OnReceive und OnMessage, hinzufügen' <-- wo muss ich die denn einfügen?

[Towmuz]

Zitat von ford42:

' Dann musst du noch zwei Ereignisse, OnReceive und OnMessage, hinzufügen' <-- wo muss ich die denn einfügen?

Joa das Tutorial ist alt, die Events gibts nicht mehr in der Form, OnPrivateMessage sollte aber gehen.

[ford42]

Delphi-Quellcode:

unit UnitIRCBot;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdCmdTCPClient, IdIRC, IdContext, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    IdIRC1: TIdIRC;
    Bt_Connect: TButton;
    Bt_JoinChannel: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Bt_Send: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Bt_ConnectClick(Sender: TObject);
    procedure Bt_JoinChannelClick(Sender: TObject);
    procedure Bt_SendClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure IdIRC1PrivateMessage(ASender: TIdContext; const ANickname, AHost,
      ATarget, AMessage: string);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Bt_ConnectClick(Sender: TObject);
begin
  try //versuche
    IdIRC1.Connect(); //zu verbinden
  except //wenn Fehler
    showMessage('Fehler beim Verbinden!'); //Meldung zeigen
  end;
end;

procedure TForm1.Bt_JoinChannelClick(Sender: TObject);
begin
  IdIRC1.Join('#botty-channel');
end;

procedure TForm1.Bt_SendClick(Sender: TObject);
begin
  IdIRC1.Say('#botty-channel',Edit1.Text); //Nachricht zum Channel schicken
  Memo1.Lines.Add(IdIRC1.Nickname+': '+Edit1.Text); //Zum Memo hinzufügen, denn durch eigene Nachrichten wird das OnMessage-Ereignis nicht ausgelöst
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IdIRC1.Disconnect();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

IdIRC1.Nickname:='botty'; // Legt den Nick fest

IdIRC1.Host:='chat.freenode.net'; // Gibt den Server an

IdIRC1.Port:=6667; //Irc Port

end;


procedure TForm1.IdIRC1PrivateMessage(ASender: TIdContext; const ANickname,
  AHost, ATarget, AMessage: string);
begin
  Memo1.lines.add(ANickname+': '+AMessage);
end;

end.

Wenn ich auf Verbinden klicke muss ich erst paar Sec warten und dann kommt

Code:

Fehler beim Verbinden!

Weiß jemand an was das liegen kann?